Excel VBA質問箱 IV

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

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


54003 / 76738 ←次へ | 前へ→

【27539】Re:オートフィルタについて
質問  HIRO  - 05/8/11(木) 9:55 -

引用なし
パスワード
   迅速な回答有り難うございます
でわ こちらのコードをアップしてみます
Sub TEST()
'*************************************************************************
'*オートフィルター処理                          *
'*                                    *
'*************************************************************************

Dim A, B, C As String


A = Sheet1.ComboBox1.Text
B = Sheet1.ComboBox2.Text
C = Sheet1.ComboBox3.Text

If Worksheets("Sheet1").FilterMode = True Then
Worksheets("Sheet1").ShowAllData
End If

With Worksheets("Sheet1").Range("A13")
  If A <> "" Then .AutoFilter field:=1, Criteria1:=A
  If B <> "" Then .AutoFilter field:=2, Criteria1:=B
  If C <> "" Then .AutoFilter field:=3, Criteria1:=C
End With


End Sub

このような感じでいま コーディングしています。
データはちゃんとありますので大丈夫なはずなのですが
といいますのも 別表で作成した物からコンボボックスのリストに項目を
追加して、更に検索する表はそれをもとに作られているので
データがないという事はないとおもうのですが
何度もすみませんが回答のほどよろしくお願いします

▼kobasan さん:
>▼HIRO さん おはようございます。
>
>>2つ目の条件を入力すると表全体が閉じてしまうのですが
>
>このことが、表示されるデータがないということでしたら
>Sheet1.ComboBox1.TextとSheet1.ComboBox2.Textの両方に該当するデータが
>あるか調べてみてください。
>(私が作ったサンプルでは動くのですが)
>それから、追加を入れておくといいと思います。
>
>これでなかったらコードを見ないと何とも言えないので、どのようなコードなのか
>アップしてみてください。
>
>
>>>With Worksheets("Sheet1").Range("A13")
>   .AutoFilter   '<=========一度AutoFilter解除 ==========追加
>>>  If c1 <> "" Then .AutoFilter field:=1, Criteria1:=c1
>

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 回答

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