| |
こんばんは。
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
|
|
him
- 14/5/11(日) 23:48 -
