|
ちくたくさん、はじめまして。
ご回答ありがとうございます。
質問の仕方が悪かったようなので、
ちくたくさんのご回答を利用させていただいて、
もう少し詳しく質問させていただきます。
セルA1、B1、C1に、それぞれ例えば、1〜20までの数字を入れていって、
その結果が、セルE1、E2に反映されるとします。
そしてその結果を次々と、12列目にコピーして記録するとします。
これを手作業でやっていくと、20*20*20=8000通りの数字を
打ち込んでいかないといけないので、
これを何とか、VBAで自動的にできないかと思っているのです。
もしこれが、セルA1に、1〜20までの数字を入れていって、
その結果が、セルE1に反映され、その結果を次々と、
12列目にコピーして記録する、だったら、次のようになると思っています。
セルが複数になったらどうなるかを知りたいのです。
Sub macro1()
For i = 1 To 20
Cells(1, 1).Value = i
Cells(i , 12).Value = Cells(1, 5).Value
Next i
End Sub
よろしくお願いいたします。
>うさちゃん さん
>こんにちは。
>
>実行のタイミングがわかりませんが、
>A1、B1、C1に数字を入れて以下のマクロを実行しますと、
>E1、E2にそれぞれ3つの数字を足した物と乗算したものが表示されます。
>
>はずしていたらごめんなさい。
>
>Sub test()
>
> Dim A As Double, B As Double, C As Double
>
> '3つの数字を
> A = Range("A1").Value
> B = Range("B1").Value
> C = Range("C1").Value
>
> 'なんかの処理してふたつのセルに出す。
> Range("E1").Value = A + B + C
> Range("E2").Value = A * B * C
>
>
>End Sub
|
|