Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


39111 / 76732 ←次へ | 前へ→

【42740】Re:オートフィルタで複数検索
発言  Jaka  - 06/9/20(水) 13:31 -

引用なし
パスワード
   オートフィルターで、Selectionとかあいまいな表現をしたことないですが、
テキストボックスの値を見て素直に分けたら良いと思います。
(と、書いておきながら、Fugo部分が素直じゃないですが...。)

Dim Fugo As Variant
Fld = 23
If 電話番号.Value = True Then
  Fugo = xlAnd
Else
  Fugo = xlOr
End If
If サーチ1.Value <> "" And サーチ2.Value Then
  Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ1.Value & "*", _
                  Operator:=Figo, Criteria2:="*" & サーチ2.Value & "*"
ElseIf サーチ1.Value <> "" Then
  Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ1.Value & "*"
ElseIf サーチ2.Value <> "" Then
  Selection.AutoFilter Field:=Fld, Criteria1:="*" & サーチ2.Value & "*"
End If
0 hits

【42737】オートフィルタで複数検索 ミーナ 06/9/20(水) 12:37 質問
【42740】Re:オートフィルタで複数検索 Jaka 06/9/20(水) 13:31 発言
【42744】Re:オートフィルタで複数検索 ミーナ 06/9/20(水) 14:00 質問
【42745】Re:オートフィルタで複数検索 Jaka 06/9/20(水) 14:08 発言
【42746】Re:オートフィルタで複数検索 ミーナ 06/9/20(水) 14:11 質問
【42747】Re:オートフィルタで複数検索 Jaka 06/9/20(水) 14:20 発言
【42771】Re:オートフィルタで複数検索 ミーナ 06/9/21(木) 11:48 お礼

39111 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free