2020/03/12

セルの罫線を矢印キーで引く

• １．背景と概要
• ２．プログラム
• 　２－１．クラスモジュール
• 　２－２．標準モジュール
• 　２－３．フォームモジュール
• ３．Excelへのマクロの登録
• 　３－１．Excelのアドインファイルにする
• 　３－２．Excelの個人用マクロブックにする
• ４．最後に

１．背景と概要

Excel でセルに罫線を引くには「セルの書式設定」で「罫線」を選択し、「線種を選び」「線を引く場所を選び」クリックする　という多くの手順が必要です。
最近のバージョンでは鉛筆機能が追加され簡単に引けるようになりましたが、セルに文字を入力しながら罫線を引くにはやっぱり不便です。手を「キーボード」から「マウス」に持ち替える必要があるからです。

そこで、今回は「キーボードから手を離さずに罫線が引ける」マクロを考えました。「考えた」と言っても私のアイデアではなく、私が大昔に購入し使っていたソフトの機能を拝借したものです。もちろんマクロにはロックが掛かっていたのでロジックは新たに考えました。

使い方としては図１－１の通り、Ctrlキーを押しながら矢印キーを押すと罫線が引け、Shiftキーを押しながら矢印キーを押すと罫線が消える　と言うものです。

Ctrl+｢→｣

図１－１

罫線を引く・消すの基準点はセルの左上角で、そこに鉛筆・消しゴムが付いているイメージです。また、複数セルを選択すると、その１つ１つのセルの左上角で罫線が一度に引けます。
線の種類・太さは、右上に表示されているダイアログボックスから選択でき、本来のCtrl＋矢印キー、Shift＋矢印キーの機能に戻す時は、ボタンを押して「OFF」にします。
また、ダイアログボックスを操作した後は、いちいちシートをクリックしてフォーカスをシート側に移さなくても勝手に戻ります。

２．プログラム

今回のマクロは「クラスモジュール（Class1）」「標準モジュール（Module1）」「フォームモジュール（UserForm1）」に跨ります。

２－１．クラスモジュール

図１－１の通り、今回のユーザフォームでは１３個のオプションボタン（OptionButton）を使用していて「どのOptionButtonを押したか」で線種を変更するようにしています。
１３個のClickイベントプロシージャに各々コードを書いても良いのですが、非効率でミスも発生し易く、修正も大変です。どのボタンを押しても共有のイベントとして受け取れるようにするため、クラスモジュールを使用します。

イベントを共有する為には、以下の手続きが必要となります。
１）Opt変数をイベントを持つオプションボタン型の変数として宣言（図２－１の２行目）
２）オプションボタンを変数に格納するプロシージャを作成（図２－１の４～６行目）
３）フォームでOptionButton配列をClass1型として作成（図２－１７の１８８行目）
４）フォームのInitializeで、OptionButton配列にOptionButtonを登録（図２－１８の１９２～１９４行目）
５）OptionButtonが押されたイベントを使って処理する（図２－１の８～１６行目）

尚、同様の理由で共有イベントを使用した「ｾﾙへの日付入力をｶﾚﾝﾀﾞｰ日付ｸﾘｯｸで選定する」も参考として下さい。

1. '==========　⇩①　イベントを持つオプションボタン型の変数を宣言　=============
2. Private WithEvents Opt As MSForms.OptionButton
3. '==========　⇩②　OptionButtonをｲﾍﾞﾝﾄを持つ変数に格納　=============
4. Public Sub NewClass(ByVal c As MSForms.OptionButton)
5. 　Set Opt = c　　　　 '←引数のオプションボタンを変数に格納
6. End Sub
7. '==========　⇩③　OptionButtonのｲﾍﾞﾝﾄを取得　=============
8. Private Sub Opt_Click()　　　　　　 '←Optionﾎﾞﾀﾝのｸﾘｯｸｲﾍﾞﾝﾄで実行
9. 　Dim No As Integer
11. 　No = CInt(Mid(Opt.Name, 13))　　　 '←ｵﾌﾟｼｮﾝﾎﾞﾀﾝのｵﾌﾞｼﾞｪｸﾄ名から数字を取り出し
12. 　LineS = Line_Array(1, No)　　　　 '←ﾘｽﾄからLineStyle変数へ代入
13. 　LineW = Line_Array(2, No)　　　　 '←ﾘｽﾄからWeight変数へ代入
15. 　SetFocus Application.hwnd　　　　 '←ｼｰﾄ側へﾌｫｰｶｽ移動
16. End Sub

図２－１

２行目は、イベントを持つオプションボタン型の変数として「Opt」を宣言しています。通常ですと「OptionButton1_Click()」というような形でイベントを受け取るところを、「Opt_Click()」という形で代わりに受け取ることができます。

４～６行目は、２行目で作成した変数に実際のOptionButtonを登録（図２－１８の１９３行目）する為の式となります。フォームのコントロールはオブジェクトですので、Setステートメントを使用する必要があります。

イベントの共有化が出来ていれば、どのOptionButtonを押しても共有イベントプロシージャ（８～１６行目）が反応します。どのOptionButtonが押されたのかは、Opt.Name（オブジェクト名）やOpt.Caption（ボタンの表示名）で判別していく事になります。（今回は数字で振り分けたいのでOpt.Nameを使用しています）
押されたOptionButtonのオブジェクト名の一番最後についている数字（１～１３の番号）を使いますので、１１行目ではオブジェクト名から「OptionButton」の１２文字を取り除き、１３文字目から後ろを読むために「Mid（文字列 , 開始位置 [, 終了位置は設定せず] ）」を使用ます。
尚、Mid では文字列が返りますので、明示的にCIntで数字に直しています。

１２行目では罫線のLineStyleを、１３行目では罫線のWeightをリストから取り込んでいます。 リストである「Line_Array」については、図２－２２で説明します。
また、１５行目の「SetFocus Application.hwnd」は「ボタンを押したら、すぐにシート上で作業できる」ようにフォーカスを移動するコードです。これについては、図２－２の１８行目で説明します。

２－２．標準モジュール

標準モジュールでは、フォームの表示、キーに対するマクロの割り当て、罫線の作成と削除などを行っています。

まず、図２－２の標準モジュールの先頭部分（宣言部）で、変数宣言などを行います。

17. '==========　⇩④　宣言部（変数などの宣言）　　===========
18. 　　　　'↓指定されたWindowをｷｰﾎﾞｰﾄﾞﾌｫｰｶｽを持つWindowにする
19. Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
20. Public On_Off As Boolean　　　　　　　　　　 '←ﾎﾞﾀﾝ(罫線ﾏｸﾛのOn-Off)のﾌﾗｸﾞ変数
22. Public Line_Array(1 To 2, 1 To 13) As Long　　　 '←罫線のLineStyle､Weightのリスト配列
23. Public LineS As Long　　　　　　　　　　　　 '←実際に罫線を引く時に使用するLineStyle値
24. Public LineW As Long　　　　　　　　　　　　 '←実際に罫線を引く時に使用するWeight値

