|
请各位高手帮忙,本人想建立一个能自动建立透视表按钮的VBA代码,但是,写完之后运行时,总是出错,不知道怎样修改,还请各位帮忙。具体情况于附件中。
- Sub Macro1()
- '
- ' Macro1 Macro
- ' 宏由 微软用户 录制,时间: 2013-2-14
- '
- Application.DisplayAlerts = False
- Dim i As Long
- i = ActiveWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
- ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
- Sheets("Sheet2").Range("C1:E" & i)).CreatePivotTable TableDestination:= _
- Sheets("Sheet2").Range("F1"), TableName:="数据透视表1", DefaultVersion:= _
- xlPivotTableVersion10
- ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="配件代码"
- ActiveSheet.PivotTables("数据透视表1").PivotFields("配件数量").Orientation = xlDataField
- Application.DisplayAlerts = True
- End Sub
复制代码
装箱单常规.zip
(13.16 KB, 下载次数: 3)
|
|