Question

我正在尝试实现自动化支持模板的目标。我正在使用的功能是创建一个按钮或下拉选择按钮，它们将从excel表自动枢转到所需的枢轴表。下面的代码在已经存在的工作表上创建数据透视表。我试图弄清楚如何在运行宏之前将宏更改为没有工作表的地方（除了上面带有excel表的工作表），并且一旦运行，它将自动创建新的工作表和数据透视表。这是我坚持的目标。我尝试记录这些步骤，但是如果对代码进行更改，它将被破坏。

 Sub SelfPivot()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim rng1 As Range


    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Data insert")
    Set rng1 = ws.Cells.Find("*", ws.[a1], xlFormulas, , , xlPrevious)
    Sheets("Data insert").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data insert!R1C1:R" & CStr(rng1.Row) & "C" & CStr(rng1.Column), Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Reclass_PushBack!R3C1", TableName:="ReclassPORequesters", DefaultVersion _
        :=xlPivotTableVersion10
    Sheets("Reclass_PushBack").Select
    Cells(3, 1).Select
    End Sub

多个自动按钮旋转（VBA）

0 个答案: