Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56604 / 76732

←次へ　｜　前へ→


	【24878】ループカウンタを使ったオブジェクト名の設定

なが - 05/5/12(木) 13:19 -


	引用なし

	パスワード

いつもお世話になります。

ループカウンタを使ったオブジェクト名を設定して、
他のシートに代入を行いたいのですが下記のVBAを組んだところエラーが出力されてしまいます。
「SET」したオブジェクト名をなんらかの変数に代入する事は不可能なのでしょうか？
もし可能なのであればどのように記述すればよろしいのでしょうか？
大変申し訳ありませんがご存知の方がいらっしゃいましたらご教示をお願い致します。

Sub test()

Set ins1 = Sheets("新宿")
Set ins2 = Sheets("歌舞伎町")
Set ins3 = Sheets("靖国通り")
Dim aaa As String

For i = 2 To 3
Debug.Print (i)

aaa = "ins" & i
　Debug.Print (aaa)<=問題なくins2と出力
　Debug.Print (aaa.Range("E7"))<=修飾子が不正です。
'ins1.Range("L" & I + 2).Value = aaa.Range("E7")
Next i
End Sub

1 hits

▼

【24878】ループカウンタを使ったオブジェクト名の設定 なが 05/5/12(木) 13:19

≪