' ' セルを方眼化する。 ' Sub セルを方眼化() On Error Resume Next Application.ScreenUpdating = False With Cells .ColumnWidth = 2.17 .RowHeight = 13.5 End With Range("A1").Select Application.ScreenUpdating = True End Sub

選択範囲をRangeとして取得します。 Ctrlキーを押しながら選択すると複数の選択範囲が指定可能ですが、その場合はSelectionでは全ての選択範囲が取得出来ません。 Selection.Areasを利用して全ての選択範囲を結合したRangeを取得します。 ' ' 選択範囲をRang…

Excelブックが保存されているフォルダを開きます。 ' ' 開いているブックが保存されているフォルダを開く。 ' Public Sub フォルダを開く() If ActiveWorkbook.path = "" Then MsgBox "ファイルはまだ保存されていません。", vbCritical, "エラー" Else Crea…

全てのシートの左上セルを選択後に先頭シートをアクティブにします。 ドキュメント作成後にこのマクロを実行してから保存すると良いと思います。 ' ' 全てのシートを左上選択状態にする ' Public Sub 全シート左上セル選択() On Error Resume Next ' 画面更…