用VBA找到多个条件

Question

我有一个用户窗体有两个文本框命名为“日期”和“移位”，按钮来触发代码。还有一个名为data.xlsx的excel文件，“sheet1”的A列的日期已添加为07/02/2017，B列的添加为A/B/C。

date.value = "07/02/2017" 
shift.value = "C" 

，所以我想要做的是找到一个列的行数中包含“2017年7月2日”和B列中包含“C”的data.xlsx。

Answer 1

请尝试下面的代码以找到列B中的Shift行（使用Match函数）。

您应该可以进行修改以使其也可以从dateTextBox中查找日期。

代码

Sub CommandButton1_Click() 

' this code goes inside the command button (inside the User_Form module) 
Dim ValToSearch 
Dim MatchRes As Variant 

ValToSearch = Me.shift.Value '<-- get the value to look for 

With Worksheets("Sheet1") 
    MatchRes = Application.Match(ValToSearch, .Range("B:B"), 0) 
    If IsError(MatchRes) Then '<-- match not found 
     MsgBox "Not found" 
    Else 
     MsgBox "Found at row " & MatchRes 
    End If 
End With 

End Sub