オブジェクト
階層構造になっています。Application→Workbooks→Worksheets→Range
変数
変数にオブジェクトをとり出す。
Sub test_00()
Dim testBook As Workbook
Dim testSheet As Worksheet
Dim testRange As Range
Set testBook = Workbooks("テスト.xlsm")
Set testSheet = testBook.Worksheets("Sheet1")
Set testRange = testSheet.Range("A1")
testRange.Value = 20
End Sub
直接代入
一つだけなら直接代入します。
Sub test_01()
Workbooks("テスト.xlsm").Worksheets("Sheet1").Range("A1").Value = 20
End Sub
0 件のコメント:
コメントを投稿