Sub Clear_data()
' Create_data Macro
Sheets("data").Select
Range("c3:E5000").Select
'削除指定されたのフォマード
Selection.ClearFormats
'削除指定されたの文字、
Selection.ClearContents
'選択セットシートの範囲
Range("c3:E2002").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
'垂直方向内側
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 1 '色番号 (1~56)
.TintAndShade = 1 '色合いとシェード
.Weight = xlHairline 'xlThick(太い線) xlMedium(中) xlThin(薄い) xlHairline(最も細い)
End With
'内側水平
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 1
.Weight = xlHairline
End With
End Sub
VBA单元格属性设置
最新推荐文章于 2024-08-06 17:20:59 发布