Excel ：罫線を引く／罫線を消す

指定された範囲に格子を引き、そして外枠を太線で引きます。
線種は Weight で指定します。
罫線の種類は LineStyle で指定します。
消すには LineStyle に False を指定します。

Homeに戻る > Excelでよく使うフレーズへ

実行画面

「左上のセル位置」と「右下のセル位置」にそれぞれ入力し、「罫線を引く」ボタンをクリックすると、入力された範囲に罫線を引きます。
「罫線を消す」ボタンをクリックすると、その範囲の罫線を消します。
罫線が引かれたシート

プログラムソース

Option Explicit

'外枠を太線で引く
Public Sub DrawSotowaku()
'    Range(srange).Select

    '左
    With Selection.Borders(xlEdgeLeft)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '上
    With Selection.Borders(xlEdgeTop)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '右
    With Selection.Borders(xlEdgeRight)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
    '下
    With Selection.Borders(xlEdgeBottom)
        .Weight = xlThick
        .LineStyle = xlContinuous
    End With
End Sub

'罫線を引く
Private Sub DrawKeisen()
    Dim nc As Integer
    Dim nr As Integer

    '罫線を引く範囲を選択する
    Range(Range(Range("C2")), Range(Range("C3"))).Select

    '線種を指定
    Selection.Borders.Weight = xlThin
    '格子を引く
    Selection.Borders.LineStyle = xlContinuous

    '外枠を描く
    DrawSotowaku

    Range("A1").Activate
End Sub

'罫線を描く
Private Sub CommandButton1_Click()
    If Range("C2") = "" Then
        MsgBox "左上のセル位置を入力してください。"
        Exit Sub
    End If

    If Range("C3") = "" Then
        MsgBox "右下のセル位置を入力してください。"
        Exit Sub
    End If

    '罫線を引く
    Call DrawKeisen

End Sub

'罫線を消す
Private Sub CommandButton2_Click()
   '罫線を消す範囲を選択する
    Range(Range(Range("C2")), Range(Range("C3"))).Select
    '消す
    Selection.Borders.LineStyle = False

    Range("A1").Activate
End Sub

Homeに戻る > Excelでよく使うフレーズへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

Excel ： 罫線を引く ／ 罫線を消す

実行画面

プログラムソース

Excel ：罫線を引く／罫線を消す