|
▼たかみ さん:こんにちは。
罫線を引く様にしてみました。
二重線で引くようにしていますが、
.LineStyle の定数を変更すれば、罫線のタイプが指定できます。
定数は、
xlContinuous
xlDash
xlDashDot
xlDashDotDot
xlDot
xlDouble
xlSlantDashDot
xlLineStyleNone
から選んでください。
それから、.Weight の定数を変更すれば、罫線の太さが指定できます。
定数は、
xlHairline
xlThin
xlMedium
xlThick
なお、これらの事はVBAのヘルプで確認できます。
Private Sub CommandButton1_Click()
Dim L As Long
Application.ScreenUpdating = False
L = Range("B65536").End(xlUp).Row
Rows(L).Insert Shift:=xlDown
Rows(L - 1).Copy
Rows(L).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Range("B" & L & ":I" & L).Borders(xlEdgeTop)
.LineStyle = xlContinuous '罫線の種類
.Weight = xlThin '罫線の太さ
.ColorIndex = xlAutomatic
End With
With Range("B" & L & ":I" & L).Borders(xlEdgeBottom)
.LineStyle = xlDouble '罫線の種類
.Weight = xlThick '罫線の太さ
.ColorIndex = xlAutomatic
End With
Range("B" & L).Select
Application.ScreenUpdating = True
End Sub
別のやり方もあると思いますが、試して見て改造してください。
|
|