【エクセル】カーソルキーで罫線を上下左右に書くショートカット

エクセル Excel

今回のおしゃれエクセルは「罫線を引く/消す」マクロを紹介。
キーボードだけでセルの枠の好きなとことに罫線を引けるショートカットです。

Shift+Ctrl+カーソルーで罫線を書く

エクセルで罫線を書くショートカットは、Ctrl+Shift+&
このショートカットだとセルの外枠の全部に罫線が描かれます。
また罫線の削除もCtrl+Shift+_では全部消えてしまいます。

罫線を書くときは上、下、左、右と好きなところだけに書くことが多いですが個別のショートカットはありません。マウスでカチカチ選ぶ or アクセスキーで何度もキーを押しています。

そこで書きたいところにだけパパッと罫線を書くショートカットを追加します。罫線が無ければ書いて、あったら消す便利なトグル方式で使いやすくしてみます。

「カーソルキーで罫線を書くショートカット」で便利になること

  1. ひと押しで上下左右の好きなとことに罫線を書ける/消せる
  2. ひと押しで複数セル

罫線のショートカットの使い方

選択しているセルの枠に罫線を書いたり消したりします。
セルの枠に罫線がなければ書いて、あったら消えます。選択しているセルの罫線が在り無しが混在しているときは、アクティブセルに従います。

ShiftCtrl矢印キー

 

ショートカットキー

上に罫線を書く/消す
 ShiftCtrl

 

下に罫線を書く/消す
 ShiftCtrl

 

左に罫線を書く/消す
ShiftCtrl

 

右に罫線を書く/消す
ShiftCtrl

 

罫線を全書き
ShiftCtrlInsert
上下左右の全てに罫線を書きます。

 

罫線を全消し
ShiftCtrlDelete
上下左右の全てに罫線を消します。

 

マクロコード

選択しているセルに罫線を引くマクロです。書く→消す→書くを繰り返します。
xlEdgeRight の Right を Top、Bottom、Left にすると上下左のそれぞれに罫線になります。

○に罫線を書く/消す
If Selection.Borders(xlEdgeRight).LineStyle = xlLineStyleNone Then
Selection.Borders(xlEdgeRight).LineStyle = xlContinuous
Else
Selection.Borders(xlEdgeRight).LineStyle = xlLineStyleNone
End If
全罫線 引き
Selection.Borders.LineStyle = xlContinuous
全罫線 消し
Selection.Borders.LineStyle = xlNone

ショートカットキーの定義

Workbook_Open に Application.OnKey でショートカットを割当てます。

上下左右に罫線を書く/消すと罫線を全書き/全消しのマクロをそれぞれのショートカットキーに定義しておきます。

Application.OnKey "+^{UP}", "上に罫線を書く/消す"
Application.OnKey "+^{DOWN}", "下に罫線を書く/消す"
Application.OnKey "+^{RIGHT}", "右に罫線を書く/消す"
Application.OnKey "+^{LEFT}", "左に罫線を書く/消す"
Application.OnKey "+^{INSERT}", "罫線を全書き"
Application.OnKey "+^{DELETE}", "罫線を全消し"

カスタマイズのポイント

ShiftCtrl矢印キーにしている理由は、自分が使いやすいから
線の太さも自分がよく使うから。

他のキーの方が使いやすかったり、太めの線がよければ自由に変えてみてください。
自分好みにカスタマイズしてあなただけのショートカットにしてみましょう。

例:border.Weight = xlMedium

えーーー、マクロ無理…。というあなたへ

  • あー無理!技術はお金で買う!
    そんなあなたには多彩なおしゃれ機能を詰め込んだエクセルブックをご用意しています。フォントの色替えショートカットも全色セットです。DM( /  )でお問い合わせください。Amazonギフト券  でビール1杯🍺ご馳走してください。
  •  アフィリエイトリンクでお買い求めになられた方へ
    当サイトのリンクからエクセルをお買い求めていただくと紹介料(成果報酬 )があります。お礼としてご希望の方にはブログ記事のエクセルをお送りします。購入日をDM( /  )でご連絡ください。

その他のオシャレエクセル

  1. 全角と半角を統一したい!
    エクセルのド定番処理の「全角統一マクロ」(半角、かな全角対応)
  2. セルの文字を合体したい!
    エクセルでテキストを選択合体!セルの文字を1クリックでひとまとめにする
  3. セルの文字の前後にテキストを追加したい!
    エクセルで文字の前(後)にテキストをまとめて追加する

 

 

Microsoft Excel 2019 オンラインコード版Win10/mac対応
マイクロソフト

MacとWinで両方使える2ライセンス。買取タイプでずっと使えます。
WinのファイルをMacのエクセルでも使えてとても便利。
Win10とMacでブックを共用できてデータ管理が楽々。マクロがめちゃ便利!

Amazonギフト券 Eメールタイプ - Amazonベーシック
Amazonギフト券

送っても貰っても嬉しいアマゾンギフト券。
アマゾンでの買い物に便利でEメールタイプだと少額から購入できます。

タイトルとURLをコピーしました