図２－２

１９行目の「Declareステートメント」ですが、Windows API の「user32」というDLL（ダイナミックリンクライブラリ）内に存在する外部プロシージャ（ここでは「SetFocus」）を使えるように宣言するものです。
この「SetFocus」は「指定したウィンドウをフォーカスする」役目のもので、「指定したウィンドウ」とは今回Excel本体ですから「Application.hwnd」となります。
今回のマクロの中でフォーカスを移動している箇所は「図２－２１の２０６行目」「図２－２４の２５７行目」「図２－２５の２６１行目」で、「SetFocus Application.hwnd」というコードになります。
尚、フォーカスを移すには、フォームをモードレス（ .Show の引数として「0」または「vbModeless」をつける）で開く事が必要です。

２０行目の「On_Off」変数は、罫線を引く状態（＝True）か引かない状態（＝False）かを保持するフラグで、主にダイアログボックス上のボタンによってOn-Offするものです。

２２行目のLine_Array配列は、罫線のLineStyle（線種）、及びWeight（太さ）の組み合わせを保持しておくものです。尚、罫線のLineStyleは７種（「無し」を入れると８種）、Weightは４種あるので２８種類の線種が出来そうですが、実際には１３種に限定されます。（「セルの書式設定」でも１３種しか選択できません）
実際に配列に値を代入するのは、フォームモジュールの図２－２２になります。
尚、罫線の線種・太さは「xlContinuous」や「xlHairline」等の定数ですが、実体は数値ですのでLong型にします。（間違ってString型にしてしまうと、ゼロとみなされ罫線が引かれません）

２３～２４行目の「LineS」「LineW」変数は、実際に罫線を設定するLineStyleプロパティ、Weightプロパティへの定数相当です。
別な方法として、現在選択している線種番号を変数として保持し、LineStyleプロパティへ与える定数をLine_Array配列の要素指定として渡す事も考えられます。


図２－３はメインプロシージャで、実際に今回マクロを起動させるのは、このプロシージャからになります。

25. '==========　⇩⑤　メインプロシージャ　　=============
26. Public Sub Line_Draw()　　　　　　　　　　　 '←罫線引きﾏｸﾛ開始のﾌﾟﾛｼｰｼﾞｬ
27. 　On_Off = Not On_Off　　　　　　　　　　 '←罫線引きのOnとOffを反転（ﾄｸﾞﾙ化）
29. 　If On_Off = True Then　　　　　　　　　　　 '←罫線引きのOnの時
30. 　　UserForm1.CommandButton1.Caption = "ON"　 '←ﾎﾞﾀﾝ表示をONにする
31. 　　Call SetOnkey　　　　　　　　　　　　　　　 '←ｷｰにﾏｸﾛを割り当てる
32. 　Else　　　　　　　　　　　　　　　　　　　　　 '←罫線引きのOffの時
33. 　　UserForm1.CommandButton1.Caption = "OFF"　 '←ﾎﾞﾀﾝ表示をOFFにする
34. 　　Call ReSetOnkey　　　　　　　　　　　　　　 '←ｷｰを標準に戻す
35. 　End If
37. 　If UserForm1.Visible = False Then　　　　　 '←既にUserformが出ている時は再表示させない
38. 　　UserForm1.Show 0　　　　　　　　　　　　　 '←Userformをﾓｰﾄﾞﾚｽで表示
39. 　End If
40. End Sub

図２－３

２７行目は「罫線引きOn-Offフラグ」を切り替えるコードです。このマクロを立ち上げた状態では、変数On_Offは図２－２の２０行目で宣言した状態ですので、False（既定値）です。
「On_Off = Not On_Off」は、Not で False ⇔ True を 反転させますので、メインプロシージャ（Line_Draw）を起動させるとFalse（既定値）→True になります。

２９～３５行目は、その変数On_Offの値で「矢印キーで罫線を引く」又は「矢印キーで罫線を引かない」の設定を行っています。
設定の１つ目は、ダイアログボックス上のボタンの表示です。「矢印キーで罫線を引く」時は「ON」、引かない時は「OFF」表示をします。
設定の２つ目は、キーにマクロを登録するか、解除するかの設定です。ONでマクロ登録する際には「SetOnkey」プロシージャ（図２－４）を動かし、OFFでマクロ解除する際には「ReSetOnkey」プロシージャ（図２－６）を動かします。

３７～３９行目は「UserForm1が表示されていなければ表示する」というものです。UserForm1上のボタンを押すと、この「Line_Draw」プロシージャを起動するようにしていますが、その際にはUserForm1は表示済なので、無駄な再表示を防止させています。


図２－４は、図２－３の３１行目から呼び出されるプロシージャで、「キーにマクロを登録」しています。

41. '==========　⇩⑥　キーにマクロを登録するプロシージャ　　=============
42. Private Sub SetOnkey()
43. 　Application.OnKey "^{UP}", "'key_Line ""UP""'"　　　　　 '←Ctrl＋UPは、key_line("UP")を実行
44. 　Application.OnKey "^{RIGHT}", "'key_Line ""RIGHT""'"　　 '←Ctrl＋RIGHTは、key_line("RIGHT")を実行
45. 　Application.OnKey "^{DOWN}", "'key_Line ""DOWN""'"　　　 '←Ctrl＋DOWNは、key_line("DOWN")を実行
46. 　Application.OnKey "^{LEFT}", "'key_Line ""LEFT""'"　　　 '←Ctrl＋LEFTは、key_line("LEFT")を実行
48. 　Application.OnKey "+{UP}", "'key_Line_D ""UP""'"　　　　 '←Shift＋UPは、key_line_D("UP")を実行
49. 　Application.OnKey "+{RIGHT}", "'key_Line_D ""RIGHT""'"　 '←Shift＋RIGHTは、key_line_D("RIGHT")を実行
50. 　Application.OnKey "+{DOWN}", "'key_Line_D ""DOWN""'"　　 '←Shift＋DOWNは、key_line_D("DOWN")を実行
51. 　Application.OnKey "+{LEFT}", "'key_Line_D ""LEFT""'"　　 '←Shift＋LEFTは、key_line_D("LEFT")を実行
52. End Sub

図２－４

Application.OnKeyメソッドには、第一引数と第二引数があります。（第二引数は省略可能）
第一引数は、キーを示す文字列を指定します。例えば４３行目では「＾{UP}」とありますが、{UP}は「方向キーの↑」です。その前に「＾」印が付いていますが、これは「Ctrlキーを押しながら」という意味になります。また４８行目の「+」は「Shiftキーを押しながら」という意味になります。
その他については「{RIGHT}」は「方向キーの→」、「{DOWN}」は「方向キーの↓」、「{LEFT}」は「方向キーの←」です。

