Excel VBA質問箱 IV

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

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


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

8313 / 76732

←次へ　｜　前へ→


	【73994】for　～　to　のシート名指定について

ちわわん - 13/4/2(火) 17:29 -


	引用なし

	パスワード

初めて投稿させて頂きます。

下記コードにて、sheet1にあるx10の欄に、sheet2～6の
H107:K107の数字を計算するようにしています。
但し、sheet3についてはH177:K177を参照するように
しています。

問題はシートの数や位置が変わる可能性があるので、ズバリ
シート名を指定したいのです。
単純に(　)の中を（"シート名"）に変更すれば問題ないかと
思ったのですがうまくいきませんでした。なので
For i = 2 To 6　の　2 To 6　を　シート名に変更すれば
うまくいくかと思ったのですが、("Ｂ") to ("Ｆ")
でつなげてもうまくいきませんでした。
for　～　to　は数字しか受け付けないのでしょうか。
それとも根本的に何か間違っているのでしょうか。
ご教授願います。

　　x = 10
　　For i = 2 To 6
　　　　Sheets(i).Range(IIf(i = 3, "H177:K177", "H107:K107")).Copy
　　　　Sheets(1).Cells(x, 4).PasteSpecial xlPasteValues
　　　　・・・・・・
　　　　　　　　　　　　　　↓　変えてみたけど・・・・・
　　x = 10
　　For i = 2 To 6
　　　　Sheets(i).Range(IIf(i = ("Ｃ"), "H177:K177", "H107:K107")).Copy
　　　　Sheets("Ａ").Cells(x, 4).PasteSpecial xlPasteValues
　　　　・・・・・・

224 hits

▼

【73994】for　～　to　のシート名指定について ちわわん 13/4/2(火) 17:29

≪