• ベストアンサー

ifステートメント　notと!は同じ意味ですか？

VBAのifステートメントで、notと!は同じ意味ですか？ 「a」で始まらない。 と言う意味で、下記のコードを作ったのですが、どちらも思い通りの結果が得られます。 If "あabc" Like "[!a-z]*" Then Debug.Print "OK" End If If Not "あabc" Like "[a-z]*" Then Debug.Print "OK" End If End Sub ネットからのサンプルをコピペしたので、いまいち理解できてないのですが notと!は同じ意味ですか？

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

  • ベストアンサー
  • RandenSai
  • ベストアンサー率54% (305/561)
回答No.2

結果的には同じ動作になっていますが、それは条件が一つだけだったからで、条件が複数ある場合に差が出ます。 Like演算子の中の！はその文字以外という意味で、効力は自分に対してだけです。一方、Not演算子の場合は式の結果を反転させますが、カッコを使うと影響範囲を変えることが可能です。 If "12345" Like "!0" And "!6" Then Debug.Print "OK →結果はOKと表示 If Not ("12345" Like "0" And "6") Then Debug.Print "OK →結果はOKと表示 If Not "12345" Like "0" And "6" Then Debug.Print "OK →何も表示されない（If "12345" Like "!0" And "6" …と同じ意味になるから） なので、どっちで書いた方が解りやすいか？という観点で選ぶ感じですかね。ただNotの場合はこの例でもありますが、カッコの付け忘れや付ける位置の間違いで結果が違って来るので、注意しないと自分でもよくわからんことになりがちです。

HODKDUBUNJT
質問者

お礼

ありがとうございました。

その他の回答 (2)

  • coldblade
  • ベストアンサー率20% (2/10)
回答No.3

if obj is not nothing then you can't use ! in this case.

HODKDUBUNJT
質問者

お礼

ありがとうございました。

  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

Like演算子のヘルプ（Likeの上でＦ１キーを押して表示する）に書いてあります。 ------- [!charlist]　文字リスト charlist に指定した文字以外の任意の 1 文字 ------- ご質問で書かれたそのパターンでいえば、確かにnot [a-z]*と同じ動作になりますね。 それでも例えばoption compare textみたいに宣言してて、違った動作になる場合もあります。こちらの動作についても同じヘルプに書いてあるので、確認してみて下さい。

HODKDUBUNJT
質問者

