Как понять "Dim a, b" без объявления типа? - PullRequest
0 голосов
/ 26 апреля 2019

У меня есть код, я пытаюсь понять, что означает «F» в этом коде. Dim q, F

полный код ниже.

Sub TextBox2_Change()
   Dim MySh As Worksheet
   Dim V As Integer, lastrow As Integer
   Dim M As String
   Dim q, F

   On Error Resume Next

   M = TextBox2.Value

   Set MySh = Sheets("db")

   With MySh
       lastrow = .Cells(.Rows.Count, "b").End(xlUp).Row
       Set q = .Range("b4:b" & lastrow).Find(M, LookIn:=xlValues, Lookat:=xlPart)

       If Not q Is Nothing Then
           F = q.Address

           Do               
               If Application.WorksheetFunction.Search(M, q, 0) = 1 Then
                   ListBox1.AddItem q.Value

                   ListBox1.List(V, 1) = q.Offset(0, 0).Value
                   ListBox1.List(V, 0) = q.Offset(0, -1).Value

                   V = V + 1
               End If

               Set q = .Range("b4:b" & lastrow).FindNext(q)
           Loop While Not q Is Nothing And q.Address <> F
       End If
   End With
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...