Excel VBA質問箱 IV

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

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


54019 / 76732 ←次へ | 前へ→

【27517】Re:オートフィルタについて
回答  kobasan  - 05/8/10(水) 18:35 -

引用なし
パスワード
   ▼HIRO さん 今晩は

これでできると思います。

c1 = Sheet1.ComboBox1.Text
c2 = Sheet1.ComboBox2.Text
c3 = Sheet1.ComboBox3.Text

With Worksheets("Sheet1").Range("A13")
  If c1 <> "" Then .AutoFilter field:=1, Criteria1:=c1
  If c2 <> "" Then .AutoFilter field:=2, Criteria1:=c2
  If c3 <> "" Then .AutoFilter field:=3, Criteria1:=c3
End With


>VBAにおいて オートフィルターを使用して表を絞り込み検索したいのですが
>複数の列(項目)において AND で絞り込みたいのです
>検索するキーはコンボボックスより取得して 絞り込む項目は
>3つでいずれも入力されていないものは無視して動作させたいのです
>現在
>
>If Sheet1.ComboBox1.Text = "" Then
>Else
>Worksheets("Sheet1").Range("A13").AutoFilter _
>  field:=1, _
>  Criteria1:=A
>End If
>
>このように指定しているのですが
>このやり方で更に他の列(項目)を追加したい時はどうしたらいいでしょうか?
>自分は上記の指定を複数使用したら出来るのかと思い試しましたが
>うまく検索する事が出来ませんでした。
0 hits

【27511】オートフィルタについて HIRO 05/8/10(水) 16:32 質問
【27517】Re:オートフィルタについて kobasan 05/8/10(水) 18:35 回答
【27536】Re:オートフィルタについて HIRO 05/8/11(木) 9:11 質問
【27538】Re:オートフィルタについて kobasan 05/8/11(木) 9:38 発言
【27539】Re:オートフィルタについて HIRO 05/8/11(木) 9:55 質問
【27542】Re:オートフィルタについて kobasan 05/8/11(木) 11:35 発言
【27545】Re:オートフィルタについて HIRO 05/8/11(木) 13:01 お礼
【27564】Re:オートフィルタについて kobasan 05/8/11(木) 19:07 発言
【27584】Re:オートフィルタについて HIRO 05/8/12(金) 14:49 質問
【27587】Re:オートフィルタについて kobasan 05/8/12(金) 15:09 回答

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