|
KOBASANさん
お手数おかけしました。
なぜか 新しくファイルを作りなおしえてやってみたところ
うまく動きました。 原因は不明ですW
セルを複数結合していたのがまずかったのでしょうか?
なんにせよ うまくいき一安心です
親切に有り難うございました
▼kobasan さん:
>▼HIRO さん今晩は。
>
>>やはりこちらでは正常に動作しません
>
>>まったくこちらでは 原因がわかりません
>
>>エクセルのバージョンの違いとか 関係あるのでしょうか?
>>ちなみにこちらは2000をしようしています
>
>私も2000です。2000,2003でOKでした。
>
>'ComboBox1にA14,ComboBox2にB14,ComboBox3にC14の値をセットして、
>'macro9を実行して、メッセージボックスの値を比較してみてください
>'*〜*"の値を比較して、上段の3行が下段の3行と違っていたら、
>'ComboBoxのリストを作るコードを見直す必要があります。
>'メッセージボックスの値が同じであれば、他を検討する必要があります。
>
>Sub Macro9()
> Application.ScreenUpdating = False
>
> c1 = Sheet1.ComboBox1.Text
> c2 = Sheet1.ComboBox2.Text
> c3 = Sheet1.ComboBox3.Text
>
> With Worksheets("Sheet1").Range("A13")
> .AutoFilter
> 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
>
> MsgBox "ComboBox1===>*" & c1 & "*" & Chr(13) & _
> "ComboBox2===>*" & c2 & "*" & Chr(13) & _
> "ComboBox3===>*" & c3 & "*" & Chr(13) & Chr(13) & _
> "A14===>*" & Range("A14").Text & "*" & Chr(13) & _
> "B14===>*" & Range("B14").Text & "*" & Chr(13) & _
> "C14===>*" & Range("C14").Text & "*" & Chr(13)
>End Sub
|
|