Excel VBA質問箱 IV

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

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


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

10233 / 76734

←次へ　｜　前へ→


	【72051】Re:セル更新時のマクロ

けい

- 12/5/22(火) 14:46 -


	引用なし

	パスワード

▼ponpon さん：
ご回答をありがとうございます。
バージョンは2007です。

こちらで試したのですが、やはり空白にした場合
ExitSubで終了し、I36も空白にしたいという処理には進まないようです。

I36を消してからExitSubとはならないものでしょうか。

>エクセルのバージョンは何でしょう？
>
>２００３で確かめましたが、ちゃんと動きますよ。
>
>いろいろ書き方はあると思いますが、私なら以下のようにします。
>
>
>Private Sub Worksheet_Change(ByVal Target As Range)
>
>　If Target.Count > 1 Then Exit Sub
>　If Application.Intersect(Target, Range("l30")) Is Nothing Then Exit Sub
>　
>　Application.EnableEvents = False
>　
>　If Target.Value = "" Then
>　　 Range("I36") = ""
>　　　
>　Else
>　　　P = MsgBox("有りですか？", vbYesNo)
>　　　If P = vbYes Then
>　　　　 Range("I36") = "有り"
>　　　Else
>　　　　 Range("I36") = "無し"
>　　　End If
>　
>　End If
>　Application.EnableEvents = True
>
>End Sub

6 hits

▼

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