Excel : 罫線の設定パターン

下のようなVBAになると思います。 セルを１つだけ選択すると、メッセージボックスが出て、 2つ以上のセルを選択するよう警告し、 外枠の罫線設定のみ反映されます。 ここから--------------------------- Sub kei() ' セル範囲の内側のタテヨコに罫線を引きます Dim arow As Integer, acolumn As Integer arow = Selection.Rows.Count acolumn = Selection.Columns.Count If arow + acolumn = 2 Then MsgBox "２つ以上のセルを選択して下さい", vbExclamation '１つのセルを選択した場合、内部がないのでメッセージボックスで警告します ElseIf arow = 1 Then '列が１列しかない場合 With Selection.