第二引数は、実行するプロシージャ名を示す文字列を指定します。例えば４３行目は「"'key_Line ""UP""'"」となっていますが、少し複雑です。図２－５で説明します。

図２－５

通常でしたら、key_Lineプロシージャに引数として「UP」を文字列で渡す場合は、図２－５の左側となります。これはメッセージを出す時の「 MsgBox　"こんにちは" 」と同じです。

「プロシージャ名＋引数」全体を文字列にする場合には、以下の手順で変換します。
１）文字列の中のﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝは記号と判断されてしまうので、２つ連続させて「文字としてのﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝ」にします。
２）プロシージャ名と引数の間は、スペースで空ける必要がありますので、１つスペースを入れて結合します。
３）「引数を持つプロシージャ名」は、全体をｼﾝｸﾞﾙｸｫｰﾃｰｼｮﾝで囲みます。
４）１つの文字列として渡すために、全体をﾀﾞﾌﾞﾙｸｫｰﾃｰｼｮﾝで囲みます。

尚、文字列として引数のあるプロシージャを文字列として渡す場面は、Application.OnTimeメソッドなどでもあります。
別項目ですが、「再計算されたか否かのチェックをイベントで取得」も参照下さい。



図２－６は、図２－３の３４行目から呼び出されるプロシージャで、「キーのマクロを解除」しています。

53. '==========　⇩⑦　キー割り当てを元に戻すプロシージャ　　=============
54. Private Sub ReSetOnkey()
55. 　Application.OnKey "^{UP}"　　　　 '←Ctrl＋UPを通常操作に戻す
56. 　Application.OnKey "^{RIGHT}"　　　 '←Ctrl＋RIGHTを通常操作に戻す
57. 　Application.OnKey "^{DOWN}"　　　 '←Ctrl＋DOWNを通常操作に戻す
58. 　Application.OnKey "^{LEFT}"　　　 '←Ctrl＋LEFTを通常操作に戻す
60. 　Application.OnKey "+{UP}"　　　　 '←Shift＋UPを通常操作に戻す
61. 　Application.OnKey "+{RIGHT}"　　　 '←Shift＋RIGHTを通常操作に戻す
62. 　Application.OnKey "+{DOWN}"　　　 '←Shift＋DOWNを通常操作に戻す
63. 　Application.OnKey "+{LEFT}"　　　 '←Shift＋LEFTを通常操作に戻す
64. End Sub

図２－６

Application.OnKeyメソッドは、第二引数を省略すると「前のOnKeyメソッドで行われた特殊なキーの割り当てはクリアされ、Excel での通常の動作に戻り」ます。
つまり、今回のマクロの機能をOFFにすると通常のExcel機能に戻り、Ctrlキーを押しながら矢印キーを押すと記入済みセルの端まで移動し、Shiftキーを押しながらだとセルを連続して選択することが出来ます。


図２－７は、罫線を引くプロシージャです。
図２－４のOnKeyメソッドで登録した通り、UP等の方向キーを示す「文字列」を引数（Direction）として渡されます。

65. '==========　⇩⑧　罫線を引く＋移動するプロシージャ　　====================
66. Public Sub key_Line(Direction As String)　　 '←Direction=動かす方向（半角で）
67. 　Dim RC As Range　　　　　　　　　　　　　　 '←単一セル変数の宣言
68. 　Application.ScreenUpdating = False　　　　 '←線引きの間は、画面更新中止
69. 　On Error Resume Next　　　　　　　　　　　 '←ｴﾗｰ時(ｾﾙ位置が動かせない)は引ける罫線だけ引く
71. 　For Each RC In Selection　　　　　　　　 '←選択範囲を1セルずつ調査
72. 　　Select Case UCase(Direction)　　　　　 '←引数を大文字に統一させて分岐
73. 　　　Case "UP"　　　　　　　　　　　　　　 '←「UP」の時
74. 　　　　With RC.Offset(-1, 0).Borders(xlEdgeLeft)　 '←上のｾﾙの左側ﾗｲﾝ
75. 　　　　　.LineStyle = LineS　　　　　　　 '←線の種類を指定
76. 　　　　　'.ColorIndex = xlAutomatic　　　　 '←（線の色を指定）
77. 　　　　　'.TintAndShade = 0　　　　　　　　 '←（線の濃さを指定）
78. 　　　　　.Weight = LineW　　　　　　　　　　 '←線の太さを指定
79. 　　　　End With
80. 　　　　With RC.Offset(-1, -1).Borders(xlEdgeRight)　 '←左上のｾﾙの右側ﾗｲﾝ
81. 　　　　　.LineStyle = LineS
82. 　　　　　.Weight = LineW
83. 　　　　End With
85. 　　　Case "RIGHT"　　　　　　　　　　　 '←「RIGHT」の時
86. 　　　　With RC.Offset(0, 0).Borders(xlEdgeTop)　　　 '←このｾﾙの上側ﾗｲﾝ
87. 　　　　　.LineStyle = LineS
88. 　　　　　.Weight = LineW
89. 　　　　End With
90. 　　　　With RC.Offset(-1, 0).Borders(xlEdgeBottom)　 '←上ｾﾙの下側ﾗｲﾝ
91. 　　　　　.LineStyle = LineS
92. 　　　　　.Weight = LineW
93. 　　　　End With
95. 　　　Case "DOWN"　　　　　　　　　　　 '←「DOWN」の時
96. 　　　　With RC.Offset(0, 0).Borders(xlEdgeLeft)　　 '←このｾﾙの左側ﾗｲﾝ
97. 　　　　　.LineStyle = LineS
98. 　　　　　.Weight = LineW
99. 　　　　End With
100. 　　　　With RC.Offset(0, -1).Borders(xlEdgeRight)　 '←左ｾﾙの右側ﾗｲﾝ
101. 　　　　　.LineStyle = LineS
102. 　　　　　.Weight = LineW
103. 　　　　End With
105. 　　　Case "LEFT"　　　　　　　　　 '←「LEFT」の時
106. 　　　　With RC.Offset(0, -1).Borders(xlEdgeTop)　 '←左ｾﾙの上側ﾗｲﾝ
107. 　　　　　.LineStyle = LineS
108. 　　　　　.Weight = LineW
109. 　　　　End With
110. 　　　　With RC.Offset(-1, -1).Borders(xlEdgeBottom)　 '←左上ｾﾙの下側ﾗｲﾝ
111. 　　　　　.LineStyle = LineS
112. 　　　　　.Weight = LineW
113. 　　　　End With
115. 　　End Select
116. 　Next RC
118. 　Select Case UCase(Direction)
119. 　　Case "UP"
120. 　　　Selection.Offset(-1, 0).Select　　 '←上に動かす
121. 　　Case "RIGHT"
122. 　　　Selection.Offset(0, 1).Select　　 '←右に動かす
123. 　　Case "DOWN"
124. 　　　Selection.Offset(1, 0).Select　　 '←下に動かす
125. 　　Case "LEFT"
126. 　　　Selection.Offset(0, -1).Select　　 '←左に動かす
127. 　End Select
129. 　On Error GoTo 0
130. 　Application.ScreenUpdating = True　　　 '←線引き完了した為、画面更新再開
131. End Sub

