VBAを使用した複数の条件の検索

Question

ユーザーフォームには、「日付」と「シフト」という2つのテキストボックスと、コードをトリガーするボタンがあります。 data.xlsxという名前のExcelファイルもあります。 "sheet1"には、カラム日付が07/02/2017として追加され、BカラムシフトがA/B/Cとして追加されます。

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

ので、私は何をしたい列の行番号が「2017年7月2日」を含んでおり、B列がdata.xlsxに「C」が含まれて見つけることです。

Answer 1

列B（Match関数を使用）でShift行を検索するには、以下のコードを試してください。

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