Excel VBA質問箱 IV

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

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


53954 / 76732 ←次へ | 前へ→

【27584】Re:オートフィルタについて
質問  HIRO  - 05/8/12(金) 14:49 -

引用なし
パスワード
   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
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 回答

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