• 締切済み

VBA　変数にアスタリスクが含んでるかどうか

変数にアスタリスクが含んでるかどうかをＩＦステートメントで取得するには？ Sub test() Dim mystr As String mystr = "*/" If mystr Like "*" Then MsgBox "mystrはアスタリスクを含んでます。" End If End Sub このようなことをしたい場合、 mystr = "*/" でも mystr = "/" でも、結局は*が、どの文字でも含まれると認識してしまいます。 変数にアスタリスクが含まれてるかどうかを判定する方法を教えてください。

みんなの回答

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.6

Ｎｏ3です。 ＞Accessで予約されている記号などを含む場合の と書いていますが、Excelでも同じです。土俵が 書いていないので、思わずAccessと書きましたが、 このように。

  • notnot
  • ベストアンサー率47% (4847/10260)
回答No.5

普通は、 If Instr(mystr,"*") >0 Then

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.4

いま、VBAを使える環境に無いのですが。 MsgBox UBound（Split( Mystr, ”*” ) ) で0なら含まない。1以上なら、その個数含まれる。 ”*” を ”*/” や ”/*” に変えてお試し下さい。

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.3

再度、No1,No2です。説明のしかたが変だったので やり直し。 「*」は特殊文字なので、[]で括っておく必要があります。 なおかつLikeを使いますから「*」を使う必要があります。 ということで、以下。 調べる文字列が、"*/"の場合、 If mystr Like "[*]*" Then ならば、検出しますが、 If mystr Like "*[*]" Then ならば、検出しません。 文字列が、"/*"ならば、検出結果は反対になります。 文字列に「*」が含まれているかであれば、 If mystr Like "*[*]*" Then とするのが、妥当かと思います。 Accessで予約されている記号などを含む場合の 対応についてはWebで検索すればいろいろ出てくる と思いますが。

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.2

No1です。 あるいは、 If mystr Like "*[*]*" Then */ の場合は、"[*]*"　ならば検出するけれども、 "*[*]"ならば検出しないので、含まれている ということであれば、 　　If mystr Like "*[*]*" Then が、合理的かもしれません。

  • piroin654
  • ベストアンサー率75% (692/917)
回答No.1

＞If mystr Like "*" Then を If mystr Like "[*]*" Then

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

