VBA Countifメソッド ~メソッドの解説と使用例~

VBAのLike演算子とは?解説と使用例

ENGINEER.CLUB編集部

ENGINEER.CLUB編集部

はじめに
VBAの処理で、「データの比較を行いたい」「データの部分一致で判別したい」と思ったことはありませんか?
ここでは、比較を行う演算子「Like」について説明していきます。


1.Like演算子について

1-1.Like演算子とは

Like演算子は、2つの文字列を比較する演算子です。
演算子なので、「<」「>」「=」「!=」のような使い方をします。
また、ワイルドカードを用いて文字列を含むかの判定にも使用できます。

1-2.Like演算子の構文

[文字列A] Like [文字列B]
戻り値は、一致したら、true
一致しなかったら、false
比較する文字列のどちらかがNullならNull


2.Like演算子の使用例

2-1.基本的な使用例

Sub main1()
    Dim str1 As String
    Dim str2 As String
    Dim ret As String
    
    str1 = "123456"
    str2 = "123456"
    
    ret = str1 Like str2
    
    If ret = True Then
        MsgBox "「" + str1 + "」と「" + str2 + "」は同一です"
    ElseIf ret = False Then
        MsgBox "「" + str1 + "」と「" + str2 + "」は異なります"
    End If
    
End Sub

 

2-2.特殊な書き方をする場合

2-2-1.指定した文字列を含むかのチェック

Sub main2()
    Dim str1 As String
    Dim str2 As String
    Dim ret As String
    
    str1 = "123456"
    str2 = "1234*"
    
    ret = str1 Like str2
    
    If ret = True Then
        MsgBox "「" + str1 + "」は「" + str2 + "」を含みます"
    ElseIf ret = False Then
        MsgBox "「" + str1 + "」は「" + str2 + "」含みません"
    End If
    
End Sub

2-2-2.桁数をチェックする

Sub main3()
    Dim str1 As String
    Dim ret As String
    
    str1 = "123456"
    
    ret = str1 Like "######"
    
    If ret = True Then
        MsgBox "桁数が一致します"
    ElseIf ret = False Then
        MsgBox "桁数が一致しません"
    End If
    
End Sub

2-3.その他

完全一致のみを行う場合は、Like演算子を使わなくても、下記の様な式でも問題ありません。

 Range([比較したい文字列1]) = [比較したい文字列2]

3.最後に

Like演算子は、単純な比較なら他の関数等を使えますが、部分一致等使用範囲が広い演算子です。
ここで説明した以外にも用途はたくさんあるので、ここをきっかけに調べてみたください。

私たちは、全てのエンジニアに市場価値を高め自身の望む理想のキャリアを歩んでいただきたいと考えています。もし、今あなたが転職を検討しているのであればこちらの記事をご一読ください。理想のキャリアを実現するためのヒントが見つかるはずです。

『技術力』と『人間力』を高め定年まで働けるエンジニアを目指しませんか?

私たちは「技術力」だけでなく「人間力」の向上をもって、エンジニアとしてだけでなくビジネスパーソンとして高い水準を目指し、社会や顧客に必要とされることで、関わる人々に感動を与える集団であろうと思っています。

  • 定年までIT業界で働くためのスキルが身につく「感動大学」と「技術勉強会」!
  • 「給与が上がらない」を解消する6ヶ月に1度の明確な「人事評価制度」!
  • 理想のエンジニア像に近づくためのよきアドバイザー「専任コーチ制度」!
  • 稼動確認の徹底により実現できる平均残業時間17時間の働きやすい環境!

現在、株式会社ボールドでは「キャリア採用」のエントリーを受付中です。

まずは以下のボタンより弊社の紹介をご覧いただき、あなたの望むキャリアビジョンをエントリーフォームより詳しくお聞かせください。

コメント

IT業界を目指す求職者へ

プレミアムSES®で市場価値の高いエンジニアへ

株式会社ボールドが約束する5つのプレミアムとは?

IT業界を目指す求職者へ

プレミアムSES®で市場価値の高いエンジニアへ

株式会社ボールドが約束する5つのプレミアムとは?