Excel VBAについて質問です。 削除
Message#4 2014年12月16日(火)07時28分 From: VBAマスター |
こんな感じで如何でしょうか。 上のイベントプロシージャは、対象シートのモジュールに記述します。 Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Range Dim area1 As Range Set i = Range("A30") Set area1 = Range("A15", i) If Not Intersect(area1, Target) Is Nothing Then Call Chenge_User(area1) End If Set area1 = Nothing Set i = Nothing End Sub Sub Chenge_User(area1 As Range) MsgBox area1.Address(False, False) & "範囲内で「値変更」または" & _ "「行挿入」または「行削除」が、ありました。", vbExclamation End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。