複数のSheetに一括で同じ値を代入する方法
複数Sheetの同じセルに一括で値を代入する方法。
マニュアル操作では、Sheetを複数選択していれば同じセルに値が一気に代入するされます。これをVBAで記述すると以下のコードになります。
Sub Sheets_Select() Worksheets("Sheet7").Select Worksheets("Sheet4").Select False Worksheets("Sheet6").Select False Dim i For Each i In ActiveWindow.SelectedSheets i.Range("A1").Value = 67 Debug.Print i.Name, i.Range("A1").Value Next End Sub
処理結果↓↓
一気にというところは怪しいですが、一応こうなりました。
備忘録でした。(^^)/~~~