VBA如何仅为可见单元格每5行创建单元格底部边框

Question

我希望对每 5 个可见行应用一个底部边框。

循环从第 14 行开始，一直持续到第 200 行。

我希望循环在单元格中查找值(i，“D”)。即D列中的每一行。

目前，我在设置 x = 0 的行上收到 Object Required 错误。我对此感到困惑，因为我在顶部将 x 声明为 Integer。

Sub Border()

Dim i As Integer
Dim x As Integer
Dim sumsht As Worksheet
Set sumsht = ThisWorkbook.Sheets("Sheet1")

x = 0

  For i = 14 To 200
    x = sumsht.Cells(i, "D") + x
        If x = 5 Then
            With Worksheets("Sheet1").Rows(i).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 1
            End With
        Else
        End If  
  Next i

End Sub

Answer 1

尝试这个。您需要考虑行的高度。

也正如其他人所说， set 与范围一起使用，而不仅仅是变量(如您的 x)。您还可以使用 sumsht但不要在任何地方定义它。

Option Explicit
Sub add_lines()
Dim rw, ct As Integer


ct = 0

For rw = 14 To 200
    If Rows(rw).Height <> 0 Then
        ct = ct + 1
    End If
    If ct = 5 Then
        With Worksheets("Sheet1").Rows(rw).Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThin
                .ColorIndex = 1
            End With
        ct = 0
    End If
Next rw

End Sub

删除其他边界使用这个(感谢@Comintern):

Range("A1:D22").Borders.LineStyle = xlLineStyleNone