![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_02.png?e8efa67)
オートフィルターによる検索で該当データがなかった場合に"データがありません"とメッセージを出し、再度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
どうぞ宜しくお願いします。
No.2ベストアンサー
- 回答日時:
こんな感じでしょうか?
'//
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAで日付入力しているのですが 4 2023/03/02 11:25
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
viで連続で検索したい時
-
エクセルの検索機能でコピーペ...
-
[Ctrl]+FをVBAで表現
-
Excelで、テキストボックスに書...
-
エクセルで検索結果を抽出し、...
-
教えてgooで質問者の名前で検索...
-
Word、特定の文字を網掛けにす...
-
検索キーワードが二重に表示さ...
-
インターネットの検索する時に...
-
[検索]の”縄張り”についての疑問
-
パソコンに詳しい男性からご回...
-
フォルダ内の検索欄に文字等が...
-
ACCESS VBA Filterに配列を使い...
-
「大舎制」ってなんて読むんで...
-
エクセルVBA オートフィルター
-
エクセルでテキストボックス内...
-
グーグル先生
-
NOTESのフォント設定
-
単純所持になりますか?
-
パソコン画面にたくさん開いて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
[Ctrl]+FをVBAで表現
-
Excelで、テキストボックスに書...
-
検索キーワードが二重に表示さ...
-
「大舎制」ってなんて読むんで...
-
Bingの「話題の検索ワード」を...
-
エクセルの検索機能でコピーペ...
-
エクセルで検索結果を抽出し、...
-
ACCESS VBA Filterに配列を使い...
-
windows11のエクスプローラーで...
-
viで連続で検索したい時
-
Word、特定の文字を網掛けにす...
-
エクセルでテキストボックス内...
-
フォルダ内の検索欄に文字等が...
-
メール内 本文の検索を行いた...
-
キティちゃんのカーソルを探し...
-
検索エンジンで個人情報入力は...
-
エクセルで~ (チルダー)が検...
-
InputBoxの値で検索して転記す...
-
VBA/ CurrentRegion.Find
-
【WordXP】網掛け文字の検索
おすすめ情報