罫線を引く / 罫線を消す


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

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

Excelでよく使うフレーズのサンプルのメニューに戻る

スポンサードリンク





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


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved