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 質問
【30514】Re:否定の方法 かみちゃん 05/10/29(土) 9:18 回答
【30515】Re:否定の方法 VBAビギナー 05/10/29(土) 9:55 回答
【30516】Re:否定の方法 かみちゃん 05/10/29(土) 10:15 回答
【30517】Re:否定の方法 VBAビギナー 05/10/29(土) 10:52 回答
【30522】Re:否定の方法 かみちゃん 05/10/29(土) 11:33 発言
【30528】Re:否定の方法 VBAビギナー 05/10/29(土) 12:52 回答
【30529】Re:否定の方法 かみちゃん 05/10/29(土) 13:07 回答
【30537】Re:否定の方法 VBAビギナー 05/10/29(土) 18:10 回答
【30538】Re:否定の方法 かみちゃん 05/10/29(土) 18:24 発言
【30539】Re:否定の方法 VBAビギナー 05/10/29(土) 18:58 回答
【30540】Re:否定の方法 かみちゃん 05/10/29(土) 19:09 発言
【30542】Re:否定の方法 VBAビギナー 05/10/29(土) 23:17 お礼

51093 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free