| |
迅速な回答有り難うございます
でわ こちらのコードをアップしてみます
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
>
|
|
HIRO
- 05/8/11(木) 9:55 -
