Excel VBA質問箱 IV

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

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


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

53972 / 76732

←次へ　｜　前へ→


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

kobasan - 05/8/11(木) 19:07 -


	引用なし

	パスワード

▼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

0 hits

▼

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