ActiveX 命令按钮，根据单元格“L5”的值添加多行

Question

我有四个命令按钮。每个表都向不同的表添加一行。我希望能够根据单元格“L5”的值添加多于一行。如果我单击按钮 1 并且“L5”的值为 10，我希望它向该表添加 10 行，如果我使用按钮 2，则相同。

这是我用于命令按钮 1 的当前代码：

Sub PV_Field_Add_Row()
  '
  ' PV_Field_Add_Row Macro
  '

  '

    Range("Table15").Select
    Selection.ListObject.ListRows.Add (1)
End Sub

Answer 1

使用

For

在 Excel 表格（ListObject）上添加更多行

微软文档：

ListRows.Add 方法（Excel）

Sub PV_Field_Add_Row()
    Dim iVal, Sht As Worksheet
    Set Sht = Worksheets("Sheet1") ' modify as need
    iVal = Sht.Range("L5").Value
    If IsNumeric(iVal) Then
        Dim i As Long
        For i = 1 To iVal
            Sht.ListObjects("Table15").ListRows.Add
        Next
    End If
End Sub