【Excelマクロ】特定のタイミングでオートフィルタ－を解除し、コンボボックスの表示項目を変更するには。

質問

お教えください。
まずは現状です。
シート１とシート２があります。
シート１上にはコンボボックスがあります。
コンボボックス内の項目を選択すると、シート１内でオートフィルタ－が実行され、選択項目をキーに絞り込まれます。
シート１とシート２はそれぞれ画面上のボタンで行き来できます。
シート２にはコンボボックスはありません。

ここで質問です。
(1)シート１でコンボボックスを利用し、オートフィルタ－を実行したまま状態で、(2)シート２にボタン（ないしは下のタブ）で移動します。(3)さらに再度ボタン（ないしは下のタブ）でシート１に戻るとします。
(1)～(3)の操作を行った時に、シート１のオートフィルタ－を解除し、コンボボックスの表示項目を「すべて表示」という項目に自動変更させる方法はありますでしょうか？

下記がボタン押下時のコードです。
一応ボタンで戻った時にオートフィルタ－は解除できるようになりました。下のタブだと変化なしです。

Sub ボタンA_Click()
'　シート１を開く
Sheets("シート１").Select
End Sub
Sub ボタンB_Click()
If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If
'　シート２を開く
Sheets("シート２").Select
End Sub

現状ではコンボボックスはそのままで、（タブで戻った時は）オートフィルタ－も変わりません。
どなたかご指南ください。
よろしくお願いします。

回答No.3

myRange · ベストアンサー

そうです。そうやってひとつずつ解決していけばいいのです。

（大前提）
CommandButton,ComboBoxなどのコントロールは、
ActiveXコントロール（コントロールツールボックスの中のコントロール）とします。

Sheet1　に　CommandButton1　と　ComboBox1　があり
Sheet2　に　CommandButton1　があるものとする
Combox1のリストの第１番目の項目は、"全て表示"にする
例えば、
　　　　全て表示
　　　　東京支店
　　　　大阪支店
　　　　福岡支店
というようなりストにするということです。

●処理内容●

（　Sheet1　）
ComboBoxを選択したら、その選択した値をキーにしてオートフィルターをかける
CommandButtonのClickで、Sheet2をアクティブにする

（　Sheet2　）
CommandButtonのClickで、Sheet１をアクティブにすると同時に
Sheet1のComboBoxのテキスト部分には、"全て表示"と表示し、
Filterを解除（データを全て表示）する

●コード●

（　Sheet１　のシートモジュール）

'--------------------------------------

Private Sub CommandButton1_Click()
　　Sheets("Sheet2").Select
End Sub
'--------------------------------------

Private Sub Worksheet_Activate()
　　ComboBox1.ListIndex = 0
End Sub
'--------------------------------------

Private Sub ComboBox1_Change()
　　If ComboBox1.ListIndex = 0 Then
　　　　If ActiveSheet.FilterMode = True Then
　　　　　　ActiveSheet.ShowAllData
　　　　End If
　　Else
　　　　Range("C5").Select
▲▲　　Selection.AutoFilter Field:=3, Criteria1:=ComboBox1.Text
　　End If
End Sub
'----------------------------------------------------------------

（　Sheet２のシートモジュール　）

'-------------------------------------

Private Sub CommandButton1_Click()
　　Sheets("Sheet1").Select
End Sub
'-------------------------------------

上記▲のAutoFilterの部分は実際に合わせて適宜変更のこと。
また、Comboboxへのリストのセットはありませんが、それは、セット済みとします。

それから先の質問で指摘した問題は確認しましたのでこの質問に回答しました。
その先の質問にもいくつかアドバイスがあるようですので、そのままのしないで
お礼のコメントなどをして質問を閉じた方がいいでしょう。
それがマナーというものです。
以上です。

お礼

ありがとうございます。
おかげさまで、実現できました。
ちなみに↓のコードは書かなくてもうまく動きました。

Private Sub ComboBox1_Change()
　　If ComboBox1.ListIndex = 0 Then
　　　　If ActiveSheet.FilterMode = True Then
　　　　　　ActiveSheet.ShowAllData
　　　　End If
　　Else
　　　　Range("C5").Select
▲▲　　Selection.AutoFilter Field:=3, Criteria1:=ComboBox1.Text
　　End If
End Sub
別のコードで既に定義してしていたからだと思います。
とにかくありがとうございました。

回答No.2

noname#187541

#1です。

コンボボックスの方ですが、コントロールツールボックスのコンボボックスだとして、選択項目を変えるには、ListIndexプロパティを使えばいいでしょう。
インデックス番号は0からですので、「すべて表示」の項目が先頭にあるとすれば　ComboBox1.ListIndex = 0　とすればいいでしょう。

回答No.1

noname#187541

こんにちは。

シートを切り替えた時表示されたシートでは「Worksheet_Activateイベント」、前のシートでは「Worksheet_Deactivateイベント」がWorksheet_Deactivate　→　Worksheet_Activate　の順で発生します。
これらのイベントプロシージャに記述すればいいかと思います。
シートを切り替えた時に発生するイベントなので、コードでシートをSelectやActivateした時も発生するはずなので、ボタンのクリックイベントにオートフィルタ－を解除する記述は要なくなるでしょう。

どうでしょうか。

お礼

説明をしっかり理解できるよう、勉強したいと思います。
ありがとうございました。