| |
皆様早速のレスありがとうございました。
大変参考になりました。
皆様のご好意にさらに甘えるようで申し訳ないのですが、例えば下記のコードで（Ａ１）のセルの計算値が変わったときにはTEST、（Ａ２）のセルの計算値が変わったときにはTEST1、（Ａ３）のセルの計算値が変わったときにはTEST2のマクロを実行するようにするにはどうしたらいいでしょうか？
自分でも考えてコードを書いてみるのですがなにせＶＢＡは超入門などの本でやっとほんの少し理解している程度で、いろいろやってもうまくいきません。
どうかよろしくお願いいたします
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
|
|
あおがえる
- 06/9/15(金) 14:29 -
