－ちょっと使えるネタを紹介－
Excel VBAで、テキストボックスの値を検索する方法について、ご紹介します。検索する方法は、テキストを「.TextFrame.Characters.Text」で取得して、検索は「InStr」を使うという感じです。「For Each」を使えば、シート内の全てのテキストボックスを検索できます。
この記事では、テキストボックスの値を検索する方法について、ご紹介します。
テキストボックスの値を検索するには、まずは、「.TextFrame.Characters.Text」でテキストを取得します。
テキストの値が取得できれば、「InStr」を使って、値を検索することができます。
この流れを「For Each」でループして、シート内の全てのテキストボックスの値を検索する、という手順です。
では、テキストボックスの値を検索する方法について、解説していきます。
この記事で紹介すること
目次から見たい項目へ移動すると便利ですよ。
目次
VBAで、選択したテキストボックスの値を検索する、というのをやってみます。
選択したテキストボックスの値を取得するには、「Selection.ShapeRange.TextFrame.Characters.Text」を使います。
ちょっと長いですね。
これを使って次のように値を取得します。
a = Selection.ShapeRange.TextFrame.Characters.Text
テキストボックスの値が取得できれば、あとは、「InStr」で値を検索することができます。
では、選択したテキストボックスで、テキストボックスの値を検索してみます。
選択したテキストボックスの、値を検索してみます。
「あいう」が含まれているかを検索してみます。
Sub TEST1()
'選択したテキストボックスの値を取得
a = Selection.ShapeRange.TextFrame.Characters.Text
'テキストボックスの値を検索
If InStr(a, "あいう") > 0 Then
MsgBox "「あいう」が含まれている"
Else
MsgBox "「あいう」が含まれていない"
End If
End Sub
テキストボックスを選択しておきました。
では、実行してみます。
結果は、「「あいう」が含まれている」となりました。
テキストボックスの値を検索できています。
次は、指定したテキストボックスで、値を検索してみます。
指定したテキストボックスから、テキストを取得するには、次のように入力します。
a = Activesheet.Shape(テキストボックス名).TextFrame.Characters.Text
という感じです。
では、指定したテキストボックスで、値を検索してみます。
先ほどと同じように、テキストボックスに「あいう」が含まれているか、検索してみます。
テキストボックスを指定する場合は、こんな感じになります。
Sub TEST2()
'指定したテキストボックスの値を取得
a = ActiveSheet.Shapes("正方形/長方形 1").TextFrame.Characters.Text
'テキストボックスの値を検索
If InStr(a, "あいう") > 0 Then
MsgBox "「あいう」が含まれている"
Else
MsgBox "「あいう」が含まれていない"
End If
End Sub
テキストボックスを用意しておきました。
では、実行してみます。
結果は、「「あいう」が含まれている」となりました。
正しく、テキストボックスの値を検索できています。
次は、シート内の全てのテキストボックスの値を検索してみます。
これが、実務的ですね。
「For Each」を使って、シート内の図形を全てループして、テキストボックスの値を検索する、という感じでやります。
では、やってみます。
シート内の全てのテキストボックスをループして、「あいう」が含まれていたら選択する、というのをやってみます。
VBAコードは、こんな感じになります。
Sub TEST3()
'シート内の全ての図形をループ
For Each a In ActiveSheet.Shapes
'テキストボックスで、「あいう」を検索
If InStr(a.TextFrame.Characters.Text, "あいう") > 0 Then
a.Select False '選択する
End If
Next
End Sub
シート内に複数のテキストボックスを用意しました。
では、実行してみます。
「あいう」が含まれている図形を、選択できました。
正しく、テキストボックスの値を検索できています。
「For Each」で図形をループする場合に、「画像」がシート内に含まれていると、テキストを取得するところでエラーとなってしまいます。
こんな感じです。
画像をシート内に追加しています。
VBAコードは、先ほどと同じものを使います。
Sub TEST4()
'シート内の全ての図形をループ
For Each a In ActiveSheet.Shapes
'テキストボックスで、「あいう」を検索
If InStr(a.TextFrame.Characters.Text, "あいう") > 0 Then
a.Select False '選択する
End If
Next
End Sub
では、実行してみます。
という感じで、画像からテキストを取得しようとすると、エラーとなってしまいます。
なので、オートシェイプか吹き出しの場合に検索する、という条件を追加してあげます。
シート内の図形を検索する際に、オートシェイプか吹き出しである、という条件を追加してみます。
次のようなVBAコードとなります。
Sub TEST5()
'シート内の全ての図形をループ
For Each a In ActiveSheet.Shapes
'オートシェイプ、もしくは、吹き出しの場合
If a.Type = 1 Or a.Type = 2 Then
'テキストボックスで、「あいう」を検索
If InStr(a.TextFrame.Characters.Text, "あいう") > 0 Then
a.Select False '選択する
End If
End If
Next
End Sub
オートシェイプのタイプが「1」で、吹き出しのタイプが「2」です。
先ほどと同じように、シートに画像を追加しておきます。
では、テキストボックスの値を検索してみます。
今度は、エラーとならず、テキストボックスが選択されました。
「あいう」が含まれるテキストボックスを、正しく検索できています。
こんな感じで、テキストボックスの値を検索する場合は、「オートシェイプ」もしくは「吹き出し」の条件をつけて、検索しましょう。
先ほどの選択するVBAコードを使うと、検索できたテキストボックスを削除する、ということもできます。
VBAコードはこんな感じになります。
Sub TEST6()
'シート内の全ての図形をループ
For Each a In ActiveSheet.Shapes
'オートシェイプ、もしくは、吹き出しの場合
If a.Type = 1 Or a.Type = 2 Then
'テキストボックスで、「あいう」を検索
If InStr(a.TextFrame.Characters.Text, "あいう") > 0 Then
a.Delete '削除する
End If
End If
Next
End Sub
複数のテキストボックスを用意しました。
では、実行してみます。
「あいう」が含まれるテキストボックスを削除できました。
最後に、検索できたテキストボックスのテキストを取得する、というのをやってみます。
VBAコードはこんな感じになります。
Sub TEST7()
'シート内の全ての図形をループ
For Each a In ActiveSheet.Shapes
'オートシェイプ、もしくは、吹き出しの場合
If a.Type = 1 Or a.Type = 2 Then
'テキストボックスで、「あいう」を検索
If InStr(a.TextFrame.Characters.Text, "あいう") > 0 Then
'テキストを取得
Debug.Print a.TextFrame.Characters.Text
End If
End If
Next
End Sub
複数のテキストボックスを用意しました。
では、実行してみます。
「あいう」が含まれるテキストボックスのテキストを、取得できました。
こんな感じで、「For Each」を使って、テキストボックスをループすると、テキストボックスの検索ができます。
この記事では、テキストボックスの値を検索する方法について、ご紹介しました。
テキストボックスの値を検索するには、「.TextFrame.Characters.Text」でテキストを取得します。
テキストの値が取得できれば、「InStr」を使って、値を検索することができます。
この流れを「For Each」でループして、シート内の全てのテキストボックスの値を検索する、という手順です。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する