エクセルのマクロについて

質問

マクロのコードについて質問させていただきます。

シート1のA1の値をシート2のA1に自動で反映させるマクロを教えていただけないでしょうか。

回答No.1

tom04 · ベストアンサー

こんばんは！

Sheet2のA1セルに
=IF(Sheet1!A1="","",Sheet1!A1)
という数式を入れておけば大丈夫だと思いますが・・・

どうしてもVBAで！というコトであれば
↓のコードをSheet1のシートモジュールにしてSheet1のA1セルにデータを入れてみてください。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Worksheets("Sheet2").Range("A1") = Target
End If
End Sub

※　汎用性から考ると、数式で処理できるのであればそれの方が簡単だと思います。
（1）VBAの場合、範囲等こちらで設定してやる必要がある。
（2）本来は考えられるエラー等も対処しておく必要がある。
などなど・・・

※　上記コードはA1セル限定です。m(_ _)m

お礼

tom04様

ありがとうございます。

最近データベース関連を担当し、マクロに触れることになり困っていました。

またこの場を使わせていただけたら幸いです。