お礼

ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • IFステートメントの使い方　どちらでもないならば

    「出金も入金も0じゃないならば」としたい場合、どのようなifステートメントを作ればいいでしょう？ Sub test() Dim 出金 As Currency Dim 入金 As Currency 出金 = 0 入金 = 0 '(1) If Not (出金 = 0) And Not (入金 = 0) Then MsgBox "出金0入金0ではありません" End If '(2) If (出金 = 0) And (入金 = 0) Then Else MsgBox "出金0入金0ではありません" End If End Sub (1)だとうまくいきません。 (2)のように Elseを使って対応するしかないのでしょうか？ (2)でいけますが、今後の勉強の為にelseを使わずに、「どちらでもないならば」の方法を教えてください。

  • Selectステートメントの入れ子について

    Ifステートメントで 　If　条件1 　　If　条件2　… とするのが見づらいと思い、Notをつけて並べてみました。 Sub () 　If Not　条件1 Then 　　　End Sub 　End If 　If Not　条件2 Then 　　　End Sub 　End If 　処理 End Sub これをSelectステートメントで行いたいのですが、入れ子にしないで書く方法はあるのでしょうか？ (Select Not(?)のような…) もしあれば、お教えください。

  • IFステートメントで半角でも全角でもtrueとさせ

    IFステートメントで半角でも全角でもtrueとさせるには？ Sub test1() Dim str As String str = "ＡＢＣ"’←全角のA If str Like "*A*" Then　’←半角のA MsgBox "Ａがあります" End If End Sub これで、半角Aもメッセージを表示させたいのですが、 マッチバイトみたいなのってありますか？

  • ifステートメントで、[が含まれるかどうかを調べた

    ifステートメントで、[が含まれるかどうかを調べたいのですが ****************************** Sub test1() Dim myStr As String myStr = "[aaa]" If myStr Like "*[*" Then MsgBox "[を含んでいます。" End If End Sub ****************************** をやろうとすると 「実行時エラー93　パターン文字列が不正です」 となってしまいます。 ヘルプを見ると ************************************************************ 検索の Like 演算子で指定されているパターン文字列が無効です。 エラーの原因と対処方法を次に示します。 たとえば、文字リスト式 [a-b は、右かっこ (]) がないため、無効です。 リスト式の文字を確認します。 詳細については、目的の項目を選択して F1 キー (Windows) または Help キー (Macintosh) を押してください。 ************************************************************ との事なので、 If myStr Like "*[*]" Then としたら、問題なくできましたが、 [だけが含まれているかどうかを調べることは不可能なのでしょうか？

  • 乱数　IFステートメント

    Debug.Print Int((11 - 8 + 1) * Rnd + 8) 「これって８～１１までの乱数を発生させますよ」 という意味であってますか？ そして、 Sub a() Dim 文字数 As Long 文字数 = Int((11 - 8 + 1) * Rnd + 8) If 8 >= 文字数 <= 10 Then MsgBox 文字数 & "は、8～10の間です" End If End Sub を実行すると、１１でも MsgBox 文字数 & "は、8～10の間です" が表示されてしまいます。 「８～１０の間なら」メッセージボックスを表示するには、 If 8 >= 文字数 <= 10 Then の部分をどうすればいいですか？

  • ifステートメント　大文字も小文字も区別なく

    Sub test() Dim moji As String moji = "a" If moji = "A" Then MsgBox "Aかaです" End If End Sub これだと、変数が小文字のaだからmsgboxが表示されません。 小文字も大文字も区別なく認識させるにはどうすればいいでしょうか？ バイナリモードになってるようです。 Replace関数の場合は、vbTextCompareを付ければ Sub Sample() Dim moji As String moji = "ａ" Debug.Print Replace(moji, "A", "b", , , vbTextCompare) End Sub このように大文字小文字区別なく置換できますが このような事をifステートメントでやる方法を教えてください。

  • ワイルドカード　「アルファベットじゃないならば」

    Sub Sample01() Dim s As String s = "b" If Not s = "[a-z]" Then Debug.Print "アルファベットじゃないです" End If End Sub この場合、sは[a-z]の中にあるのに、「アルファベットじゃないです」が表示されます。 s = "あ"にしたら、「アルファベットじゃないです」が表示され、納得できるのですが bはアルファベットなのに、なぜ認識されないのでしょうか？

  • ExitでIFステートメントを抜けたい

    Sub test() Dim n As Byte, i As Byte For i = 0 To 5 　 If n = 0 Then 　　 n = n + 1 　 Else 　　 Exit For '（1）ここから 　 End If i = i + 1 '（2）ここへ来たい（ＩＦステートメントだけ抜けたい） Next i End Sub のように（1）から（2）へ行きたいのですが このコードを実行すると Forステートメントを抜けてしまい、マクロが終了してしまいます。 「Exit If」にするとエラーになってしまいます。 Exitを使用してIFステートメントだけ抜け、 Forステートメントに戻るにはどうすればいいでしょうか？ ご教授よろしくお願いします。

  • myRange = Null

    VBA Professional Office 2003の試験問題ですが http://vbae.odyssey-com.co.jp/study/sample_2003.html Sub Sample1() Dim myRange As Range On Error Resume Next '――(1) If myRange = Null Then '――(2) Debug.Print "OK" '――(3) Else Debug.Print "NO" '――(4) End If End Sub の(3)が実行されるのは、 myRange = Null が正しいからではなく、 (2)のIf myRange = Null Thenのコードが無視されたから 次のコードの(3)がたまたま実行されただけですか？ (2)をIf myRange <> Null Thenにしても ＯＫになりました。

  • ＶＢＡ　ＩＦステートメントがうまくできません

    Sub tset1() Dim URL As String URL = "http://oshiete.coneco.net/mypage#tabs" If URL Like "http://oshiete.coneco.net/mypage#tabs" Then MsgBox "成功！" End If End Sub を実行すると、URL の値は"http://oshiete.coneco.net/mypage#tabs"なのに、 "成功！"が表示されません。 #が曲者のような気がしますが、これ以上わかりません。 URL = "http://oshiete.coneco.net/mypage"にすれば、うまくいきした。 #があっても、ＩＦステートメントが使えるようにするにはどうすればいいでしょうか？ ご回答よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する