(Excel No7)「テキストボックス内を検索」


テキストボックス内って、検索できないんですよね。
質問を受けるまで考えた事もありませんでした。
ところが、出来ないとなるとマクロで何とかしてみたくなるもんです。

===== ちょっとやってみましょうか======

Option Explicit

Sub Macro1()
    Dim src    As String
    Dim pos   As Long
    Dim pos2 As Long
    Dim all      As String
    Dim textb  As TextBox
    src = InputBox(prompt:="検索する文字列を入力して下さい。", _
         Title:="テキストボックス検索")
    With ActiveSheet
        For Each textb In .TextBoxes
            pos = 1
            With textb
               all = .Characters.Text
               Do
                   pos2 = InStr(pos, all, src)
                   If (pos2) Then
                       With .Characters(Start:=pos2, _
                               Length:=Len(src)).Font
                           .Bold = True
                           .ColorIndex = 3
                       End With
                   End If

                   pos = pos2 + 1
               Loop While pos2 > 0
           End With
        Next
textb
    End With
End Sub

================
残念ながら、見つかった文字を選択状態にするという事が出ませんでしたので、色づけして太字にしてみました。
みなさんも、色々応用ください。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA


このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください