- Excelで操作するグラフの各線(要素)をチェックボックスでON/OFFしたい方
- Excel VBAの知識を増やしたい方
Excel365では、グラフの各要素をON/OFFする機能が備わりました。
下の様に、グラフを選択すると出てくるフィルターマークをクリックしたら、チェックボックスがでてきます。
![デフォルト機能](https://www.orin-ya.com/wp-content/uploads/2021/11/930b30f72c45fe72062e9a2b582c8f34.png)
デフォルトでこの機能はありがたい!
でも『適用』ボタンを押さないといけないし、タイムリーにON/OFFが出来る訳ではないです。
今回紹介するのは、Excel365の前のバージョンでもできるVBAを使ったチェックボックスでのON/OFFをする方法です。
完成形のシートイメージはこちら
![完成形2](https://www.orin-ya.com/wp-content/uploads/2021/11/ea1e703bae5a56839e9e0c4c6c80701a-1.png)
~Excelでグラフの各要素のON/OFFをチェックボックスで操作する方法~
操作動画を作ってみたので、これも参考に見てください。
チェックボックスやボタンの呼び出し、設定
■グラフを作っておきます
■ 開発 – 挿入 – チェックボックス で必要な数のチェックボックスを挿入
![チェックボックス挿入1](https://www.orin-ya.com/wp-content/uploads/2021/11/41a17d0f6c59f735ab8a402e6862b8cf.png)
![チェックボックス挿入2](https://www.orin-ya.com/wp-content/uploads/2021/11/121f79ea084b0f1006d253adf95b6103.png)
![チェックボックス挿入3](https://www.orin-ya.com/wp-content/uploads/2021/11/252cbd812d17a602a51dd21a9c954f81.png)
■チェックボックスの位置を整列させたり、
![チェックボックス調整1](https://www.orin-ya.com/wp-content/uploads/2021/11/e510d6cc7c687ab035ac19ac71299fce.png)
![チェックボックス調整2](https://www.orin-ya.com/wp-content/uploads/2021/11/764d173d05998cddc588f92aa6945759.png)
テキストがフルで表示されるように、サイズ幅を大きくしておきます。
![チェックボックス調整3](https://www.orin-ya.com/wp-content/uploads/2021/11/adfa02bc11b356718de581a88f51e10d.png)
■ボタンを挿入します。※四角のオートシェイプでも良いです
![ボタン挿入](https://www.orin-ya.com/wp-content/uploads/2021/11/d297f4cc662aff838f72a8f5f55477c9.png)
こちらはサイズやフォントを調整した後です。
![ボタン設置完了](https://www.orin-ya.com/wp-content/uploads/2021/11/86b34f3464b7f4749acddad727765277.png)
チェックボックスのテキストを自動で反映するVBAコード
■チェックボックス右横のテキストをグラフの各要素タイトルにする為のマクロです。
関係図は下図の通りです。
![フィールドとコードの関係図](https://www.orin-ya.com/wp-content/uploads/2021/11/5e7967322770edb74a03e5405f2db89b.png)
Sub CheckBoxname() ActiveSheet.CheckBoxes(1).Select Selection.Characters.Text = Worksheets("マクロ").Range("C5").Value ActiveSheet.CheckBoxes(2).Select Selection.Characters.Text = Worksheets("マクロ").Range("D5").Value ActiveSheet.CheckBoxes(3).Select Selection.Characters.Text = Worksheets("マクロ").Range("E5").Value ActiveSheet.CheckBoxes(4).Select Selection.Characters.Text = Worksheets("マクロ").Range("F5").Value Range("O4").Select
End Sub
訳すると
・現在のシートのチェックボックス(1)を選択
・選択している図のテキスト=「マクロ」シートのC5の値に変える
という事を4つのチェックボックスに実施し、セルO4を選択して終わる
というものです。
■ボタンにマクロを適用させます。
![マクロ登録_ボタン](https://www.orin-ya.com/wp-content/uploads/2021/11/9d3a0e8295ee83bc461489ee913598e1.png)
そして、ボタンを押すとー
↓変わりましたね。
![反映](https://www.orin-ya.com/wp-content/uploads/2021/11/f851265c918ac3602bb9677faa4a6819.png)
さらに参照先の値を変えても、ボタンを押せば反映されます!
![反映2](https://www.orin-ya.com/wp-content/uploads/2021/11/b641db84c993e29796dc3727192296ff.png)
チェックボックスのON/OFFを設定するVBAコード
チェックボックスON/OFFとグラフの各要素の表示ON/OFFを連動させましょう
■グラフの名前を確認しておきます。 このグラフは「グラフ1」ですね。
![グラフ名確認](https://www.orin-ya.com/wp-content/uploads/2021/11/6784936e62054973de6e1564c32f55a5.png)
このコードの様に、数字だけ変えていきます。
![コード補足](https://www.orin-ya.com/wp-content/uploads/2021/11/9dd03d3e29e8a104e539847645b56564.png)
Sub CheckBox1_OnOff() If ActiveSheet.CheckBoxes(1).Value = 1 Then ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(1).IsFiltered = False Else ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(1).IsFiltered = True End If Range("O4").Select
End Sub
Sub CheckBox2_OnOff() If ActiveSheet.CheckBoxes(2).Value = 1 Then ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(2).IsFiltered = False Else ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(2).IsFiltered = True End If Range("O4").Select
End Sub
Sub CheckBox3_OnOff() If ActiveSheet.CheckBoxes(3).Value = 1 Then ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(3).IsFiltered = False Else ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(3).IsFiltered = True End If Range("O4").Select
End Sub
Sub CheckBox4_OnOff() If ActiveSheet.CheckBoxes(4).Value = 1 Then ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(4).IsFiltered = False Else ActiveSheet.ChartObjects("グラフ 1").Activate ActiveChart.FullSeriesCollection(4).IsFiltered = True End If Range("O4").Select
End Sub
訳すると
・チェックボックス(1)の値が1(= ON)ならば、
・現在のシートの「グラフ1」をアクティブにし、
・1つめのグラフ要素のフィルターをFalse(=フィルターをかけない=表示させる)にする
・チェックボックス(1)の値が1でないならば、
・現在のシートの「グラフ1」をアクティブにし、
・1つめのグラフ要素のフィルターをTrue(=フィルターをかける=表示させない)にする
という設定を4つのチェックボックスにしています。
■各チェックボックスにマクロを登録します。
![マクロ登録_チェックボックス](https://www.orin-ya.com/wp-content/uploads/2021/11/feecfe88e791dc095571a98915c4ba36.png)
これで完成です!!
![できました](https://www.orin-ya.com/wp-content/uploads/2021/11/5ca051621df9fe6d509f941b3f7ec84a.png)
動画も参考にして下さい。
おまけ
Excelテク集の目次は下の通り
(下のリンクから各項目に直接アクセスできます)
時短や快適さアップのテクニックが多くあります!!
最後まで見ていただき、ありがとうございました。
広告
広告 | 広告 |