図２－７

コードの説明の前に、まず罫線の引き方について説明します。
例えば図２－８のように、Ｂ２セルを選択した状態から「Ctrlキー ＋ 右矢印キー(→)」を押した時を考えます。

図２－８

今回のシステムでは、選択しているセルの左上角にペン先があるとしています（これ以外のところにペン先があると、Ａ１セルの上・左に罫線が引けなくなる為）ので、セルの移動と共にペン先で「Ｂ１セルとＢ２セルの間の罫線」が引けることになります。
しかし、罫線は「セルのプロパティ」です。「Ｂ１セルとＢ２セルの間」などというプロパティはありません。「Ｂ１セルのプロパティ」又は「Ｂ２セルのプロパティ」を変更していく必要があります。

まず、図２－９でセルを拡大して見てみます。

図２－９

「Ｂ１セルとＢ２セルの間の罫線」を引くためには、①Ｂ２セルの上側に罫線を引く、②一つ上のＢ１セルの下側に罫線を引く、③Ｂ２セルの上側とＢ１セルの下側の両方に罫線を引く　の３種類存在します。

それぞれデメリットを考えてみると、
①印刷時に記入済みセルの１つ下の行まで印刷範囲を広げないと、罫線が印刷されない。
　全行罫線を引いて印刷した場合、複数頁に跨った一番下の罫線が印刷されない。
②端の行・列（例えば、１行目の上側）には罫線が引けない
③印刷時に罫線だけの頁が出来る可能性有り。マクロ処理が多くなる

となるので、①または③が良さそうですが、今回のシステムでは③としました。理由は、複数セル選択時にセル書式変更で罫線を設定する時、セル間は両側のセルから引いていることが分かったからです。
しかし①の方法も、罫線の引き方を理解した上で使うのであれば問題無いので、その際は以下の部分を削除し使用して下さい。
●図２－７の８０～８３行目、９０～９３行目、１００～１０３行目、１１０～１１３行目
●図２－１４の１４４～１４６行目、１５２～１５４行目、１６０～１６２行目、１６８～１７０行目

次に、Ctrlキーを押しながら方向キーを押すと、どのセルの罫線が引かれるかを考えます。

図２－１０

Ｂ２セルを起点として上下左右に動かした結果が図２－１０です。セルの左上角にペン先があり、ペン先が通過した軌跡の両側のセルの罫線を変更していますので、起点・終点のセル以外のセルにも罫線設定が必要である事が分かると思います。
この図２－１０を見ながら「どのセルのどの端面（Border）に罫線を引くか」を考えていきます。例えばCtrl＋↑キーであれば、図２－７の７４行目・８０行目のような感じです。

さて、以上のことを踏まえて、コードを上の方から見ていきましょう。
６８行目の「Application.ScreenUpdating = False」で画面更新を一旦中止させ、処理速度の向上を図っています。
罫線引き処理が終わった１３０行目で、画面更新を再開しています。

６９行目の「On Error Resume Next」は、１２９行目の「On Error GoTo 0」でエラー処理解除するまでの間、「エラーが発生しても次に進め」という意味です。
ここで、どのような場合に「エラー発生」が起きるかを図２－１１で確かめてみます。

図２－１１

図２－１１の①や②の場合は、セルの移動は可能な位置にいますが「罫線を引くセルが存在しない（黄色の罫線部分）」ことが分かります。しかし片方の罫線は引けますので、見た目にはOKとなります。
また、③や④の場合はセルの移動もできない位置にいますし、罫線も全く引けません。これは「セルの移動が出来ないのですから、ペン先の移動が無く線が書けない」と考えれば、実際に鉛筆で線を引いている感覚にも合っていると思います。

このような「罫線が引けない」「セル移動が出来ない」異常が発生した場合、その後の処理を全て中止してしまったら隅のセルには罫線が引けない事になります。そればかりか、ＮＧが出る前に完了した処理に対して取り消し処理の様なものも必要になるかもしれません。
そこで、「出来ない処理は無視して次の処理に進む」のが「On Error Resume Next」命令となります。
但しこの命令は未知のエラーも無視します。どんなエラーが発生するかを充分把握した上で使わないと、望んでいる結果が得られない事になります。またエラーにはエラー番号がありますので、それに従って処理を振り分ける方法も良いと思います。

７１行目では、選択したセル範囲を１つ１つのセルに分解し、それぞれのセルの動きに応じて罫線を引いていきます。
この For Each Next を使用せず選択範囲単位（オブジェクトをSelectionにする）で罫線を引こうとすると、連続した複数範囲を選択した場合は、図２－１２の様に「選択範囲の左上角は１箇所」と判断されて、１本しか罫線を引いてくれません。

図２－１２

それを避けるため、 For Each Next で選択したセル範囲を１つ１つのセルに分解することで、図２－１３の様に選択したセル分だけの罫線を一回で引いてくれることになります。

図２－１３

７２行目では、Select Case を使って、引数であるDirectionに従って分岐させています。
ここで「UCase(Direction)」と引数の文字列を大文字変換させています。今回は１箇所のプロシージャ（ReSetOnkey）でしか「マクロ＋引数」を使用していませんので引数文字列の大文字小文字は管理できそうですが、複数個所から呼び出したりする場合にはミスが起きる（＝引数を小文字にしてしまう）場合も考えられます。
文字列の内容で分岐をする場合には、分岐する文字として「"UP","up","Up","uP"」と考えられる大文字小文字の組み合わせを書く方法もありますが、分岐前にUCase・LCaseなどで揃える方が効率的です。

７３行目以降は、引数文字列で分岐させて対応するセルに罫線を書く部分になります。「UP」「RIGHT」「DOWN」「LEFT」のどれも同様の内容ですので、ここでは「UP」を例に説明します。

引数が「UP」だった場合、７３行目の「Case　"UP"」の中に入ります。
「UP」では、どのセルに罫線を引くかを図２－１０で考えてみましょう。「UP」は図２－１０の左上の図になりますので、動く前にいる位置から見て「１つ上のセルの左側」と「左ななめ上のセルの右側」に線を引けば良いことが分かります。

それを式で表すと、以下のようになります。
・「１つ上のセルの左側」　　　→　「 RC.Offset(-1, 0).Borders(xlEdgeLeft)」
・「左ななめ上のセルの右側」　→　「 RC.Offset(-1, -1).Borders(xlEdgeRight)」

