Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

53998 / 76732

←次へ　｜　前へ→


	【27538】Re:オートフィルタについて

kobasan - 05/8/11(木) 9:38 -


	引用なし

	パスワード

▼HIRO さん　おはようございます。

>2つ目の条件を入力すると表全体が閉じてしまうのですが

このことが、表示されるデータがないということでしたら
Sheet1.ComboBox1.TextとSheet1.ComboBox2.Textの両方に該当するデータが
あるか調べてみてください。
（私が作ったサンプルでは動くのですが）
それから、追加を入れておくといいと思います。

これでなかったらコードを見ないと何とも言えないので、どのようなコードなのか
アップしてみてください。

>>With Worksheets("Sheet1").Range("A13")
　　　.AutoFilter　　 '<=========一度AutoFilter解除 ==========追加
>>　　If c1 <> "" Then .AutoFilter field:=1, Criteria1:=c1

>どうしても 2つ目の条件を入力すると表全体が閉じてしまうのですが
>セルの設定とか変数の形式とか関係あるのでしょうか？
>普通にオートフィルターの機能を使うと出来るので設定の問題では
>ないとおもうのですが。
返事が遅くなりましたが
どうしても 2つ目の条件を入力すると表全体が閉じてしまうのですが
セルの設定とか変数の形式とか関係あるのでしょうか？
普通にオートフィルターの機能を使うと出来るので設定の問題では
ないとおもうのですが。

▼kobasan さん：
>▼HIRO さん　今晩は
>
>これでできると思います。
>

>▼kobasan さん：
>>▼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
>>
>>

2 hits

▼

【27511】オートフィルタについて HIRO 05/8/10(水) 16:32