Excel VBA質問箱 IV

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

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


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

27710 / 76732

←次へ　｜　前へ→


	【54339】Re:簡素化したいのですが

りん

- 08/3/8(土) 18:03 -


	引用なし

	パスワード

ウィルさん、こんばんわ。

>自分なりに2つ作成してみたのですが、
>簡素化できますか？

>1つ目
>Sheets("4").Range("J4").Value = Sheets("目標").Range("B3").Value
　　(略)
>Sheets("3").Range("J4").Value = Sheets("目標").Range("B3").Value

　 For II = 1 To 12
　　　'同じセル参照なら順番は気にしない
　　　Worksheets(Format(II, "0")).Range("J4").Value = Worksheets("目標").Range("B3").Value
　 Next

>2つ目
>Sheets("まとめ").Range("d5").Value = Sheets("4").Range("j28").Value
　　(略)
>Sheets("まとめ").Range("q5").Value = Sheets("3").Range("j28").Value

　 For II = 1 To 12
　　　'HとM列が飛んでいるのは\で調整
　　　'12の次が1になるようにModで調整
　　　Worksheets("まとめ").Range(5, II + 3 + (II - 1) \ 4).Value = _
　　　　 Worksheets(Format((II + 2) Mod 12 + 1), "0").Range("j28").Value
　 Next

こんな感じです。

0 hits

▼

【54337】簡素化したいのですが ウィル 08/3/8(土) 17:51