Excel VBA質問箱 IV

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

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


8754 / 13644 ツリー ←次へ | 前へ→

【31378】オートフィルタの選択をコンボボックスで 森のクマさん 05/11/18(金) 15:35 質問[未読]
【31383】Re:オートフィルタの選択をコンボボックスで Jaka 05/11/18(金) 15:54 発言[未読]
【31385】Re:オートフィルタの選択をコンボボックスで Kein 05/11/18(金) 16:06 回答[未読]
【31388】Re:オートフィルタの選択をコンボボックスで 森のクマさん 05/11/18(金) 16:16 発言[未読]
【31394】Re:オートフィルタの選択をコンボボックスで Kein 05/11/18(金) 16:54 発言[未読]
【31397】Re:オートフィルタの選択をコンボボックスで 森のクマさん 05/11/18(金) 17:19 お礼[未読]

【31378】オートフィルタの選択をコンボボックスで
質問  森のクマさん  - 05/11/18(金) 15:35 -

引用なし
パスワード
   1列目 題名のようなもの
2列目 項目です。

  A  B  C  D・・
3 あ  か さ た・・
4 い  き し ち・・
5 う  く す つ・・
6 あ  け せ て・・
・ ・  ・ ・ ・
・ ・  ・ ・ ・
・ ・  ・ ・ ・

A列でフィルタをかけるとして
ユーザフォームのコンボボックスに
 あ
 い
 う
と重複なしで表示し選択するとフィルタがかかるようにしたいです。
ご指導をお願いします。

【31383】Re:オートフィルタの選択をコンボボック...
発言  Jaka  - 05/11/18(金) 15:54 -

引用なし
パスワード
   参考になる?コードも含まれてます。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=84;id=FAQ

また、Match使っているので1次元配列の大きさが5000だか8000だか忘れましたが、超えるとエラーになります。

【31385】Re:オートフィルタの選択をコンボボック...
回答  Kein  - 05/11/18(金) 16:06 -

引用なし
パスワード
   フォームモジュールに記述するコードは

Private Sub UserForm_Initialize()
  With Worksheets("Sheet1")
   Set MyR = .Range("A3", .Range("A65536").End(xlUp))
   .Range("A2", .Range("A65536").End(xlUp)).AdvancedFilter _
    xlFilterInPlace, , , True
   For Each C In MyR.SpecialCells(12)
     Me.ComboBox1.AddItem C.Value
   Next
   .ShowAllData
  End With
End Sub

Private Sub ComboBox1_Change()
  With Worksheets("Sheet1")
   .Activate
   .Range("A2", .Range("A65536").End(xlUp)) _
   .AutoFilter 1, ComboBox1.Value
  End With
End Sub

Private Sub UserForm_Terminate()
  Worksheets("Sheet1").AutoFilterMode = False
End Sub

てな感じでしょうか。対象シートの指定は、適宜変更して下さい。

【31388】Re:オートフィルタの選択をコンボボック...
発言  森のクマさん  - 05/11/18(金) 16:16 -

引用なし
パスワード
   Kein さんへ

下記にコードを実行したところ、
実行時エラー’1004’
WorksheetクラスのShowAllDataメソッドが失敗しました。
と表示されてしまいました。

【31394】Re:オートフィルタの選択をコンボボック...
発言  Kein  - 05/11/18(金) 16:54 -

引用なし
パスワード
   こちらではテスト済みです。全く問題なく動作しましたが・・。
もしかして最初から重複がなかった、というわけではないでしょうね・・。
あと、処理対象シートの指定は間違っていませんか ?

【31397】Re:オートフィルタの選択をコンボボック...
お礼  森のクマさん  - 05/11/18(金) 17:19 -

引用なし
パスワード
   Kein さんへ

申し訳ありませんでした。
データミスで重複がなかったみたいです。
正常動作を確認しました。
有り難う御座いました。

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