尚この式の中での「RC」は、７１行目で「選択範囲を１つ１つに分解したセル」ですので、まだ動く前の位置になります。

「１つ上のセルの左側」については７４～７９行目で罫線を設定していますが、オブジェクトである「RC.Offset(-1, 0).Borders(xlEdgeLeft)」までは共通ですので全体をWithで囲っています。そのWithの中で、７５行目で線種「LineStyle 」を、７８行目で線の太さ「Weight 」を設定しています。

７５行目の「LineStyle 」には「LineS」変数を、７８行目の「Weight 」には「LineW」変数を設定しています。この２つの変数は、初期値はフォームモジュールの図２－２３の「Line_Ini」プロシージャで設定をし、OptionButtonをクリックすることで線種変更した際はクラスモジュールの図２－１の１１～１３行目で設定変更を行っています。

なお、罫線には色や色の濃さを設定するプロパティもありますが、今回のシステムでは設定していません（全て黒にしてあります）。もし、そのような設定をする場合には、コメントアウトしてある「ColorIndex（７６行目）」、「TintAndShade（７７行目）」に係数を入れるような改造を検討されるのも良いかと思います。

引数が「"RIGHT"」の場合は、８５～９３行目、「"DOWN"」の場合は、９５～１０３行目、「"LEFT"」の場合は、１０５～１１３行目で罫線を引く処理を行っています。

選択範囲の１つ１つのセルについて罫線引き処理が完了すると、次に１１８～１２７行目の処理に入ります。
まず１１８行目で、引数の文字列に従って分岐するのは７２行目の処理方法と同じです。

例えば、引数が「UP」だった場合には１１９行目で引っ掛かり、１２０行目の「Selection.Offset(-1, 0).Select」を実行します。「Offset(-1, 0)」ですから「一つ上のセル」を選択することになります。
ここで注目してほしいのは、動かす対象は「Selection」としている事です。セルを１つ１つ動かすのではなく、選択している範囲を１つの「まとまりとして動かしている」のです。
「まとまりとして動かす」事で、Ctrl＋↑ であれば一番上の選択セルが頭打ちで動くことが出来なくなることで「選択範囲全体が動かない」（＝選択範囲の形が壊れない）ことになるのです。
もしこのセル移動コード部分を、Selectionを１つ１つのセルに分解して処理する工程（７１～１１６行目）の中で実施してしまうと、「動かせるセル」と「動かせないセル」が混在し、選択範囲の形が壊れることになってしまいます。（分解したセル位置を、再び結合するコードも必要になります）

最後に１２９行目でエラー処理を終了し、１３０行目で画面更新を再開させます。


図２－１４は、図２－６の６０～６３行目のApplication.OnKeyで設定した、罫線を削除（Shift＋矢印キー）するプロシージャです。

132. '==========　⇩⑨　罫線の削除＋移動プロシージャ　　=============
133. Public Sub key_Line_D(Direction As String)　　 '←Direction=動かす方向（半角で）
134. 　Dim RC As Range　　　　　　　　　　　　　　　 '←選択範囲を1ｾﾙずつに分ける変数
135. 　Application.ScreenUpdating = False　　　　　 '←線消しの間は、画面更新を停止
136. 　On Error Resume Next　　　　　　　　　　 '←ｴﾗｰ時(ｾﾙ位置が動かせない)は引ける罫線だけ引く
138. 　For Each RC In Selection　　　　　　　　 '←選択範囲を1セルずつ調査
139. 　　Select Case UCase(Direction)
140. 　　　Case "UP"　　　　　　　　　　　　　　　 '←「UP」の時
141. 　　　　With RC.Offset(-1, 0).Borders(xlEdgeLeft)　 '←上のｾﾙの左側ﾗｲﾝ
142. 　　　　　.LineStyle = xlNone　　　　　　　 '←線を消す（xlLineStyleNoneでもOK）
143. 　　　　End With
144. 　　　　With RC.Offset(-1, -1).Borders(xlEdgeRight)　 '←左上のｾﾙの右側ﾗｲﾝ
145. 　　　　　.LineStyle = xlNone
146. 　　　　End With
148. 　　　Case "RIGHT"　　　　　　　 '←「RIGHT」の時
149. 　　　　With RC.Offset(0, 0).Borders(xlEdgeTop)　 '←このｾﾙの上側ﾗｲﾝ
150. 　　　　　.LineStyle = xlNone
151. 　　　　End With
152. 　　　　With RC.Offset(-1, 0).Borders(xlEdgeBottom)　 '←上ｾﾙの下側ﾗｲﾝ
153. 　　　　　.LineStyle = xlNone
154. 　　　　End With
156. 　　　Case "DOWN"　　　　　　　　　 '←「DOWN」の時
157. 　　　　With RC.Offset(0, 0).Borders(xlEdgeLeft)　 '←このｾﾙの左側ﾗｲﾝ
158. 　　　　　.LineStyle = xlNone
159. 　　　　End With
160. 　　　　With RC.Offset(0, -1).Borders(xlEdgeRight)　 '←左ｾﾙの右側ﾗｲﾝ
161. 　　　　　.LineStyle = xlNone
162. 　　　　End With
164. 　　　Case "LEFT"　　　　　　　　　 '←「LEFT」の時
165. 　　　　With RC.Offset(0, -1).Borders(xlEdgeTop)　 '←左ｾﾙの上側ﾗｲﾝ
166. 　　　　　.LineStyle = xlNone
167. 　　　　End With
168. 　　　　With RC.Offset(-1, -1).Borders(xlEdgeBottom)　 '←左上ｾﾙの下側ﾗｲﾝ
169. 　　　　　.LineStyle = xlNone
170. 　　　　End With
171. 　　End Select
172. 　Next RC
174. 　Select Case UCase(Direction)
175. 　　Case "UP"
176. 　　　Selection.Offset(-1, 0).Select　　 '←上に動かす
177. 　　Case "RIGHT"
178. 　　　Selection.Offset(0, 1).Select　　 '←右に動かす
179. 　　Case "DOWN"
180. 　　　Selection.Offset(1, 0).Select　　 '←下に動かす
181. 　　Case "LEFT"
182. 　　　Selection.Offset(0, -1).Select　　 '←左に動かす
183. 　End Select
184. 　On Error GoTo 0
185. 　Application.ScreenUpdating = True　　　 '←線消し完了した為、画面更新再開
186. End Sub

図２－１４

