Excel VBA質問箱 IV

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

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


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

6793 / 76734

←次へ　｜　前へ→


	【75538】ループ→転記→ループ→転記

him - 14/5/11(日) 23:48 -


	引用なし

	パスワード

こんばんは。

VBA初心者で困っています。
ご教示お願い致します。

状態（シート3枚）
シート１→計算式が入っておりB4セルの数値が変化によってシート３からVLOOKUPで
飛んできたデータで計算される。
シート２→転記シート（シート１で計算された結果が転記される）
シート３→元データ

やりたいこと
・inputboxでシート３のデータ番号の入力範囲を設定したい（1から１００など）
・上記のシート３の１のデータをシート１で計算され、シート２に計算されたデータを転記したい。
（０データがあった場合は転記しない。）
（転記する部分はC30,D30,E30,F30)
そのあとシート２の転記されたデータの下に、続けてシート３のデータ２の計算を転記。その繰り返しをしたいのです。

分かりづらくてすみません。

ご教示よろしくお願い致します。

（下記が途中までです）

Dim x As Integer

x = Application.InputBox(prompt:="先頭の番号を入力してください")
Y = Application.InputBox(prompt:="最終の番号を入力してください")

line:

Worksheets("1").Select
Range("B4").Select

　　　　For i = x To Y

　　　　　　 ActiveCell.FormulaR1C1 = i

3 hits

▼

【75538】ループ→転記→ループ→転記 him 14/5/11(日) 23:48

≪