エクセルで、VBマクロを使い、cellの内容が変更されたタイミングでマクロを実行したいです

質問

エクセル上のＶＢマクロで、cellの内容が変更されたときに、マクロを実行し、同時にどのセルが変更されたかを取得したいです。

よい方法があれば教えて頂きたいです。
よろしくお願いします。

回答No.2

ja7awu · ベストアンサー

Worksheet_ChangeイベントとTarget引数を使うと良いでしょう。

例えば、使用しているシートのシート名タブを右クリックして「コードの表示」で
開いたコードウィンドウに下記コードをコピーして貼り付けます。

これで、内容を変更したときに、そのアドレスを表示します。

例えば、A1:A10を選択し、"abc" をキー入力し、Shift+Ctrl+Enter を押すと
範囲内に"abc"が入力され、メッセージボックスに "A1:A10" が表示されます。

Private Sub Worksheet_Change(ByVal Target As Range)
　　MsgBox Target.Address(False, False)
End Sub

但し、実際に本当に内容を変更したかどうかを検出するには、常に現シートの
写しを作っておいて、双方の内容比較する必要があります。

例えば、何も入力されていない A1:A10 を選択し、DELキーを押すと、何も変更
していないのに、A1:A10 と表示されてしまいます。

ということで、同じ内容を上書きしても変更したのと同様に扱われます。

お礼

どうもありがとうございます。

変更の検出の点は、とても参考にしていただきました。

回答No.3

imogasi

他の質問に答えた時のものですが、ご参考に。
（１）問題にしているワークシートを開く。
（２）メニユーのツール－マクロ－ＶＢＥをクリック。
ＶＢＥの画面になります。
（３）左側のフレーム（四角い部分）に「プロジェクト」と表題に部分にある問題のシート名をＷクリック。
コードウインドウ（１番大きいフレームが白く出る。）
（４）右側のフレーム（コードウインドウ）の上部の「Ｇｅｎｅｒａｌ」と出ている欄の右の▼をクリックして「Ｗｏｒｋｓｈｅｅｔ」をクリック。
（５）Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
がでますが、Ｃｈａｎｇｅのイベントプロシージュアーを書きたいから無視。
（６）ＳelectionChangeが出ている欄の▼をクリックして
「Ｃｈａｎｇｅ」をクリック。
（７）Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
となります。
（８）この真中に、回答のＶＢＡプログラムをコピペします（通常は自分で作ります）。最初行と最後行はダブらないよう、コピペ対象から外すこと。
（９）表示－オブジェクトをクリックして、ワークシート画面に戻り、操作をする。
Targetと言うＲａｎｇｅの引数を渡してくれるので、
Target.ValueやTarget.AddressやＲａｎｇｅに関するプロパティが使えます。

お礼

詳しい説明ありがとうございます。

回答No.1

maruru01

こんにちは。maruru01です。

各シートのChangeイベントですね。
変更されたセルは、引数Targetで取得出来ます。
こんな感じで。

Private Sub Worksheet_Change(ByVal Target As Range)

　　MsgBox "セル：" & Target.Address(False, False) & "が変更されました。"

End Sub

お礼

どうもありがとうございます。
うまくいきました。