構造は罫線を引くプロシージャ（図２－７）と全く同じで、引数として受け取る文字列の「UP、RIGHT、DOWN、LEFT」で分岐し、罫線を消していきます。
罫線を消すには、引いた時と同様に図２－１０に従って２つのセルのBorderに罫線の設定をします。罫線を消すためには「LineStyle」プロパティに「xlNone」または「xlLineStyleNone」を設定します。どちらも数値としては「-4142」で同じ値です。
消す場合も、図２－１１のように消せない場所・移動できない位置が出る可能性がありますので、１３６行目の「On Error Resume Next」でエラー発生しても次のコードに進むようにしています。
なお「消すのはLineStyleだけで良いのか」と思われるかもしれませんが、xlNone または xlLineStyleNone を LineStyleプロパティに設定すると、Weightプロパティは「xlThin（細線）」の既定値に自動的に変わるようです。ですので「 Weight 固定でLineStyle だけの設定で罫線を付けたり消したり」という操作は出来ないようです。

罫線を消したあとは、１７４～１８３行目で選択範囲を全体的に移動させます。

２－３．フォームモジュール

最後にフォームモジュールです。まずはダイアログボックスを図２－１５の様に配置します。


図２－１５

線種は（線無しを除いて）全部で１３種類ありますので、選択式に出来るように「OptionButton1 ～ OptionButton13 」の１３個を並べます。並び順は自由ですが、OptionButtonの番号（名称）と種別はちゃんと結びつける必要があります。

線種（LineStyle）は７種、太さ（Weight）は４種ありますが、設定可能なのは図２－１６の組み合わせの13種です。

	xlHairline 　極細	xlThin 　細	xlMedium 　中	xlThick 　太
xlContinuous 　　実線(細)	〇	〇	〇	〇
xlDash 　　　　　破線		〇	〇
xlDashDot 　　　一点鎖線		〇	〇
xlDashDotDot 　 二点鎖線		〇	〇
xlDot 　　　　　　点線		〇
xlDouble 　　　　二重線				〇
xlSlantDashDot 　斜め斜線			〇

図２－１６

また、ダイアログボックスには「機能ON-OFFのボタン」をどこか（サンプルファイルでは下側）に配置します。
このボタンには、罫線操作とExcelの通常操作を切り替える役目を持たせます。本マクロでは罫線を引いたり消したりするために「Ctrl＋矢印キー」「Shift＋矢印キー」を使ってしまっているため、「Ctrl＋矢印キー」の本来の機能である「記入済みセルの端まで移動」、「Shift＋矢印キー」の本来の機能である「セルを連続して選択」が使えなくなります。
「本来の機能も使いたい」という方のために、このボタンを押して切り替えてもらう事を考えました。


フォームモジュールに記述するコードが、図２－１７以下です。

187. '==========　⇩⑩　OptionButton配列をClass1型として作成　============
188. Private NumOpt(1 To 13) As New Class1

図２－１７

まず、フォームモジュールの先頭（１８８行目）に、UserForm1に配置したOptionButton１３個をイベントを発生出来るClass1の型として宣言します。１３個が入る配列形式にします。


次に、UserForm起動時の初期設定が、図２－１８となります。

189. '==========　⇩⑪　UserForm起動時の設定　=============
190. Private Sub UserForm_Initialize()
191. 　Dim i As Integer
192. 　For i = 1 To 13
193. 　　NumOpt(i).NewClass Controls("OptionButton" & i)　 '←13個のOptionButtonをNumOpt変数に格納
194. 　Next i
196. 　StartUpPosition = 0　　　　　 '←ﾌｫｰﾑは手動移動可能とする
197. 　Top = Application.Top　　　　 '←ﾌｫｰﾑの初期位置(上下方向)はExcelｳｨﾝﾄﾞｳの上に揃える
198. 　Left = Application.Left + Application.Width - UserForm1.Width
199. 　　　　　　　　　　　　　 '↑　ﾌｫｰﾑの初期位置(左右方向)はExcelｳｨﾝﾄﾞｳの右に揃える
200. 　Call Line_Set　　　　　　　　 '←線の種類と太さのﾘｽﾄ作成
201. 　Call Line_Ini　　　　　　　　 '←線の初期値代入
202. End Sub

図２－１８

まず１９２～１９４行目は、１３個のOptionButtonをイベントが発生するNumOpt変数に格納しています。
この中の「NewClass」は図２－１の４～６行目のプロシージャ名ですが、このプロシージャ内の「Set Opt = c（引数）」を使って、図２－１の２行目でWithEvents宣言したOpt変数（イベント発生する変数）に１つ１つのOptionButtonを登録しています。

１９６～１９８行目は、表示するフォーム（＝ダイアログボックス）の初期の位置を設定しています。
１９６行目は、フォームの表示位置を指定する「 StartUpPosition 」の設定で、設定値は図２－１９のように４種類選択できます。

Value	動作
0	自分で画面上の位置を決定
1	Excel内で中央の位置
2	PCの画面全体の中央の位置
3	PCの画面の左上隅の位置

図２－１９

今回は「０」を選び、その位置を１９７行目でＰＣ画面の上からの位置（Topプロパティ）、１９８行目でＰＣ画面の左からの位置（Leftプロパティ）を指示します。
使い勝手から考えて、Excel画面の右上にダイアログボックスを表示させたかったので、図２－２０の様に、１９７行目・１９８行目を設定しました。


図２－２０

その下の２００行目は、罫線の種類と太さのリストを作り（図２－２２）、２０１行目は罫線の種類と太さの初期値を設定（図２－２３）しています。

ダイアログボックス上に配置した「機能ON-OFFボタン」を押した時のコードが図２－２１です。

203. '==========　⇩⑫　ﾌｫｰﾑ上のﾎﾞﾀﾝが押された時に実行されるイベントプロシージャ　========
204. Private Sub CommandButton1_Click()
205. 　Call Line_Draw　　　　　　　　　 '←ﾎﾞﾀﾝ表示､ｷｰ割り当てを変更
206. 　SetFocus Application.hwnd　　　 '←ｼｰﾄ側へﾌｫｰｶｽ移動
207. End Sub

図２－２１

２０５行目で、標準モジュールの「Line_Draw」プロシージャ（図２－３）を呼び出します。
これにより、機能ON と機能OFF が切り替わり、ボタンの表示とキーに対する登録マクロの切り替えが行われます。

その後、２０６行目の「SetFocus Application.hwnd」が実行されますが、図２－２で説明の通り「Excel本体のウィンドウをフォーカスする」ことでワークシート側にフォーカスが移ります。
見た目的には「ボタンを押した後、シート側をクリックしなくてもシート入力が可能」となります。


罫線の種類は全１３種という事は図２－１６で説明しました。また、UserForm1上に配置したOptionButtonの数も１３個です。その１３個のOptionButtonに対応した罫線の「線種（LineStyle）」と「太さ（Weight）」を図２－２２でリスト化しています。

