エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと(非表示化)ありませんか?
ホームページやブログに画像として取り込む時に、枠線が無い方が綺麗に見えるので消してしまう方法をご紹介します。
また、ついでに枠線を表示・非表示がボタン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の画面のちらつきがたった1行で解決して処理高速化する方法
エクセルで繰り返し作業を効率よくするためにVBAを活用している時に、コマンドボタンを押したら画面が一瞬スクロールしたりシートが切り替わったりして目障りに思ったこ… -
画面の操作
エクセルのメニューリボン(操作パネル)をVBAで非表示にする方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
画面の操作
ワークシートサイズは常に最大化してエクセル画面を表示するVBA
エクセルファイルを開いたら中途半端なサイズで表示されるようになってしまった事ありませんか? 作業するのにはフルサイズでの画面最大化の方が良いので、VBAを使って… -
コマンドボタン
エクセルVBAコマンドボタンでON/OFF切替スイッチを作る方法
ワークシート上にある罫線やリボンなど7つの項目を表示したり非表示することができる切替ボタンがあったら便利だと思いませんか? 不要な項目をワンクリックで切り替え… -
画面の操作
エクセルワークシート下にあるシート名の部分を非表示化する方法
苦労してExcel-VBAを組み込んだエクセルファイルを他人に渡して使ってもらうと、エラー表示になったと言われたことありませんか? 原因は簡単で、エクセル操作をオリジ… -
画面の操作
エクセルVBAで改ページプレビューと標準モード切替ボタンを作る方法
エクセルで表を作成して印刷をする前に用紙の範囲に印刷できるか気になるので、改ページプレビューで確認することありませんか? ボタン一つで標準モードにも切り替えら… -
画面の操作
指定したセルを画面左上にスクロールする
【画面左上は移動はscrollrowとscrollcolumnを組み合わせる】 ボウリング場のリーグ戦の成績表でも使っているエクセルで、リーグ戦参加者の成績表を入力する為の専用フ… -
画面の操作
エクセルシートで指定した範囲を自動的に画面最大化させるVBA方法
エクセルで作成した表がいつも画面いっぱいに表示されるならばいいのですが、スクロールしないと見られない範囲外ってことありませんか? Excel-VBAを使えばいつも指定… -
画面の操作
エクセルVBAでセルの枠線の表示を表示・非表示を切り替えるボタン
エクセルのワークシート上にはセルの仕切り「枠線」が表示されていますが、消したいこと(非表示化)ありませんか? ホームページやブログに画像として取り込む時に、枠…
紅葉スポット
-
水上駅から利根川沿いに整備された遊歩道や諏訪峡のもみじ公園へ
水上駅の南側にバンジージャンプが体験できる有名な諏訪峡大橋には、もみじに囲まれたもみじ公園があり、ここから利根川沿いの紅葉を楽しむことができます。 そして整備… -
温泉の匂いが漂い白濁した湖!日光湯ノ湖・兎島の絶景ポイントへ
日光東照宮から始まっていろは坂・明智平・中禅寺湖・竜頭の滝・戦場ヶ原と奥日光を進んで行った最終に奥日光湯元温泉があり、東武鉄道のフリーパス「まるごと日光・東… -
日光白根山ロープウェイで標高1400mから2000mの紅葉遊覧へ
丸沼高原といえば首都圏から日帰りで行くことができるスキー場ですが、秋の紅葉シーズンになるとひと足早く木々が色づき、リフトから山頂へ向かえば紅葉絶景の景色が広… -
十勝岳望岳台へ活火山の溶岩と山頂部の雪化粧と紅葉の三段紅葉絶景
北海道のほぼ真ん中に位置して旭岳・美瑛藤・上富良野岳などが一望でき、さらに旭川市街や富良野市街までも見ることができる絶景スポットです。 標高930mの十勝岳は9月… -
伊香保温泉365段の石段の先に紅葉ライトアップされた河鹿橋絶景へ
石段と温泉街で古くから観光客が多く訪れる伊香保温泉には、群馬県の紅葉スポット人気1位・全国でもトップクラスの紅葉スポットがあります。 石段をゆっくりと登ってい… -
フリーきっぷで行く日光や栃木県内の紅葉名所や穴場スポット22選
関東地方で紅葉名所といえばなんといっても日光ですが、紅葉シーズンになると平日でもいろは坂は大渋滞なのに休日ともなると日光駅周辺から渋滞して全く動かない状態に…