セルA1に「aaa」、「bbb」、「ccc」のいずれかを含む文字を入力し、プロシージャを実行した場合、str1に指定した複数の文字のいずれかが、セルA1に入力されている文字に含まれるかどうかを判定したいのですが、どのような方法があるのでしょうか。下記コードではエラーとなってしまいます。宜しくお願いします。
Sub sample()
Dim str1 As String
Dim str2 As String
str1 = "aaa,bbb,ccc"
str2 = Split(str1, ",")
If InStr(Cells(1, 1), str2) <> 0 Then
MsgBox "含まれます"
End If
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは!
色々やり方はありますが、一例です。
Sub Sample1()
Dim k As Long, myFlg As Boolean, myAry As Variant
myAry = Array("aaa", "bbb", "ccc")
For k = 0 To UBound(myAry)
If InStr(Range("A1"), myAry(k)) > 0 Then
myFlg = True
Exit For
End If
Next k
If myFlg = True Then
MsgBox "含まれています"
End If
End Sub
こんな感じでも大丈夫だと思います。m(_ _)m
ありがとうございます。配列を使用することで、含まれているかチェックする事が出来ました。配列に使う変数は、Variant型にしないとエラーになってしまうのですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Excel(エクセル) VBAで “:” を含むセルの特定 2 2023/05/11 16:30
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) countifsについての質問 3 2023/03/08 13:45
- Visual Basic(VBA) セルの値からファイルを複数作りたい2 3 2022/10/07 15:54
- Visual Basic(VBA) ワークブック内すべて検索 2 2022/12/20 20:13
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 行の値を累計したい...
-
トラックへの荷物の積みかたを...
-
剛体の力学の問題 正三角形
-
抵抗値計算
-
抵抗を使用したインピーダンス...
-
VBAでグループごとソートす...
-
電気回路の閉路方程式の問題
-
エクセルで集計
-
ブタジエン(M1)/アクリロニトリ...
-
黄色マーカVbと書いてあるので...
-
外力のある相対運動
-
μって?
-
材料力学について質問です。 問...
-
作った表から一覧表を作成をしたい
-
iPadAir2か、iPad mini3か、PS4
-
エクセル 指定した複数の文字の...
-
並列の合成抵抗での計算
-
材料力学の問題ですが
-
対称・反対称な波動関数
-
エクセルのVBAのことで
おすすめ情報