【VBA】指定範囲(表)に罫線を引く

サンプルプログラム概要

指定範囲(表)の上下左右に罫線を引く。

前提

以下のシート及び表(罫線無し)が存在する。

サンプルプログラム

引数として以下を指定する。
・シート名
・罫線を引く表の一番左上のRANGE

'変数の宣言を必須
Option Explicit

Sub sample()
    
    'シート名
    Const SHEET_NAME As String = "サンプルシート"
    '罫線を引く表の一番左上のRANGE
    Const START_RANGE_STR As String = "B3"
    
    '指定範囲(表)に罫線を引く
    Call drawLineTable(SHEET_NAME, START_RANGE_STR)

End Sub

'#########################################
'指定範囲(表)に罫線を引く
'#########################################
Function drawLineTable(sheetName As String, startRangeStr As String)

    Dim ws As Worksheet
    Dim startRange As Range
    
    Dim startRow As Double
    Dim endRow As Double
    Dim startColumn As Double
    Dim endColumn As Double
    
    Set ws = Worksheets(sheetName)
    
    Set startRange = ws.Range(startRangeStr)
    
    '開始行を取得
    startRow = startRange.row
    
    '最終行を取得
    endRow = startRange.End(xlDown).row
    
    '開始列を取得
    startColumn = startRange.Column
    
    '最終列を取得
    endColumn = startRange.End(xlToRight).Column
    
    '罫線を引く
    Range(ws.Cells(startRow, startColumn), _
          ws.Cells(endRow, endColumn)).Borders.LineStyle = xlContinuous
          
    Set ws = Nothing
    Set startRange = Nothing
    
End Function

結果

指定範囲(表)の上下左右に罫線が引かれた。

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