
全てのシートのカーソル位置をA1に移動し、拡大率100%にするVBAサンプルコード
Excelファイル内のすべてのシートのカーソル位置をA1に移動し、拡大率100%にするVBAサンプルを紹介します。仕様「ボタン」を押すと「読み込みExcelファイル」のパスからExcelを開き、各シートの選択セルをA1セルにし、拡大率を100%にします。画面仕様ソースコードSub ボタン1_Click() 'このブックを取得 Set myWorkBook = ThisWorkbook 'A1に固定するExcelのパスを取得 Dim filePath As String filePath = myWorkBook.Worksheets("Sheet1").Cells(2, 2).Value 'ターゲットのブックを開く Workbooks.Open Filename:=filePath Set targetWorkBook = Workbooks(Dir(filePath)) '全シートループ For Each targetSheet In targetWorkBook.Worksheets targetSheet.Activate 'A1セルを選択 Application.Goto Re...