excel マクロ ＜フィルタ＞

質問

excelのマクロで分からないことがあるので質問させてもらいます。

たとえば↓の写真のようなデータがあったとして、アルファベットさん（Aさん～Nさん）だけを表示するマクロを作る時は、フィルタをして、番号1～14にチェックをつけて・・・ってことをすると思います。そこに、ボタンをつけたいと思っています。

ボタン（チェックボックス）A、ボタン（チェックボックス）B、ボタン（チェックボックス）C、ボタンD、ボタンEをつけたいと思います。

ボタンAを押すと（チェックをつけると）→アルファベットさん（Aさん～Nさん）だけを表示
ボタンBを押すと（チェックをつけると）→山田、田中、鈴木だけを表示
ボタンCを押すと（チェックをつけると）→斉藤、佐藤、高橋、渡辺、伊藤だけを表示

で

A、Bにチェックをつけるとアルファベットさんと山田、田中、鈴木を表示
B、Cにチェックをつけると山田、田中、鈴木、斉藤、佐藤、高橋、渡辺、伊藤を表示

ボタンDを押して、フィルタを解除。
ボタンEを押して、フィルタされた範囲を印刷。
・・・・・という風に・・・

【ボタンか、チェックボックスって書いたのは、どちらを使ったらいいのかわからないからであって、ほかにもフォームの種類がありますから、最適なのがありましたら教えてください。】

まとめると、データをボタンで絞り込んで（解除もできる）、ボタンで印刷したい。ということです。

結構、初心者なので、質問の内容がよくわからないかもしれませんけど、わかりやすく教えてください。

お願いします。

回答No.1

keithin · ベストアンサー

開発タブからActiveXコントロールのチェックボックス１，２，３をシート上に配置
ActiveXコントロールのコマンドボタン１，２をシート上に配置

シート名タブを右クリックしてコードの表示を開始，下記をコピー貼り付ける

private sub CheckBox1_Click()
　call common_proc
end sub

private sub CheckBox2_Click()
　call common_proc
end sub

private sub CheckBox3_Click()
　call common_proc
end sub

private sub Common_Proc()
　dim c1,c2,c3,c
　c1 = ",A,B,C"
　c2 = ",山田,田中,鈴木"
　c3 = ",斉藤,佐藤,高橋"

　if checkbox1 then c = c & c1
　if checkbox2 then c = c & c2
　if checkbox3 then c = c & c3
　application.screenupdating = false
　activesheet.autofiltermode = false
　if c = "" then exit sub
　range("A:C").autofilter field:=2, criteria1:=split(mid(c, 2, 999), ","), operator:=xlfiltervalues
　application.screenupdating = true
end sub

private sub CommandButton1_Click()
　application.enableevents = false
　me.checkbox1 = false
　me.checkbox2 = false
　me.checkbox3 = false
　application.enableevents = true
　call common_proc
end sub

private sub CommandButton2_Click()
　activesheet.printout
end sub

ファイルメニューから終了してエクセルに戻り，開発タブの「デザインモード」を解除して利用する

＃とりあえず，アナタがいま思い描いている「ヤリタイ事」を，その通りに実現しています。
ただ見た感じでは，イマイチ使いにくい部分もありそうな気はしました。
実際にしばらく使ってみて，「実はもっとこうしたくなった」が見つかったら，まずはご自分で応用を検討したり，手に余るようなら（今度はもうちょっと「自分ではここまでやってみたんだけど，ここで躓いています」といった情報を添えて）具体的なヤリタイ事をカタチにしてご相談を投稿してみてください。

お礼

やってみます＾＾ありがとうございます。
ここまで、ちゃんと答えてくれるとは思っていなかったので、驚いています。