エクセルVBA オートフィルター

解決済

質問者：Slash
質問日時：2016/11/08 19:19
回答数：2件

オートフィルターによる検索で該当データがなかった場合に"データがありません"とメッセージを出し、再度UserFormにて再検索が出来る様にしたいです。

現状は、「～含む」でオートフィルターがかかるようになってます。
現在のコードです。

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False

If TextBox2.Text = "" Then
MsgBox "検索条件を入力してください"
Exit Sub
End If
検索Data = UserForm1.TextBox2.Value
　With Worksheets("Sheet1").Range("A2").CurrentRegion
　.AutoFilter Field:=3, Criteria1:="=*" & 検索Data & "*"
Unload Me
Exit Sub
End With
End Sub

どうぞ宜しくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

No.2ベストアンサー

回答者： WindFaller
回答日時：2016/11/08 21:27

こんな感じでしょうか？

'//
Private Sub CommandButton2_Click()
　Application.ScreenUpdating = False '?
　If TextBox2.Text = "" Then
　　MsgBox "検索条件を入力してください"
　　Exit Sub
　End If
　検索Data = UserForm1.TextBox2.Value
　With Worksheets("Sheet1")
　　If .AutoFilterMode Then　　　
　　　.AutoFilterMode = False
　　End If
　　With .Range("A2").CurrentRegion
　　　.AutoFilter
　　　.AutoFilter Field:=3, Criteria1:="=*" & 検索Data & "*"
　　End With
　　If WorksheetFunction.Subtotal(3, .AutoFilter.Range.Columns(1)) = 1 Then
　　　MsgBox "データがありません。やり直してください。", vbExclamation
　　　.AutoFilter.ShowAllData
　　　TextBox2.Value = ""
　　Else
　　　Unload Me
　　End If
　End With
End Sub