在范围内的每个单元格周围的边界

我正在试图创build一个简单的函数，将在一定范围内的每个单元格周围添加边框。 使用精彩的录音会产生很多无用的代码。 下面的代码将显示一个“表”的数据，在这个范围的每个单元格周围，我想添加一个边框。 在线我一直无法find一个简单或明确的答案。

所有的帮助非常感谢！

Set DT = Sheets("DATA") endRow = DT.Range("F" & Rows.Count).End(xlUp).Row result = 3 For I = 2 To endRow If DT.Cells(I, 6).Value = Range("B1").Value Then Range("A" & result) = DT.Cells(I, 6).Value Range("B" & result) = DT.Cells(I, 1).Value Range("C" & result) = DT.Cells(I, 24).Value Range("D" & result) = DT.Cells(I, 37).Value Range("E" & result) = DT.Cells(I, 3).Value Range("F" & result) = DT.Cells(I, 15).Value Range("G" & result) = DT.Cells(I, 12).Value Range("H" & result) = DT.Cells(I, 40).Value Range("I" & result) = DT.Cells(I, 23).Value result = result + 1 End If Next I 

Answer 1

您只需要一行代码即可在范围内的每个单元格周围设置边框：

Range("A1:F20").Borders.LineStyle = xlContinuous

将多个效果应用于每个单元格周围的边界也很容易。

例如：

 Sub RedOutlineCells() Dim rng As Range Set rng = Range("A1:F20") With rng.Borders .LineStyle = xlContinuous .Color = vbRed .Weight = xlThin End With End Sub 

Answer 2

可以使用任何范围作为参数调用以下内容：

 Option Explicit Sub SetRangeBorder(poRng As Range) If Not poRng Is Nothing Then poRng.Borders(xlDiagonalDown).LineStyle = xlNone poRng.Borders(xlDiagonalUp).LineStyle = xlNone poRng.Borders(xlEdgeLeft).LineStyle = xlContinuous poRng.Borders(xlEdgeTop).LineStyle = xlContinuous poRng.Borders(xlEdgeBottom).LineStyle = xlContinuous poRng.Borders(xlEdgeRight).LineStyle = xlContinuous poRng.Borders(xlInsideVertical).LineStyle = xlContinuous poRng.Borders(xlInsideHorizontal).LineStyle = xlContinuous End If End Sub 

例子：

 Call SetRangeBorder(Range("C11")) Call SetRangeBorder(Range("A" & result)) Call SetRangeBorder(DT.Cells(I, 6)) Call SetRangeBorder(Range("A3:I" & endRow)) 

Answer 3

这是另一种方式

 Sub testborder() Dim rRng As Range Set rRng = Sheet1.Range("B2:D5") 'Clear existing rRng.Borders.LineStyle = xlNone 'Apply new borders rRng.BorderAround xlContinuous rRng.Borders(xlInsideHorizontal).LineStyle = xlContinuous rRng.Borders(xlInsideVertical).LineStyle = xlContinuous End Sub 

Answer 4

当我最初寻找这个问题时没有find这个页面，但这是我的最终结果。 诚实地抬起头，张贴在超级用户，但不知道是否属于那里或这里。

示例呼叫

 Call BoxIt(Range("A1:z25")) 

子程序

 Sub BoxIt(aRng As Range) On Error Resume Next With aRng 'Clear existing .Borders.LineStyle = xlNone 'Apply new borders .BorderAround xlContinuous, xlThick, 0 With .Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With With .Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = 0 .Weight = xlMedium End With End With End Sub 

Answer 5

为了添加边界，试试这个，例如：

 Range("C11").Borders(xlEdgeRight).LineStyle = xlContinuous Range("A15:D15").Borders(xlEdgeBottom).LineStyle = xlContinuous 

希望语法是正确的，因为我已经在C＃中完成了这个工作。

Answer 6

 xlWorkSheet.Cells(1, 1).Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlDataBarBorderType.xlDataBarBorderSolid xlWorkSheet.Cells(1, 1).Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlDataBarBorderType.xlDataBarBorderSolid xlWorkSheet.Cells(1, 1).Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlDataBarBorderType.xlDataBarBorderSolid xlWorkSheet.Cells(1, 1).Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlDataBarBorderType.xlDataBarBorderSolid