| |
こんにちは。かみちゃん です。
> ちなみに、このWorksheet_Changeのプロシージャは、そのワークシートへ保存
> して良いのですよね？
「保存して良い」というより「記述しなければならない」という表現が正しいと思います。
> 同じワークシートへ、別にコントロールのボタンを配置し、そのボタンからも
> う１つのマクロを動作させたいのですが、うまく動作しません。
どのようなコードになっていて、どのように「うまくいかない」のかわからないので、何も申し上げられません。
> しかも、そのマクロはセルのデータを消去させるマクロなので、その消去マク
> ロが動作する度に、セル内容変更によるメッセージボックス表示マクロも同時
> に動作してしまいます....
Worksheet_Changeを過去ログで検索するといろいろ出てくると思いますが、
以下のような感じにするといいと思います。
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub '変更されたセルが1個でない場合は処理しない
If IsEmpty(.Value) Then Exit Sub '変更されたセルの値がない場合（クリアされた）処理しない
If Application.Intersect(Range("A1:A10"), Target) Is Nothing Then Exit Sub
MsgBox .Address & " が変更されました"
End With
End Sub
|
|
かみちゃん
- 06/2/24(金) 14:52 -