関連するQ&A

  • 変数の中身がアルファベットだけなのか取得するには

    変数がアルファベットだけか取得するには？ Sub test() Dim mystr As String mystr = "abc" If ？？？　Then MsgBox "アルファベットだけです" End If End Sub のように、変数の中身がアルファベットだけなのか取得するにはどうすればいいでしょうか？ ひらがな、カタカナ、漢字、記号を含んでいるかどうかを評価したいです。

  • 参照渡しをする時は、渡される側は違う変数を使う？

    参照渡しをする時は、渡される側は違う変数を使うべきなのでしょうか？ ＶＢＡのお勉強をしているのですが Sub test1() Dim mystr As String mystr = "a" Call test2(mystr) Call test3(mystr) End Sub Sub test2(ByRef mystr As String) MsgBox mystr End Sub Sub test3(ByRef mystr2 As String) MsgBox mystr2 End Sub この場合、test2とtest3ではどちらを使ったほうがいいのでしょうか？ test3は、mystr2 というmystrとは違う変数を使っていますが、 test2は、test1のmystrと同じ変数を使っています。 test1と同じ変数を使おうが違う変数を使おうが どちらにしろ (ByRef 変数名 As String) で宣言するから、変わらないのでしょうか？

  • 数値かどうかを取得したい　IsNumberではダメ

    Sub Macro2() Dim mystr As String mystr = "1" If IsDate(mystr) = False Then MsgBox "NO" End If End Sub これなら日付型かどうかを取得できるのに、 Sub Macro1() Dim mystr As String mystr = "1" If IsNumber(mystr) = False Then MsgBox "NO" End If End Sub だと、IsNumberがコンパイルエラーになります。 変数に入っている値が数値として評価できるかを取得する方法を教えてください。

  • 角カッコが含まれてるかどうかをlikeで取得

    したいのですが、どうやらエラーになるようです。 Sub test() Dim mystr As String mystr = "[test]" If mystr Like "*[*" Then MsgBox "[が含まれます" End If End Sub だと、実行時エラー93 パターン文字列が不正ですになります。 こういうように各カッコが含まれてるかどうかを取得するにはどうすればいいですか？

  • 変数に特定の文字が含まれているなら（VBA）

    以前に質問した http://oshiete1.goo.ne.jp/qa4407128.html とは違うのですが 変数"あいうえお"に "あ"が含まれているなら "含まれています"と表示したいです。 Sub test() Dim strmoji As String strmoji = "あいうえお" If Find(strmoji) Like "*あ*" Then MsgBox "含まれています" End If End Sub 部分的に考えてみたのですが 「Sub、Function、または Property が定義されていません。(Error 35)」 が出てしまいます。 ご教授よろしくお願い致します。

  • コードの添削お願いします(変数エラー)

    Option Explicit Private Sub CommandButton1_Click() Dim myStr As String If myStr <> "" Then myStr = TextBox.Value Label1.Caption = LTrim(myStr) Label2.Caption = RTrim(myStr) Label3.Caption = Trim(myStr) Else MsgBox "終了" End If End Sub 変数のエラーが出ますが、何処がおかしいですか？ 宜しくお願い致します。

  • 【１】と【２】のｖｂａは同じ意味ですか？

    【１】 Option Explicit Sub test1() Call test2("aaa") End Sub Sub test2(MyStr As String) MsgBox MyStr End Sub 【２】 Option Explicit Dim MyStr As String Sub test1() MyStr = "aaa" Call test2 End Sub Sub test2() MsgBox MyStr End Sub 結果は同じですが、中身が違います。 今後コードを作っていく上で どちらの方式の方が良いのでしょうか？

  • 配列　変数の宣言　ＶＢＡ

    こんばんは。 Sub test() Dim myStr(200) As String For 行 = 0 To Cells(Rows.Count, 1).End(xlUp).Row myStr(行) = Cells(行 + 1, 1) Next MsgBox Join(myStr, "_") End Sub のようなコート゛を作成し、 アクティブシートのＡ列の最終行までを取得し、一つにまとめたいのですが 「Dim myStr(200) As String」の部分で 最終行を取得することは不可能でしょうか？ 今回は２００行なので大丈夫なのですが 場合によっては1行～65536行までさまざまです。 なので Dim myStr(Cells(Rows.Count, 1).End(xlUp).Row) As String としたらエラーになりました。 最初から Dim myStr(65536) As String とするべきでしょうか？ しかしそうすると myStrの最後がずっと「________」となってしまいます。 どうするのが適切なのかわかりません。 ご教授よろしくお願いします。

  • グローバル変数などについて

    Option Explicit Dim str1 As String '・・・(1) Sub テスト() Dim str2 As String '・・・(2) str1 = "テスト1" str2 = "テスト2" MsgBox str1 MsgBox str2 End Sub (1)はグローバル変数と言うとの事ですが (2)は何変数と言うのでしょうか？ ローカル変数ですか？ また、(1)がdimではなく、 Public str1 As String となった場合でも、 プロシージャーの外にあれば、グローバル変数と言うのでしょうか？

  • 「:」を使えば、一行のコードにできるわけではない？

    「:」を使えば、一行のコードにできるわけではないのですか？ ｉｆステートメントを1行にしたいのですが Sub test() Dim a As String a = "aiu" If a Like "*i*" Then: Stop: End If End Sub これだと End If に対応する If ブロックがありません。 となってしまいます。 ちゃんと、 Sub test() Dim a As String a = "aiu" If a Like "*i*" Then Stop End If End Sub こうしないとダメですか？ なぜ、：は使えないのですか？ よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する