VBA Excel宏不區分大小寫

Question

我有這段代碼，我需要一些幫助使其不區分大小寫。 現在，serch區分大小寫，我有一些excel表，其中包含大寫和小寫的數據。 謝謝

Sub FormatSelection()

    Dim cl As Range
    Dim SearchText As String
    Dim StartPos As Integer
    Dim EndPos As Integer
    Dim TestPos As Integer
    Dim TotalLen As Integer

    On Error Resume Next
    Application.DisplayAlerts = False
    SearchText = Application.InputBox _
    (Prompt:="Enter string.", Title:="Which string to format?", Type:=2)
    On Error GoTo 0
    Application.DisplayAlerts = True
    If SearchText = "" Then
        Exit Sub
    Else
        For Each cl In Selection
          TotalLen = Len(SearchText)
          StartPos = InStr(cl, SearchText)
          TestPos = 0
          Do While StartPos > TestPos
            With cl.Characters(StartPos, TotalLen).Font
              .FontStyle = "Bold"
              .ColorIndex = 3
            End With
            EndPos = StartPos + TotalLen
            TestPos = TestPos + EndPos
            StartPos = InStr(TestPos, cl, SearchText, vbTextCompare)
          Loop
        Next cl
    End If
End Sub

Answer 1

更改這一行

StartPos = InStr（Ucase（cl），Ucase（SearchText））