Excel VBA一旦匹配，如何find下一个值

我的下面的代码将显示从电话号码find的所有logging，但因为我有重复的电话号码。 例如：389905在Excel中有两个logging。 我想点击searchbutton来调出下一个匹配的电话号码。

这可能吗 ？

Private Sub CommandButton1_Click() row_number = 1 Do DoEvents row_number = row_number + 1 item_in_review = Sheets("Database").Range("A" & row_number) If item_in_review = txtCall.Text Then txtLogged.Text = Sheets("Database").Range("B" & row_number) txtName.Text = Sheets("Database").Range("C" & row_number) txtSite.Text = Sheets("Database").Range("D" & row_number) txtType.Text = Sheets("Database").Range("E" & row_number) txtTitle.Text = Sheets("Database").Range("F" & row_number) cmbOwner.Text = Sheets("Database").Range("G" & row_number) cmbResponder.Text = Sheets("Database").Range("H" & row_number) txtReference.Text = Sheets("Database").Range("I" & row_number) End If Loop Until item_in_review = "" End Sub 

Answer 1

一种方法是使用一个类来保存每组值：

创build一个类模块并将其命名为clsCallDetails 。
将此代码添加到模块中：

 Option Explicit 'Class module named 'ClsCallDetails' Private pLogged As String Private pName As String Private pSite As String Private pCallType As String Private pOwner As String Private pResponder As String Private pReference As String Public Property Get Logged() As String Logged = pLogged End Property Public Property Let Logged(Value As String) pLogged = Value End Property Public Property Get Name() As String Name = pName End Property Public Property Let Name(Value As String) pName = Value End Property Public Property Get Site() As String Site = pSite End Property Public Property Let Site(Value As String) pSite = Value End Property Public Property Get CallType() As String CallType = pCallType End Property Public Property Let CallType(Value As String) pCallType = Value End Property Public Property Get Owner() As String Owner = pOwner End Property Public Property Let Owner(Value As String) pOwner = Value End Property Public Property Get Responder() As String Responder = pResponder End Property Public Property Let Responder(Value As String) pResponder = Value End Property Public Property Get Reference() As String Reference = pReference End Property Public Property Let Reference(Value As String) pReference = Value End Property 

创build一个普通的模块，并添加这个代码：
编辑：最初有Find_CallNumbers作为一个function; 已经改变了一个分。

 Option Explicit 'Normal Module Public CallDetails As Collection Public Sub Find_CallNumbers(NumberToFind As String) Dim rng_to_search As Range Dim rFound As Range Dim FirstAddress As String Dim FoundItem As clsCallDetails Set CallDetails = New Collection With ThisWorkbook.Worksheets("Database") Set rng_to_search = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With With rng_to_search 'Look for the first instance. Set rFound = .Find(What:=NumberToFind, _ After:=.Cells(1, 1), _ LookIn:=xlValues, _ LookAt:=xlWhole, _ SearchDirection:=xlNext) If Not rFound Is Nothing Then FirstAddress = rFound.Address Do Set FoundItem = New clsCallDetails 'Create a new instance of the class to hold the details. With FoundItem .Logged = rFound.Offset(, 1) 'Offset from column A by 1 column, so column B. .Name = rFound.Offset(, 2) .Site = rFound.Offset(, 3) .CallType = rFound.Offset(, 4) .Owner = rFound.Offset(, 5) .Responder = rFound.Offset(, 6) .Reference = rFound.Offset(, 7) End With CallDetails.Add FoundItem 'Add the class instance to our collection. Set rFound = .FindNext(rFound) 'Look for the next value. 'Continue searching until we reach the top again. Loop While Not rFound Is Nothing And rFound.Address <> FirstAddress End If End With End Sub 

创build一个包含这些控件的表单（我把控件名称放在控件的上面）：

将此代码添加到表单中：

 Option Explicit Private Sub cmdFind_Click() Find_CallNumbers Me.txtSearchNumber Me.txtCurrentIndex = 1 PlaceValues (Me.txtCurrentIndex) End Sub Private Sub PlaceValues(Index As Long) With Me .txtLogged.Value = Format(CallDetails(Index).Logged, "HH:MM:SS") .txtName.Value = CallDetails(Index).Name '... '... End With End Sub Private Sub cmdNext_Click() Me.txtCurrentIndex = Me.txtCurrentIndex + 1 PlaceValues (Me.txtCurrentIndex) End Sub Private Sub cmdPrevious_Click() Me.txtCurrentIndex = Me.txtCurrentIndex - 1 PlaceValues (Me.txtCurrentIndex) End Sub 

当您search一个号码时，它会查找并显示第一个find的项目的详细信息。 点击“下一个/上一个”会转到下一个实例。
您需要添加错误检查 – 例如何时到达集合的结尾或开始处，或者找不到search到的编号。