Excel VBA質問箱 IV

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

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


45829 / 76732 ←次へ | 前へ→

【35888】Re:任意に数字を入れて結果を求めるVB...
質問  うさちゃん  - 06/3/15(水) 14:57 -

引用なし
パスワード
   ちくたくさん、はじめまして。
ご回答ありがとうございます。

質問の仕方が悪かったようなので、
ちくたくさんのご回答を利用させていただいて、
もう少し詳しく質問させていただきます。

セル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

2 hits

【35881】任意に数字を入れて結果を求めるVBAを教えてください うさちゃん 06/3/15(水) 12:11 質問
【35884】Re:任意に数字を入れて結果を求めるVBA... ちくたく 06/3/15(水) 13:58 回答
【35888】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 14:57 質問
【35893】Re:任意に数字を入れて結果を求めるVB... ちくたく 06/3/15(水) 16:02 回答
【35895】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 16:37 質問
【35907】Re:任意に数字を入れて結果を求めるVB... ちくたく 06/3/15(水) 18:35 発言
【35914】Re:任意に数字を入れて結果を求めるVB... うさちゃん 06/3/15(水) 21:35 質問
【35915】Re:任意に数字を入れて結果を求めるVB... やっちん 06/3/15(水) 22:15 発言
【35921】Re:任意に数字を入れて結果を求めるVB... やっちん 06/3/16(木) 0:39 発言
【35916】Re:任意に数字を入れて結果を求めるVB... ichinose 06/3/15(水) 22:17 発言
【35920】皆さん、どうもありがとうございました。 うさちゃん 06/3/16(木) 0:27 お礼
【35928】パラメータがバラバラの場合を教えてくだ... うさちゃん 06/3/16(木) 9:20 質問
【35964】Re:パラメータがバラバラの場合を教えてく... ichinose 06/3/16(木) 22:05 発言
【35979】Re:パラメータがバラバラの場合を教えてく... ちくたく 06/3/16(木) 23:48 発言
【35983】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:52 お礼
【35982】Re:パラメータがバラバラの場合を教えて... うさちゃん 06/3/17(金) 1:49 お礼

45829 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free