VBAでフィルターのような機能

前提・実現したいこと

Excelのフィルター機能をコマンドボタンで行いたいのです
最低条件
・コマンドボタンを押したら色が変わるようにしてほしい
・もう一度押したら元の色に戻る
・コマンドボタンを押した数だけ項目が増えて表示されるようにしてほしい（フィルター機能でいうとチェックした項目分表示される状態）

：フィルター機能選択項目
実際)入店時間、実際)退店時間、予定)入店時間等項目があり

発生している問題・エラーメッセージ

ボタンの色は変えれたがIf CommandButton1 = True Thenでは何の反応もないことです。

該当のソースコード

VBA
1Private Sub CommandButton1_Click()
2    If CommandButton1 = click Then
3        CommandButton1.BackColor = RGB(200, 100, 125)
4    Else
5        CommandButton1.BackColor = RGB(238, 236, 225)
6    End If
7End Sub
8

試したこと

ほかにも調べたのですがaccessのフォームの方のやり方しか出てきません

補足情報（FW/ツールのバージョンなど）

mattuwan

2020/10/20 08:09

「プルダウン」のイメージがこちらと違うようです。別の平易な言葉でやりたいことを説明してみてはいかがでしょうか。

退会済みユーザー

2020/10/21 01:48

アドバイスありがとうございます意味から調べて内容変更しました！

Usirow

2020/10/21 02:17

いくつか質問させてください。 ①フィルター機能という表現に変更されましたが、つまり 1) 必要な項目は予めすべて用意されている 2) 操作に応じて、それら項目を表示したり、しなかったりするということでよろしいのでしょうか？想定された項目数を超えるようなことはないという理解でよろしいですか？ ②コマンドボタンは2つの色の間を行ったり来たりするようですが、項目数は2つよりももっと多いですよね？このコマンドボタンは、各項目に対して一つずつ付いていて、それぞれがオンオフボタンのように機能する（Aのボタンを押すと、Aの項目だけが有効になったり無効になったりする）ということでしょうか？それとも、コマンドボタンは一つだけで、このボタンを押すたびに項目が新たに表示されるということでしょうか？

行動規範の内容に同意します

回答2件

ベストアンサー

とりあえず、

・コマンドボタンを押したら色が変わるようにしてほしい

・もう一度押したら元の色に戻る

ここだけ。あとは何をしたいのか説明不足でよくわかりません。

vba
1Private Sub CommandButton1_Click()
2    If CommandButton1.BackColor = RGB(238, 236, 225) Then
3        CommandButton1.BackColor = RGB(200, 100, 125)
4    Else
5        CommandButton1.BackColor = RGB(238, 236, 225)
6    End If
7End Sub

実現したいことはフィルター機能ということだと質問内容が変更されたので、
下記のようなことだと推測しましたが、あってますか。

ActiveXのコマンドボタンがいくつか配置されている。
コマンドボタン上にはアイテム名が表示されている（Captionで設定）。
クリックすると背景色がトグルで変化する。（選択/非選択を表す。）
シート上の表データでコマンドボタンで選択されたアイテムのみ表示するようにフィルターをかける。

上記であっているとして、まず、選択/非選択を表現するコントロールとしてはトグルボタンというのがありますので、それを使うことをお勧めします。Windows標準のUIなのでユーザーも馴染みやすいです。
VBAなしでクリックすると沈み込んで選択状態になり、もう一度クリックすると元に戻って非選択状態になります。

トグルボタンのプロパティ - Excel VBA

あるいはチェックボックスを使うのもいいかも知れません。その方がフィルター機能に近い見た目になります。

あと、「マクロの記録」で、やりたいフィルター操作を記録してみて、生成されたVBAコードを参考に改良していくという作業をします。とりあえずその作業をしてみてください。
わからなければ、マクロの記録で生成されたVBAコードを提示してもらうと、改良点のアドバイスが得られると思います。

投稿2020/10/20 02:54

編集2020/10/21 02:34

hatena19

総合スコア34075

退会済みユーザー

2020/10/20 04:42

ご回答ありがとうございます。・コマンドボタンを押した数だけ項目が増えて表示されるようにしてほしいホントにプルダウンと同じ機能にしたい感じです　　　　　　　　　　予）入店時間　　　　　　　　　　予）退店時間　　　　　　　　　　実）入店時間　　　　　　　　　　実）退店時間　　　もともとこの状態でボタン名に入店時間、退店時間と書き押したら入店時間また退店時間を押したら入店時間　　　　　　　　　　　退店時間のように項目が増えていく状態を作りたいです

hatena19

2020/10/20 05:28

まず、確認させてください。これはExcelのユーザーフォームでのVBAの話ですか。あるいは、シート上でのVBAですか。あるいは、Word、あるいは、PowerPoint のVBAですか。

退会済みユーザー

2020/10/20 05:40

excelのactivexコントロールなのでシート上のvbaです説明不足ですみません

hatena19

2020/10/20 05:55

> ホントにプルダウンと同じ機能にしたい感じですプルダウンではだめなんですか。 > 　　　　　　　　　　予）入店時間 > 　　　　　　　　　　予）退店時間 > 　　　　　　　　　　実）入店時間 > 　　　　　　　　　　実）退店時間　　　もともとこの状態でこれは何ですか。シート上のセルですか。ちょっと説明ベタなようですね。相手にちゃんと伝わるかどうか意識して説明できませんか。現状のシートのスクリーンショットを質問にアップロードしてもらえませんか。