回答編集履歴
1
コード修正 コード追記
test
CHANGED
@@ -6,6 +6,12 @@
|
|
6
6
|
Worksheets("Sheet5").Range("A1").Value = "シート名で指定"
|
7
7
|
Debug.Print TypeName(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name")) 'Property
|
8
8
|
Debug.Print TypeName(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name").Value) 'String
|
9
|
-
Worksheets(ThisWorkbook.VBProject.VBComponents("Sheet
|
9
|
+
Worksheets(ThisWorkbook.VBProject.VBComponents("objSheet").Properties("Name").Value).Range("A1").Value = "オブジェクト名を変数で指定"
|
10
10
|
End Sub
|
11
11
|
```
|
12
|
+
|
13
|
+
ただ、こんな面倒なことをせずに、下記でもおなじことだと思いますが。
|
14
|
+
|
15
|
+
```vba
|
16
|
+
objSheet.Range("A1").Value = "オブジェクト名で指定"
|
17
|
+
```
|