罫線を引く（格子・枠線・N行ごとに下線・セルの上下の値が相違する場合のみ下線を引く）

■罫線の設定
　・LineStyleプロパティ：罫線の種類（必須）
　・Weightプロパティ：罫線の太さ（省略可）
　・ColorIndexプロパティ：罫線の色（省略可）

■格子罫線を引く

object.Borders.LineStyle = xlContinous

(例) Sheet1のセル範囲B2:D5に格子罫線を引く

Sub test1()
    Sheets("Sheet1").Range("B2:D5").Borders.LineStyle = xlContinuous    
End Sub

■セルに外枠線を引く

　object.BorderAround weight

（例）Sheet1のセル範囲B2:D5に外枠線を引く

Sub test2()
    Sheets("Sheet1").Range("B2:D5").BorderAround Weight:=xlMedium
End Sub

■N行ごとに太線で下線を引く
例）Sheet1のセル範囲B2:D10に２行ごとに太線で下線を引く

Sub test3()
    Dim i As Integer
    With Sheets("Sheet1").Range("B2:D10")
        For i = 1 To 10
            With .Rows(i * 2).Borders(xlEdgeBottom)
                            .LineStyle = xlContinuous
                            .Weight = xlThick
            End With
        Next i
    End With   
End Sub

■セルの上下の値が相違する場合のみ下線を引く
例）B2~B20の範囲で上下の値を確認し、上下で値が相違する場合のみ
　　B列～D列に太線で下線を引く

Sub test4()
    Dim i As Integer   
    For i = 2 To 20
        If Cells(i, 2).Value <> Cells(i, 2).Offset(1, 0).Value Then
            Range(Cells(i, 2), Cells(i, 4)).Borders(xlEdgeBottom).Weight = xlThick
        End If
    Next i   
End Sub
|||<