код ниже не может искать что-либо в столбце C - PullRequest
0 голосов
/ 04 февраля 2020

Этот код не может найти фигуру в столбце c, кто-нибудь может подсказать мне, как решить эту проблему? этот код оригинала предназначен для textbox1, а также для столбца B, но после того, как я его отредактировал, он больше не работает

Private Sub TextBox2_Change ()

Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

Dim iLast As Long
iLast = ws.Range("C" & Rows.Count).End(xlUp).Row

' create regex pattern
Dim sPattern As String
sPattern = CStr(TextBox2.Value)

'create regex engine
Dim Regex As Object
Set Regex = CreateObject("vbscript.regexp")
With Regex
  .Global = True
  .MultiLine = False
  .IgnoreCase = True
  .Pattern = sPattern
End With

' build selection array
Dim r As Long, i As Long, s As String, ar() As String
ReDim ar(iLast)
i = 0
For r = 7 To iLast
   s = CStr(ws.Range("C" & r).Value)
   If Len(s) > 0 And Regex.test(s) Then
     ar(i) = s
     i = i + 1
   End If
Next
ReDim Preserve ar(i)

' apply filter
If Len(TextBox2.Value) = 0 Then
    ws.AutoFilterMode = False
Else
    ws.Range("B7:G" & Rows.Count).AutoFilter Field:=2, _
    Operator:=xlFilterValues, _
    Criteria1:=ar
End If

End Sub

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...