208. '==========　⇩⑬　罫線の種類と太さのﾘｽﾄ作成　　=============
209. Private Sub Line_Set()
210. 　Line_Array(1, 1) = xlContinuous　　 '実線(極細)
211. 　Line_Array(2, 1) = xlHairline
213. 　Line_Array(1, 2) = xlContinuous　　 '実線(細)
214. 　Line_Array(2, 2) = xlThin
216. 　Line_Array(1, 3) = xlContinuous　　 '実線(中)
217. 　Line_Array(2, 3) = xlMedium
219. 　Line_Array(1, 4) = xlContinuous　　 '実線(太)
220. 　Line_Array(2, 4) = xlThick
222. 　Line_Array(1, 5) = xlDot　　　　　　 '点線(細)
223. 　Line_Array(2, 5) = xlThin
225. 　Line_Array(1, 6) = xlDash　　　　　 '破線(細)
226. 　Line_Array(2, 6) = xlThin
228. 　Line_Array(1, 7) = xlDash　　　　　 '破線(中)
229. 　Line_Array(2, 7) = xlMedium
231. 　Line_Array(1, 8) = xlDashDot　　　　 '一点鎖線(細)
232. 　Line_Array(2, 8) = xlThin
234. 　Line_Array(1, 9) = xlDashDot　　　　 '一点鎖線(中)
235. 　Line_Array(2, 9) = xlMedium
237. 　Line_Array(1, 10) = xlDashDotDot　　 '二点鎖線(細)
238. 　Line_Array(2, 10) = xlThin
240. 　Line_Array(1, 11) = xlDashDotDot　　 '二点鎖線(中)
241. 　Line_Array(2, 11) = xlMedium
243. 　Line_Array(1, 12) = xlSlantDashDot　 '斜め斜線(中)
244. 　Line_Array(2, 12) = xlMedium
246. 　Line_Array(1, 13) = xlDouble　　　　 '二重線(太)
247. 　Line_Array(2, 13) = xlThick
248. End Sub

図２－２２

リスト（Line_Array配列）の一次元目で「LineStyle」か「Weight」かを分け、二次元目で１３種類の線種に分け、図２－１６に従って値を代入しています。
この代入している値（例えば「xlContinuous」）は、文字列では無く実体は数値です。ですので図２－２の２２行目では、Line_ArrayをLong型で宣言しています。


図２－２２（Line_Setプロシージャ）で作成したリストを使用し、罫線種類の初期値を代入するのが図２－２３です。

249. '==========　⇩⑭　Form1のOptionﾎﾞﾀﾝに合わせて線の初期値代入　　=================
250. Private Sub Line_Ini()
251. 　UserForm1.OptionButton2.Value = True　　 '←実線(細)を初期値にする
252. 　LineS = Line_Array(1, 2)　　 '←線の種類設定
253. 　LineW = Line_Array(2, 2)　　 '←線の太さ設定
254. End Sub

図２－２３

２５１行目では、２番目のOptionButton（実線(細)）を選択した状態にしています。もし、OptionButtonのValue値をフォーム上で変更しても、２５１行目が実行されると２番目が初期値になります。

２５２行目・２５３行目では、罫線リストを使用し２番目の値（実線(細)の値）をLineStyleとWeightプロパティに代入しています。

なお「初期値設定」の方法として、今回は２番目の「実線(細)」のボタンのValue値をTrue（選択済み）にしてから「リストの２番目を代入」していますが、「フォームのプロパティ設定をFor～Nextで拾ってValue値がTrueになっているものを初期値として設定」する方法もあると思います。
しかし、全てのOptionButtonのValue値をFalseにすることも出来ます（＝どれも選択されていない状態）ので、その場合には「LineStyle=0 Weight=0」となり罫線が引かれないという不具合が発生します。


図２－２４は、マクロを起動し最初にUserForm1を表示された時に、フォーカスをExcelシート側に移すプロシージャです。

255. '==========　⇩⑮　ﾌｫｰﾑを表示した時に実行するイベントプロシージャ　==================
256. Private Sub UserForm_Activate()
257. 　SetFocus Application.hwnd　　 '←ｼｰﾄ側へﾌｫｰｶｽ移動
258. End Sub

図２－２４

図２－２５は、UserForm1の上でマウスが動いた時に発生するイベントプロシージャです。

259. '=======　⇩⑯　ﾌｫｰﾑ上でﾏｳｽが動いた時に実行するイベントプロシージャ　=======
260. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
261. 　SetFocus Application.hwnd　　　 '←ｼｰﾄ側へﾌｫｰｶｽ移動
262. End Sub

図２－２５

これは、表示されたUserForm1のタイトル部分（「UserForm1」と書かれている部分）をクリックしてフォームの位置を移動した後に、フォーカスをExcelシート側に移す方策として作成しました。
しかしこのイベントは、フォーム上部のタイトル部分以外のフォーム本体部分でマウスが動かなければ反応しません。ですので、タイトル部分をクリックして移動後、マウスをタイトル部分に置いたままとか、本体を通過しないように動かされると、フォーカスがシート側に移らないのが弱点です。（実用上は大丈夫かと思っています）


図２－２６は、UserForm1を右上の×印で閉じた時の処理です。

263. '==========　⇩⑰　Form1を×で閉じる時に発生するイベントプロシージャ　===============
264. Private Sub UserForm_Terminate()
265. 　On_Off = True　　　　　　　　　 '←閉じた後は線引き中止にさせる
266. 　Call Line_Draw　　　　　　　　　 '←（ﾎﾞﾀﾝ表示をOFFにし、）ｷｰを通常に戻す
267. End Sub

図２－２６

×印で閉じるということは「罫線引きを使わない意思」と判断できます。
ですので２６５行目で「On_Off = True」とした後、２６６行目でメインプロシージャの「Line_Draw」を呼び出していますので、On_Off が反転し 機能OFF 状態にしています。

３．Excelへのマクロの登録

さて、マクロは完成したのですが、このままでは使えません。というのは、罫線を引きたいファイルはマクロが記述してあるファイルでは無く普通のファイルのはずです。しかも１つのファイルだけではなく、どんなファイルにでも罫線が引けないと、あまり意味がありません。
そうです。この手のマクロは「ウラで動いて」くれないと困るのです。

簡単にウラで動かすためには、次の２つの方法があります。
１）Excelのアドインファイルにする
２）Excelの個人用マクロブックにする

３－１．Excelのアドインファイルにする

まず図３－１の左図ように、マクロ作成したファイル（拡張子 .xlsm）をアドインファイル（拡張子 .xlam）として保存します。
保存先は、保存形式をアドインファイルを選択すると「自動的に保存すべきフォルダに移動」するようですが、もし移動しない場合は「C:￥Users￥（ユーザ名）￥AppData￥Roaming￥Microsoft￥AddIns￥」を選んで下さい。

