エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか？

不要な項目をワンクリックで切り替えられると便利な方法をまとめてご紹介いたします。

ワークシートの構成要素

ワークシートには下記のように画面構成されて、７つの要素を消すことにより無駄なスペースが無くなるので表示可能エリアが広がり、見栄えもスッキリしますよ。

行番号・列番号

エクセル画面の左側にある1.2.3・・・と縦に続く行番号、上部にあるA.B.C・・・と横に続く列番号が表示されています。

この表示が無ければ、1行・1列づつですが、表示できる範囲が広がるのと見た目がスッキリするので非表示するのもひとつの方法です。

Excel VBA

VBAでエクセル画面の行番号と列番号を非表示にするエクセルの表示範囲を広くするために行番号や列番号を消してしまえば、広くすることができます。ついでに表示・非表示もできるようにしておきましょう。

セルの枠線（グリッド線）

エクセルの各セルには縦横枠になっているグリッド線が表示されています。

表を作成して罫線が必要ならば、自分自身で使えばいいので、見た目スッキリさせるには必要ない線なので消してしまいましょう。

Excel VBA

VBAでエクセル画面のグリッド線を非表示にする罫線無くなって背景スッキリ！セルの枠線を無くして綺麗に見栄え良くしてみませんか？

水平・垂直スクロールバー

エクセル画面の右下にある左右にセルの移動ができるのが水平スクロールバーで、右端にある上下にセルの移動ができるのが、垂直スクロールバーとなっています。

スクロールバーを使えば自由に表示範囲外のセルに簡単に移動できるのですが、マクロを組んでいると勝手に移動させたくない時があるので、非表示にしてしまえば解決できます。

Excel VBA

VBAでエクセル画面の左右スクロールバーを非表示にする画面右下にある水平スクロールバーを操作できないように非表示にして、意図しない誤操作を防ぐ方法でDisplayHorizontalScrollBarプロパティを使います。

シートの見出し

エクセル画面の一番下にSheet1、Sheet2・・・とシートが記載されています。

シート名をクリックすれば別シートに移動できますが、勝手に移動させたくない場合がマクロを組んでいるとありますよね。

そんな時はシート非表示にしてしまえば、勝手に移動できなくなりますよ。

Excel VBA

エクセルのシートを隠したり表示するボタンを作る VBAを使ったExcelファイルのシートはみんなで共有して使っても、触れられたくないし、商品管理の仕入れ原価は見られたくないと思いませんか？でも自分だけは操作可能にした…

数式バー

エクセル画面のリボンツールバーとワークシートの間にある隙間で、セルに入力されている数式や値を表示しています。

意地悪をして苦労して組み合わせた数式を見せたくないときなんかには、非表示にして隠してしまいましょう。

ステータスバー

エクセル画面の一番下にシート名や水平スクロールバーが表示されている部分で、シート名もスクロールバーも非表示にしたならば、ステータスバー自体も不要になるので、非表示にしてしまいましょう。

リボンツールバー

エクセルの画面上部にある見慣れた基本操作パネルみたいなもので、リボンツールバーが表示されていないと、保存も文字の大きさ変更などの基本操作すらできなくなってしまいます。

ユーザーフォームでの操作に限定させたり、各種配置したボタンなどからだけの操作に限定させたい場合などにはとても有効です。

Excel VBA

エクセルを開くと自動的にメニューバー（リボンツールバー）を非表示にする方法ボタンを押すたびにリボンツールバーの表示・非表示を切り替えてくれるボタンがあれば誤操作を防ぐことができますよ

非表示・表示を繰り返すマクロ

ここでは、ワークシート上に配置したボタンに7つの要素を非表示・表示を繰り返し切り替えてくれるVBAコードを書いています。

コピペOK

Sub ボタン1_Click()
With ActiveWindow
.DisplayHeadings = Not .DisplayHeadings
.DisplayGridlines = Not .DisplayGridlines
.DisplayHorizontalScrollBar = Not .DisplayHorizontalScrollBar
.DisplayVerticalScrollBar = Not .DisplayVerticalScrollBar
.DisplayWorkbookTabs = Not .DisplayWorkbookTabs
End With
With Application
.DisplayFormulaBar = Not .DisplayFormulaBar
.DisplayStatusBar = Not .DisplayStatusBar
End With
If Application.CommandBars(“Ribbon”).Visible = True Then
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,False)”
Else
Application.ExecuteExcel4Macro “SHOW.TOOLBAR(“”Ribbon””,True)”
End If
End Sub