[已解决]宏录制透视表

mayldx

hwc2ycy 发表于 2013-6-25 14:46
等会帮你改，现在有点事。

好的，谢谢，我不急，你先忙。

hwc2ycy

1. Sub test()
   
2.     With Application
   
3.         .ScreenUpdating = False
   
4.         .DisplayAlerts = False
   
5.         .EnableEvents = False
   
6.         .Calculation = xlCalculationManual
   
7.     End With
   
8. 
   
9.     Sheet1.Activate
   
10.     If Range("a1").Value <> "货号" Then
    
11.         Rows("1:4").Delete Shift:=xlUp
    
12.         Columns("C:P").Delete Shift:=xlToLeft
    
13.         Range("D:D,A:A").Delete Shift:=xlToLeft
    
14.         With Columns("B:B")
    
15.             .Insert Shift:=xlToRight
    
16.             .Insert Shift:=xlToRight
    
17.             .Insert Shift:=xlToRight
    
18.         End With
    
19.         Columns("B:D").NumberFormatLocal = "G/通用格式"
    
20.         Range("B2").FormulaR1C1 = "=LEFT(RC[-1],1)"
    
21.         Range("C2").FormulaR1C1 = "=MID(RC[-2],2,1)"
    
22.         Range("D2").FormulaR1C1 = "=MID(RC[-3],3,1)"
    
23. 
    
24.         Range("B2:D2").AutoFill Destination:=Range("B2:D737")
    
25.         Range("B1").FormulaR1C1 = "品牌"
    
26.         Range("C1").FormulaR1C1 = "年度"
    
27.         Range("D1").FormulaR1C1 = "季度"
    
28.         Columns("A:E").EntireColumn.AutoFit
    
29.     End If
    
30.     With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange.Address)
    
31.         With .CreatePivotTable(TableDestination:="")
    
32.             With .PivotFields("品牌")
    
33.                 .Orientation = xlRowField
    
34.                 .Position = 1
    
35.             End With
    
36.             With .PivotFields("年度")
    
37.                 .Orientation = xlRowField
    
38.                 .Position = 2
    
39.             End With
    
40.             With .PivotFields("季度")
    
41.                 .Orientation = xlRowField
    
42.                 .Position = 3
    
43.             End With
    
44.             .AddDataField .PivotFields("合计"), "求和项:合计", xlSum
    
45.             .TableStyle2 = ""
    
46.             .RowAxisLayout xlTabularRow
    
47.             .ShowDrillIndicators = False
    
48.         End With
    
49.     End With
    
50.     With Application
    
51.         .ScreenUpdating = True
    
52.         .DisplayAlerts = True
    
53.         .EnableEvents = True
    
54.         .Calculation = xlCalculationAutomatic
    
55.     End With
    
56.     MsgBox "OK"
    
57. End Sub

复制代码

hwc2ycy

季度比你多出来的项目你可以筛选掉的。

hwc2ycy

筛选季度字段的代码，可根据实际需要改下。

1.     With .PivotFields("季度")
   
2.         .PivotItems("A").Visible = False
   
3.         .PivotItems("B").Visible = False
   
4.         .PivotItems("(blank)").Visible = False
   
5.     End With

复制代码

mayldx

With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange.Address)
我把公式输入到宏里面  提示这个变黄了，里面的语句不太明白，不知道操作不对。

mayldx

hwc2ycy 发表于 2013-6-25 15:20
筛选季度字段的代码，可根据实际需要改下。

With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange.Address)
我把公式输入到宏里面  这个代码提示这个变黄了，里面的语句不太明白，不知道哪里操作不对。

hwc2ycy

你用的什么版本，我传个附件给你吧。

mayldx

hwc2ycy 发表于 2013-6-25 16:31
你用的什么版本，我传个附件给你吧。

好啊，我的是2003的

hwc2ycy

我发现个怪事情，第一次用代码生成的总是会有数据不全，再运行一次就好了。

hwc2ycy

原来刷新就好了，{:1012:}