| |
kobasan さん、こんばんわ。
>興味があったので、試したところ、これだと、A1の計算値に関係のない行を削除したときも、メッセージが発生しますね。
A1の内容が変わらないとメッセージが発生しないはずですけど。
ただし、初期値の設定をしていないので、計算１回目は必ずメッセージが出てしまいます。
↓というわけで、１回目はスルーするように改良
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/14(木) 20:04 -
