|
皆様早速のレスありがとうございました。
大変参考になりました。
皆様のご好意にさらに甘えるようで申し訳ないのですが、例えば下記のコードで(A1)のセルの計算値が変わったときにはTEST、(A2)のセルの計算値が変わったときにはTEST1、(A3)のセルの計算値が変わったときにはTEST2のマクロを実行するようにするにはどうしたらいいでしょうか?
自分でも考えてコードを書いてみるのですがなにせVBAは超入門などの本でやっとほんの少し理解している程度で、いろいろやってもうまくいきません。
どうかよろしくお願いいたします
Dim adat As Variant 'A1の内容を覚えておくグローバル変数
Dim NN As Integer 'adatに値をいれたかどうか覚えておく変数
Private Sub Worksheet_Calculate()
With Application.ActiveSheet.Range("A1")
If adat <> .Value And NN = 1 Then
TEST
End If
adat = .Value '入替
NN = 1 '入れ替えフラグ
End With
End Sub
Sub TEST()
MsgBox adat, vbInformation
End Sub
|
|