こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBA Worksheet_Change イベントについて

Excel VBA Worksheet_Change イベントについて質問です。

セルH8とI8を結合し、入力規則よりリストボックスを配置しました。
本シートにWorksheet_ChangeをVBAで作成しましたが、
セルH8:I8をDeleteすると実行時エラー13が発生します。

If Target = "" then
exit sub
end if

If Target.value = "" then
exit sub
end if

If Target <> "" then
処理
end if
としても対処できませんでした。

よい対処方法のアドバイスよろしくお願いします。

投稿日時 - 2010-04-07 16:05:02

QNo.5809266

困ってます

質問者が選んだベストアンサー

Deleteした時は、Tagrgetは、H8:I8の2つのセルが取得されますので

If Target.value = "" Then でエラーになります

で、以下のようにやるといいでしょう。


  If Target.Count > 1 Then Exit Sub

とか

  If Target.Cells(1).Value = "" Then Exit Sub


●このことは重要ですから必ず頭に入れておきましょう。

以上です。
 

投稿日時 - 2010-04-07 17:56:50

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問