エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと(非表示化)ありませんか?
ホームページやブログに画像として取り込む時に、枠線が無い方が綺麗に見えるので消してしまう方法をご紹介します。
また、ついでに枠線を表示・非表示がボタン1つで切り替えられるスイッチみたいな切替ボタンも作ってみませんか?
セルの枠線を見えなくする方法
セルの枠線をただ単に消す方法は何もVBAだけではないんです。こんな方法もありですかね?
背景色選択で枠線を非表示
まずは、VBAコードなんか使わなくても見えている部分だけちょっと面倒ですが、枠線を消す方法があります。
それは、背景色を白色にするだけです。
範囲を決めてエクセルの背景色選択(塗りつぶしの色選択)すると見事枠線が見えなくなりました。
ここでは、塗りつぶしを「白色」選択でセル枠線見えなくなりましたので、とても簡単。
もちろん、セルの書式設定➡塗りつぶし➡背景色➡白色でも同じくセルの枠線が消えますが、こんな方法が知りたくてこのページをご覧になているわけではないので、VBAコードを使った枠線を非表示化を書きます。
DisplayGridinesプロパティで枠線を非表示化
表示されているエクセルワークシート(アクティブウィンドウ)の枠線を非表示化します。
もし複数のワークシートを開いている時は、最前面に表示されているワークシートがアクティブウィンドウとなり、枠線非表示の対象となりましたが、できればエラーの原因にもなるので開くワークシートは1つの方がいいですよ。
Private Sub CommandButton1_Click()
ActiveWindow.DisplayGridlines = False
End Sub
- コマンドボタン1がクリックされたら
- 表示されているワークシートの枠線を非表示にする
- マクロ記述終了
VBAならばシート全体が枠線非表示化されました。
念の為に、ワークシート上かユーザーフォームに枠線を再表示する為のコードを記述したコマンドボタンを準備しておく事も必要です
FalseをTureに変えるだけです!
Private Sub CommandButton1_Click()
ActiveWindow.DisplayGridlines = True
End Sub
- コマンドボタン1がクリックされたら
- 表示されているワークシートの枠線を再表示する
- マクロ記述終了
ひとつのボタンで枠線の表示・非表示を切り替える
先ほどの例だとセルの枠線の為に、コマンドボタンが「非表示」「再表示」の2つ必要になりますが、Not演算子を使えば、1つにまとめることができます。
Private Sub CommandButton1_Click()
With ActiveWindow
.DisplayGridlines = Not .DisplayGridlines
End With
End Sub
- コマンドボタン1がクリックされたら
- 表示されているワークシートが
- 枠線が表示されていたら非表示に、非表示なら表示する
- Withステートメント終了
- マクロ記述終了
これで、現在の枠線の状態を取得してNot演算子で逆の設定値に変更して設定してくれるので、コマンドボタンを押すたびに非表示・再表示を繰り返してくれます。
関連記事
-
画面の操作
エクセルのメニューリボン(操作パネル)をVBAで非表示にする方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
画面の操作
エクセルVBAでセルの枠線の表示を表示・非表示を切り替えるボタン
エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと(非表示化)ありませんか? ホームページやブログに画像として取り込む時に、枠… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
画面の操作
VBAの画面のちらつきがたった1行で解決して処理高速化する方法
エクセルで繰り返し作業を効率よくするためにVBAを活用している時に、コマンドボタンを押したら画面が一瞬スクロールしたりシートが切り替わったりして目障りに思ったこ… -
画面の操作
指定したセルを画面左上にスクロールする
【画面左上は移動はscrollrowとscrollcolumnを組み合わせる】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦参加者の成績表を入力する為の専用フ… -
画面の操作
エクセルシートで指定した範囲を自動的に画面最大化させるVBA方法
エクセルで作成した表がいつも画面いっぱいに表示されるならばいいのですが、スクロールしないと見られない範囲外ってことありませんか? Excel-VBAを使えばいつも指定… -
画面の操作
ワークシートサイズは常に最大化してエクセル画面を表示するVBA
エクセルファイルを開いたら中途半端なサイズで表示されるようになってしまった事ありませんか? 作業するのにはフルサイズでの画面最大化の方が良いので、VBAを使って… -
画面の操作
エクセルVBAで改ページプレビューと標準モード切替ボタンを作る方法
エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になるので、改ページプレビューで確認することありませんか? ボタン一つで標準モードにも切り替えら… -
画面の操作
エクセルワークシート下にあるシート名の部分を非表示化する方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ…
紅葉スポット
-
土合駅から谷川岳ロープウェイで天神平スキー場からの天空紅葉絶景へ
谷川岳ロープウェイに乗って谷川岳天神平スキー場として冬は多くのスキーヤーに楽しまれていますが、夏は避暑地スポットとして気温22℃の涼しさを体感でき、さらに秋は一… -
旧碓氷峠見晴台へバスで旧軽井沢駅から紅葉展望へ滞在時間20分
軽井沢と言えば長野県ですが、旧碓氷峠見晴台は長野県と群馬県の県境に位置するのですが、群馬県の観光スポットというよりは、長野県ですね。 ここ旧碓氷峠見晴台からは… -
9月中旬から始まる尾瀬ヶ原の草紅葉へ日光駅や沼田駅からバスで行く
まだまだ残暑厳しい夏日が続く東京ですが、ひと足早く奥日光の更に山奥の尾瀬ヶ原では、9月中旬ごろから湿原の草がオレンジ色・黄金色・赤色と移り変わる姿を見ることが… -
茨城県内の11月に見頃を迎えるおススメ紅葉スポット11選
【茨城県内の人気紅葉スポット】 関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺… -
中禅寺湖を上から見られる絶景ポイント半月山展望台へ滞在時間50分
【紅葉見頃】10月中旬~11月上旬 最近インターネットや雑誌などで日光を紹介する時によく見る機会がある、中禅寺湖を上から撮った写真の場所ってどこだろうって思いま… -
ムーミンをイメージしたトーベ・ヤンソンあけぼの子どもの森公園の紅葉
入間市と飯能市の境界にある自然公園で、ムーミンの世界をイメージして作られてライトアップも盛んに行われて、幻想的な世界を体験することができます。 また、秋の紅葉…