Excel VBA質問箱 IV

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

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


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

53960 / 76738

←次へ　｜　前へ→


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

HIRO - 05/8/12(金) 14:49 -


	引用なし

	パスワード

KOBASANさん
お手数おかけしました。
なぜか新しくファイルを作りなおしえてやってみたところ
うまく動きました。原因は不明ですＷ
セルを複数結合していたのがまずかったのでしょうか？
なんにせようまくいき一安心です
親切に有り難うございました

▼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

0 hits

▼

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