続いて図３－１の右側のように、Excelの開発タブの中の「Excelアドイン」を開き、先ほど保存したファイル名の「有効なアドイン」にレ点をつけ、ＯＫボタンを押して下さい。

アドインファイルとして保存		保存したアドインを有効化

図３－１


次に、Excelに新しい自分用のタブを作ります。図３－２の左側のように、どこのリボンでも良いので、リボンの上でマウスの右ボタンをクリックし「リボンのユーザー設定」を選択して下さい。
すると、Excelのオプションとして「リボンのユーザー設定」ダイアログが出てきますので、図３－２の真ん中の図のように、左欄の上の「コマンドの選択」欄で「ユーザー設定のタブとグループ」を選択します。すると「新しいタブ（ユーザー設定）」と「ユーザー設定のグループ」の２種類が現れます。
初めて自分用のタブを作る人は上側の「新しいタブ（ユーザー設定）」を選択し、追加ボタンを押します。
既に自分用のタブがある人は、下側の「ユーザー設定のグループ」で「新しいグループ（ユーザー設定）」を追加しても良いですし、既にあるグループを使用するならば、タブの設定は不要です。
尚、図３－２の右側図のように、タブの名前変更も可能です。

ﾘﾎﾞﾝ上でﾏｳｽ右ｸﾘｯｸし 「ﾘﾎﾞﾝのﾕｰｻﾞｰ設定」を選択		左欄で「ﾕｰｻﾞｰ設定のﾀﾌﾞとｸﾞﾙｰﾌﾟ」 を選択し、追加ボタンを押す		名前の変更も可能（いつでも可）

図３－２


ここで一度Excelを閉じ（マクロ入りの.xlsm を閉じる事になる）、新たにExcelの新規ブックを開きます。
開いたら、先ほどと同じようにリボンの上でマウス右ボタンを押して「リボンのユーザー設定」を選択し、「リボンのユーザー設定」ダイアログボックスを表示させます。
左欄の「コマンドの選択」で、今度は「マクロ」を選択します（図３－３の左図）。するとアドインしたファイル（拡張子 .xlam ）内の実行できるプロシージャ名が出てきます。
実行できるプロシージャとは、「Public 」且つ「引数を持たない」プロシージャですので、今回のマクロの中ではメインプロシージャである「Line_Draw」プロシージャのみということになります。

まず、その「Line_Draw」を選択（図３－３の中央図）し、次に追加先の「新しいグループ」を選択（図３－３の右図）します。
追加元・追加先ともグレー色で選択状態になったら「追加」ボタンを押します。

左欄で「マクロ」を選択		メインプロシージャの 「Line_Draw」を選択		追加先「新しいｸﾞﾙｰﾌﾟ」を選択 し、追加ボタンを押す

図３－３


最後に右下の「ＯＫボタン」を押して「リボンのユーザー設定」ダイアログを閉じます。
Excelの「新しいタブ」を開いてみると、Line_Drawマクロが登録されているはずです。そのアイコンをクリックすれば、罫線ダイアログが表示され、方向キーで罫線が引けるようになります。（図３－４）


図３－４


尚「プロシージャ名やアイコンの絵を変えたい」という方は、「リボンのユーザー設定」で「新しいグループ」の下にぶらさがっている「Line_Draw」をクリックした後「名前の変更」をクリックして、図３－５の様に表示名とアイコンを変更する事が出来ます。


図３－５

３－２．Excelの個人用マクロブックにする

もう一つの登録方法である「個人用マクロブック」にするには、作ったマクロ入りファイル（拡張子 .xlsm）を図３－６のようにファイルの種類を「Excelバイナリブック（*.xlsb）」にし、ファイル名も「personal.xlsb」と変更して保存します。（ファイル名は大文字小文字どちらでもOKです。
保存先は、「C:￥Users￥（ユーザ名）￥AppData￥Roaming￥Microsoft￥Excel￥XLSTART」です。
（アドインの様に自動的にフォルダが移動する事はありませんので注意して下さい）


図３－６


保存したら、Excel上部のファイル名が「Personal.xlsb」に変わります。
次に、「表示タブ」の「ウィンドウ」の中の「ウィンドウを表示しない」ボタン（図３－７の矢印の位置）をクリックします。


図３－７


するとワークシートが消えますので、Excelの右上の×印でExcelを閉じる操作をすると、図３－８の様に「保存しますか？」ダイアログが出ますので、「保存」をクリックしてExcelを閉じます。

図３－８




もう一度、新たにExcelの新規ブックを立ち上げます。
「新しいタブ」と「新しいグループ」を作るのは、アドインの時と同じですので、図３－２を参照下さい。
マクロの登録もアドインの時とほぼ一緒ですが一応説明します。
リボン上でマウス右ボタンを押し「リボンのユーザー設定」ダイアログボックスを表示させた後、左欄の「コマンドの選択」で「マクロ」を選択します。
左欄には、図３－９のようにメインプロシージャの名前が表示されます。（アドインの時と少し違うのは「personal.xlsb ! Line_Draw」と、ファイル名＋プロシージャ名で表示されます）
そのプロシージャ名と追加する側のグループの両方をクリックし選択した後、追加ボタンをクリックします。

図３－９


すると、図３－１０のように「新しいタブ」の中にアイコンが出来、クリックすることでLine_Drawプロシージャが動いて罫線ダイアログが出てきます。

図３－１０

４．最後に

実は「大昔に購入し使っていた罫線引きソフト」でのペン先は、セルの左上角のみではなく四隅どこでも選択できるようになっていました（罫線の引き方も図２－９の①の一重でした）。
四隅のどこでも罫線が書けるので混在させて使ってしまうと、（罫線を消すのも一重でしたので）罫線を消しているつもりなのに消えない、と何度もイライラした覚えがあります。
そのような記憶もあったため、今回のマクロでは「ペン先は左上角固定で二重線」にこだわりました。

また最近のバージョンでは斜め罫線も可能です。今回は盛り込みませんでしたが、適当なキーを割り当てて斜め罫線を引く機能を追加するのも便利かと思います。

３項目でアドイン登録と個人用マクロブック登録の方法を紹介しましたが、今回のマクロだけでなく自分で作ったマクロをどんどん登録して活用されるのが良いと思います。
尚、アドインファイルは何個でも登録できますが、「Personal.xlsb」は１つのみです。個人用マクロブックの方法を採用するのであれば、元のxlsmファイルは残しておき、マクロを追加し完成したら再登録する、という方法が良いかと思います。


セルの罫線を矢印キーで引く（it-021.xlsm）

セキュリティ向上を目的として「インターネット経由でダウンロードしたOfficeファイル（Excel等）のマクロは、既定でブロック」されるようにOfficeアプリケーションの既定動作が変更になりました。（2022年4月より切替開始） 解除の方法については「ダウンロードファイルのブロック解除方法」を参照下さい。