Excel VBA質問箱 IV

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

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


41557 / 76735 ←次へ | 前へ→

【40257】再整理:AutoFiltertがうまくいかない
質問  tatuya E-MAIL  - 06/7/10(月) 11:07 -

引用なし
パスワード
   申し訳ありません。整理して書き直します。
VBAのフォームのコンボボックスのリストに1.sheetの
C列の機種番号を範囲名指定し
 Private Sub UserForm_Initialize()で
 Combo機種.List = Range("機種番号").Valueで
 代入しています。質問は2.なのです。

1.EXCEL------------------------------------------
    C   | D  |  E   |  F   | 
2  機種番号|   |機種番号 |エラー番号 |
3  BS12  |   |BS12   |4551    |
4  DF55  |   |BS12   |4552    |
5      |   |BS12   |4553    |
6      |   |DF55   |1553    |
7      |   |DF55   |1553    |
8      |   |DF55   |1553    |
9      |   |DF55   |1553    |
10      |   |BS12   |4554    |
-----------------------------------------------

Sheetの【F列は 範囲名 エラー番号】としてあり
以下のVBAで1.のコンボボックスで選んだ機種番号で
SheetのE列でフィルターし、E列:機種番号に
合うF列:エラー番号だけを選択し、フォームの
下記VBAComboエラー番号.Listにエラー番号を
代入したいと思っています。
しかし、下記問題箇所なのですがフィルターはシート上
上手く選択させているにもかかわらず全てのエラー番号が
代入されてしまっています。つまりフィルターの効果が
反映さていないのです。下記問題箇所をどう書き換えたらいいか
教えていただけませんか?宜しくお願いします。
2.-------------------------------------------------------------
Private Sub Comboエラー番号_Enter()
  Worksheets("エラー項目").Select
  Range("E2").AutoFilter
  Range("E2").AutoFilter Field:=4, Criteria1:=Text機種番号.Value
  Comboエラー番号.List = Range("エラー番号").Value <----★問題箇所
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 お礼

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