Question

我有一个用户表单有2个文本框，名为＆＃34; date＆＃34;并且＆＃34;转移＆＃34;和按钮来触发代码。还有一个名为data.xlsx的excel文件有＆＃34; sheet1＆＃34;将列日期添加为07/02/2017，B列移位添加为A / B / C.

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

所以我想要做的是找到A列的行号包含＆＃34; 07/02/2017＆＃34;和B列包含＆＃34; C＆＃34;在data.xlsx。

Answer 1

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

您应该能够进行修改，以便从date TextBox中查找日期。

<强>代码

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

使用VBA查找多个条件

1 个答案: