Question

我正在尝试减少向单元格添加边框（和其他格式）所需的行数。

这里是将在单元格A1周围创建边框的代码：

Sub test2()
Dim cel As Range


Set cel = Range("A1")
With cel.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With cel.Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With cel.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With cel.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
End Sub

如您所见，这些With块会占用一些空间。除了保持我的代码之外没有其他真正的理由＆＃34;紧张＆＃34;因此我不必滚动这么多，我想知道我是否可以让它更紧凑。我在想使用数组，但它不起作用：

Sub test()
Dim arr()
Dim i As Integer
ReDim arr(1 To 4)
Dim cel As Range

Set cel = Range("A1")
arr = Array("xlEdgeTop", "xlEdgeBottom", "xlEdgeRight", "xlEdgeLeft")
For i = LBound(arr) To UBound(arr)
With cel.Borders(arr(i))
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With

Next i
End Sub

（注意：错误发生在With cel.Borders(arr(i))行，＆＃34;运行时错误＆＃39; 13＆＃39;：类型不匹配＆＃34;。）

任何人都有任何关于缩短上述内容的想法，或者这只是我不得不忍受的事情？

Answer 1

如果您只想要黑色边框（通常是默认配色方案），那么这么多代码就可以了：

With Selection.Borders()
 .LineStyle = xlContinuous
End With

在Selection.Borders()中，您只需跳过枚举即可。它违反了所有四个方面。其他属性可以根据需要进行更改。

Answer 2

边框名称是常量，只需定义没有撇号的数组。
您可以将整个边框集合称为一个，不要指定任何边框，因此只需使用with Selection.borders...（https://msdn.microsoft.com/en-us/library/office/ff837809.aspx）

（两项建议独立完成）

减少格式化单元格所需的代码行数？

2 个答案: