VBAでボタンを押すと、指定したセルに他セルの内容をコピー

質問

現在統計等を出すプログラムを作成しています。
ボタン等も配置しましたが、タイトルのとおりこのボタンをおすことで
指定セルに他のセルの内容をコピーしたいのです。
しかし、やりかたがわからずに非常にこまっているのでわかる方がいましたら教えて頂けたらうれしいです。
具体的にいうと　ボタンを押すと
A1セルにはD4の内容を、A2セルにはE8の内容を、A4セルにはF3の内容を
いれたいのです。　
一回のボタン動作でこのすべてをいれたいですが、プログラム的にはどうなるのかわからず、悩んで居ますのでおしえていただけたら幸いです。おねがいします。

逐次D4、E8、F3の内容は変わっていくので、このようなボタン機能を設置したというながれであります。

回答No.1

Nayuta_X · ベストアンサー

下記のようにコードを書いて　マクロの実行で、Testを選択します。
プログラムを作成しているのであれば、これは、基本中の基本です。是非覚えていてほしいですね。

Sub Test()
Range("A1").Value = Range("D4").Value
Range("A2").Value = Range("E8").Value
Range("A4").Value = Range("F3").Value
End Sub

回答No.2

imogasi

シートにコマンドボタン１つ貼り付け。
コマンドボタンのクリックイベントに
Private Sub CommandButton1_Click()
a = Array("A1", "D4", "A2", "E8", "A4", "F3")
For i = 0 To UBound(a) Step 2
Range(a(i)) = Range(a(i + 1))
Next i
End Sub
を作る。
編集モードを脱する。
コマンドボタンをクリックすると、
A1、A2,A4のセルにD4,E8,F3から値が代入されます。
上記のコードのa=（）のカッコ内には、それらのペアを並べてください。
＞イベントプロシジュアーという考えをなれてください。
ーー
上記コードは私の好みの方法なので、＃１のご回答の方法で、まず考えてください。