mysql - 在数据透视表旁边添加复选框，这些复选框将添加到数据透视表中的最后一行信息

Question

亲爱的:我需要将复选框添加到 A 列，即数据透视表的左侧，从 B 列开始到 D 列。我还希望这些复选框链接到数据透视表的最右侧表，即 E 列。

我找到了一个可以做到这一点的代码。但它仅限于特定范围(“A4:A9”)。我希望代码能够动态添加复选框，无论数据透视表的长度如何，以防它增长到最后一行。

请查找附件中我已经拥有的完整代码

Sub AddCheckBox()
    Dim cell As Range

    DelCheckBox  'Do the delete macro
    'or delete all checkboxes in the worksheet
    ' ActiveSheet.CheckBoxes.Delete
    Dim MyRow As Long

    lastrow = Cells.Find("*", Range("A1"), xlValues, , xlByRows, xlPrevious).Row

    For Each cell In Range("A4:A9")
        With ActiveSheet.CheckBoxes.Add(cell.Left, _
            cell.Top, cell.Width, cell.Height)
            .LinkedCell = cell.Offset(, 4).Address(External:=True)
            .Interior.ColorIndex = 37   'or  xlNone or xlAutomatic
            .Caption = ""
            '.Border.Weight = xlThin
        End With
    Next

    With Range("A4:A9")
        .Rows.RowHeight = 15
    End With
End Sub

<小时/>

Sub DelCheckBox()
    For Each cell In Range("A4:A9")
        Worksheets("Analysis").CheckBoxes.Delete
    Next
End Sub

我找到了标识最后一行的代码。但是，我一定做错了什么，因为当我尝试将它与其余代码一起插入时，它似乎不起作用。事实上，我不知道需要将其插入哪里才能正常工作。谁能帮我确定我需要做什么？

提前非常感谢您的帮助。

Answer 1

尝试使用 lastrow = ActiveSheet.Range("A"& ActiveSheet.Rows.Count).end(xlUp).Row 来查找列中的最后一行，而不是使用您的方法。还将 Range("A4:A9") 更改为 RangE("A4:A"& lastrow) 在代码中引用的任何位置(同时更改 4 到 A 列中使用的单元格的第一行)

Source

在下面评论后更新

我已经修改了您上面的代码。你的不起作用，因为你在“计数”之前删除了复选框。因此，它只是将它们从第 1 行添加到第 4 行。如果您将 NoRow 列 E 更改为工作表中的常量列，这将执行您想要的操作。

Sub AddCheckBox()
    Dim cell
    Dim NoRow As Integer: Dim firstRow As Integer
    Dim ws As Worksheet

    Set ws = ThisWorkbook.Worksheets("Analysis")
    With ws
        .CheckBoxes.Delete
        ' Change the `E` to the column that the checkboxes are aligning with
        NoRow = .Range("E" & .Rows.Count).End(xlUp).Row
    End With

    For Each cell In Range("A4:A" & NoRow)
        With ws.CheckBoxes.Add(cell.Left, _
            cell.Top, cell.Width, cell.Height)
            .LinkedCell = cell.Offset(, 4).Address(External:=True)
            .Interior.ColorIndex = 37   'or  xlNone or xlAutomatic
            .Caption = ""
            '.Border.Weight = xlThin
        End With
    Next

    With ws.Range("A4:A" & NoRow).Cells
        .Rows.RowHeight = 15
    End With
End Sub