Excel VBA質問箱 IV

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

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


41618 / 76732 ←次へ | 前へ→

【40193】Re:AutoFiltertがうまくいかない
質問  tatuya E-MAIL  - 06/7/8(土) 9:50 -

引用なし
パスワード
   ハトさん・ひげくまさん ご回答誠にありがとう御座いました。
お二方のご回答で見事どちらも成功しました。感謝です。
★でなんですが出来ればもう少しお教えいただければと思います。
フィルターで抽出した結果は見た目ではちゃんと絞り込まれているのに
実際テストしてみるとComboエラー番号.ListにはComboエラー番号.List
の全ての値が表示されてしまいます。つまりフィルターの結果が
反映されていないのです。
『現在』-------------------------------------------------
Private Sub Comboエラー番号_Enter()
  Worksheets("エラー項目").Select
  Range("E2").AutoFilter
  Range("E:E").AutoFilter Field:=1, Criteria1:=Text機種番号.Value
  Comboエラー番号.List = Range("エラー番号").Value
End Sub
-------------------------------------------------------------
★F列(F2-F10)には 範囲名 エラー番号としてあります。


そこで自分なりに調べてみて以下のようにしてみたのですが
エラーが出て止まってしまいます。何か良い方法はありませんでしょうか?
宜しくお願い致します。≦(._.)≧

『★の行でエラーで止まってしまいます』---------------------------
Private Sub Comboエラー番号_Enter()
  Worksheets("エラー項目").Select
  Range("E2").AutoFilter
  MsgBox (Combo機種.Value)
  Range("E2").AutoFilter Field:=4, Criteria1:=Combo機種.Value
★ Comboエラー番号.List = Range("エラー番号").CurrentRegion.SpecialCells(xlVisible)
End Sub
-----------------------------------------------------------------
0 hits

【40151】AutoFiltertがうまくいかない tatuya 06/7/7(金) 15:47 質問
【40154】Re:AutoFiltertがうまくいかない ハト 06/7/7(金) 16:16 回答
【40155】Re:AutoFiltertがうまくいかない ひげくま 06/7/7(金) 16:23 発言
【40193】Re:AutoFiltertがうまくいかない tatuya 06/7/8(土) 9:50 質問
【40212】Re:AutoFiltertがうまくいかない gako 06/7/9(日) 7:46 発言
【40257】再整理:AutoFiltertがうまくいかない tatuya 06/7/10(月) 11:07 質問
【40281】Re:再整理:AutoFiltertがうまくいかない ハト 06/7/10(月) 16:20 回答
【40312】感謝:再整理:AutoFiltertがうまくいかない tatuya 06/7/11(火) 11:35 お礼

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