Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10241 / 76734

←次へ　｜　前へ→


	【72043】セル更新時のマクロ

けい

- 12/5/21(月) 19:27 -


	引用なし

	パスワード

どうかよろしくお願いします。

セルが更新されたら自動的に他のセルが更新されるようにマクロを作成しています。
セルL30が更新（入力）されたら、メッセージボックスで"有り"or"無し"をYesNoで答えそのどちらかの結果を自動的にセルI36へ入力させます。

セルL30が削除され空白になった時はI36も空白に自動的にしたいのですが、以下のマクロでは空白になりませんでした。
どこがおかしいのでしょうか。
更新時というのは削除や空白は含まれないのでしょうか。

Private Sub WorkSheet_change(ByVal Target As Range)
If (Target.Address = "$L$30") Then

　　
　If (Range("L30")) <> "" Then

　　　P = MsgBox("有りですか？", vbYesNo)
　　
　　　If P = vbYes Then
　　
　　　Range("I36") = "有り"
　　
　　　Else
　　
　　　Range("I36") = "無し"
　
　　　End If
　
　ElseIf (Range("L30")) = "" Then

　 Range("I36") = ""
　　
　End If

End If

End Sub

2 hits

▼

【72043】セル更新時のマクロ けい 12/5/21(月) 19:27

≪