Excel VBA質問箱 IV

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

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


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

51093 / 76732

←次へ　｜　前へ→


	【30513】否定の方法

VBAビギナー - 05/10/29(土) 9:03 -


	引用なし

	パスワード

いつもお世話になっております。
名前のチェックをすることによりシートを追加する・しないというマクロを作成しています。シートを追加する・しないというマクロは作成しているのですが、
ここのシートでは名前のチェックを行いたいのです。
下記のマクロの1.の所はきちんと実行され、
では上手く実行されます。
しかし2.の所では型が一致しませんとエラーがでます。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$3" Then
If Target = "佐藤" Or Target = "田中" Or Target = "森" Then Exit Sub・・・1.
ElseIf Not Target Then・・・2.
　　MsgBox "名前が見つかりません"
End
End If
End Sub
質問ですが
2.の所で1.を否定する、つまり田中、佐藤、森以外の名前を入力して
名前がみつかりませんと表示させる方法ってありますか？

0 hits

▼

【30513】否定の方法 VBAビギナー 05/10/29(土) 9:03

≪