ファインドネクスト

セルf158からaj2078の範囲の中から

２つのキーワードの条件を含むセルを検索してそのセルにカーソルが飛ぶようにしたいです！

例えば
キーワード1 家庭科
キーワード2 １１月
とキーワードを打ち込み、検索ボタンを押すと
上記キーワードの条件があったセルに移動したいです！

関数ではなく、VBAで作りたいのですが、うまくいきません。

回答宜しくお願いします

No.2 回答者： chiune 回答日時： 2021/12/03 15:37

書き忘れ

キーワード1　B1 セル
キーワード2　B2 セル

No.1 回答者： chiune 回答日時： 2021/12/03 15:34

ポイントは検索キーワードが1月や2月　でヒットしたとき、対象が11月や12月でないときをどうやって排除するか、かな。

Private Sub CommandButton1_Click()
Dim rg As Range
Dim xCell As Variant
Dim pt As Integer
Dim xFlg As Boolean
Set rg = Range("F158:AJ2078")

xFlg = False
Cells(1, 2).Select
For Each xCell In rg
If InStr(xCell.Value, Cells(1, 2).Value) > 0 Then
pt = InStr(xCell.Value, Cells(2, 2).Value)
If pt > 1 Then
If Len(Cells(2, 2).Value) = 3 Then
xFlg = True
Else
If Mid(xCell.Value, pt - 1, 1) <> "1" Then
xFlg = True
End If
End If
End If
If xFlg Then
xCell.Select
Exit For
End If
End If
Next
End Sub