VBAでボタンを押せば裏で処理をされるコードを書きたいのですが・・

質問

VBAに対して何の知識も経験もない私ですが、ご存じでしたら教えて頂きたく思います。

例を入れて記載しますので、何をどうしたら良いのか教えて下さい。

例）
Book1のA1に3という数字があるとします。
この3という数字をBook2のD5に反映させる場合。
シートの参照ではなく、Book1の3という数字をコピーして、Book2のD5にペーストさせたいのです。

さらに、Book1のA2に10という数字があったと仮定し、
それをBook2のsheet2のB4にコピペさせたいのです。

上記をボタンをクリックすれば自動で行うようなコードを教えて頂きたく。
初歩的ですが、ボタンの中に記載されている文字の変更や、終了したときに「おわったよー」みたいな文字を出す方法も併せてお願い致します。

回答No.2

pascal3141 · ベストアンサー

任意のフォルダ内に、Moto.xls と　Aite.xls を入れておきます。（MotoのデータをAiteにコピーするとします）以下のコードを、Moto.xls のVBAの「標準モジュール」にコピーペースト。「実行ボタン」は自分で付けてください。
ファイル名は好きに変更してください。
ちなみに、Cells(行,列）なので、数字を逆にしないようにしてください。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub DataCopy(): 'データコピー
Dim GG, PP, FF, SName As String
Application.ScreenUpdating = False

'ファイル名をセット
SName = "Sheet1"
GG = "Moto.xls"
FF = "Aite.xls"
PP = ThisWorkbook.Path & "\" & FF

'ファイルオープン
Workbooks.Open (PP)

'データを貼り付け
Workbooks(FF).Worksheets(SName).Cells(5, 4).Value = Workbooks(GG).Worksheets(SName).Cells(1, 1).Value
Workbooks(FF).Worksheets(SName).Cells(4, 2).Value = Workbooks(GG).Worksheets(SName).Cells(2, 1).Value

'メッセージ

MsgBox "おわったよ～"

End Sub

回答No.1

BLUEPIXY

とりあえず、マクロの記録をやってみたらどうでしょうか

＞ボタンの中に記載されている文字の変更
コントロールのコマンドボタンの場合
右クリックしてコマンドボタンオブジェクトの編集から変更できます。
フォームのボタンの場合
単に右クリックするとテキストが編集できるようになります。

＞「おわったよー」みたいな文字を出す方法
MsgBox "おわったよ～"
をプロシジャーの最後に入れる