[已解决]关于修改VBA代码的问题

mengcao888

请各位高手帮忙，本人想建立一个能自动建立透视表按钮的VBA代码，但是，写完之后运行时，总是出错，不知道怎样修改，还请各位帮忙。具体情况于附件中。

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-2-15 00:11

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' 宏由 微软用户 录制，时间: 2013-2-14
   
5. '
   
6. Application.DisplayAlerts = False
   
7. Dim i As Long
   
8. i = ActiveWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
   
9.     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
   
10.         Sheets("Sheet2").Range("C1:E" & i)).CreatePivotTable TableDestination:= _
    
11.         Sheets("Sheet2").Range("F1"), TableName:="数据透视表1", DefaultVersion:= _
    
12.         xlPivotTableVersion10
    
13.     ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="配件代码"
    
14.     ActiveSheet.PivotTables("数据透视表1").PivotFields("配件数量").Orientation = xlDataField
    
15. Application.DisplayAlerts = True
    
16. End Sub
    

复制代码

装箱单常规.zip (13.16 KB, 下载次数: 3)

2013-2-15 00:10 上传

点击文件名下载附件

跳转到最佳答案楼层

cbg2008

1. Sub Macro1()
   
2. '
   
3. ' Macro1 Macro
   
4. ' 宏由 微软用户 录制，时间: 2013-2-14
   
5. '
   
6. Application.DisplayAlerts = False
   
7. Dim i As Long
   
8. i = ActiveWorkbook.Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
   
9.     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
   
10.         Sheets("Sheet2").Range("C1:E" & i)).CreatePivotTable TableDestination:= _
    
11.         Sheets("Sheet2").Range("F1"), TableName:="数据透视表1", DefaultVersion:= _
    
12.         xlPivotTableVersion10
    
13.     ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="配件代码"
    
14.     ActiveSheet.PivotTables("数据透视表1").PivotFields("配件数量").Orientation = xlDataField
    
15. Application.DisplayAlerts = True
    
16. End Sub
    

复制代码

装箱单常规.zip (13.16 KB, 下载次数: 3)

2013-2-15 00:10 上传

点击文件名下载附件

cbg2008

录制的宏中修改了单元格区域的表示方法，现在可以了

mengcao888

我试过了，很好用，谢谢