注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

VBA 操作数据透视表  

2012-08-10 11:34:10|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
Sub 第2步()
'
' 宏1 宏
'

'
    Range("A4").Select
    Application.CutCopyMode = False
    ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("电子电器"). _
        Position = 1
  
  
    ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("系统养护"). _
        Position = 2
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("改装配件"). _
        Position = 3
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("汽车美容"). _
        Position = 4
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("座垫脚垫"). _
        Position = 5
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("车饰精品"). _
        Position = 6
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("安全应急"). _
        Position = 7
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("二级分类").PivotItems("自驾装备"). _
        Position = 8
End Sub

Sub 第3步()
'
' 宏3 宏
'
    Range("A6").Select
'
    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("GPS导航"). _
        Position = 1
        
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载MP3"). _
        Position = 2
        
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载生活电器"). _
        Position = 3
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载冰箱"). _
        Position = 4
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("充气泵"). _
        Position = 5
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("行车记录仪"). _
        Position = 6
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载电源"). _
        Position = 7
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载净化器"). _
        Position = 8
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载吸尘器"). _
        Position = 9
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车载电器"). _
        Position = 10
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("其它车载用品"). _
        Position = 11
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("胎压计"). _
        Position = 12
        
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("赠品"). _
        Position = 13
        
           Range("A24").Select
    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("机油"). _
        Position = 1
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防冻液"). _
        Position = 2
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("添加剂"). _
        Position = 3
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("金属养护"). _
        Position = 4
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("附属油"). _
        Position = 5
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("玻璃水"). _
        Position = 6
             ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("系统清洁"). _
        Position = 7
            ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空调清洗剂"). _
        Position = 8
        
        
        
         Range("A34").Select
                  
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("机油滤"). _
        Position = 1
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空气滤"). _
        Position = 2
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("火花塞"). _
        Position = 3
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车灯"). _
        Position = 4
                               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防爆膜"). _
        Position = 5
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("刹车片"). _
        Position = 6
                 
                          ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("燃油滤"). _
        Position = 7
        
                       ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空调滤"). _
        Position = 8
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("雨刷"). _
        Position = 9
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("喇叭"). _
        Position = 10
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("改装小件"). _
        Position = 11
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("其他配件"). _
        Position = 12
                 
                 
            Range("A44").Select
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("美容车蜡"). _
        Position = 1
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("漆面修复"). _
        Position = 2
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("轮胎轮毂洗护"). _
        Position = 3
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("洗车工具"). _
        Position = 4
                               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("擦车巾/海绵"). _
        Position = 5
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("封釉镀膜"). _
        Position = 6
                 
                          ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("内饰洗护"). _
        Position = 7
        
                       ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("洗车液"). _
        Position = 8
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("掸子"). _
        Position = 9
                    
            
                           Range("A55").Select
                  
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("四季垫"). _
        Position = 1
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("凉垫"). _
        Position = 2
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用座套"). _
        Position = 3
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用脚垫"). _
        Position = 4
                               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("专车专用后备箱垫"). _
        Position = 5
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("多功能座垫"). _
        Position = 6
                 
                          ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("毛垫"). _
        Position = 7
        
                       ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用座套"). _
        Position = 8
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用脚垫"). _
        Position = 9
                                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("通用后备箱垫"). _
        Position = 10
        
                            Range("A67").Select
                  
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("香水"). _
        Position = 1
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("方向盘套"). _
        Position = 2
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("摆挂"). _
        Position = 3
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("装饰布艺"). _
        Position = 4
                               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("空气净化"). _
        Position = 5
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("颈枕腰靠"). _
        Position = 6
                 
                          ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("杂物收纳"). _
        Position = 7
        
                       ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("功能精品"). _
        Position = 8
        
                            Range("A77").Select
                  
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("儿童安全座椅"). _
        Position = 1
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("轮胎安全"). _
        Position = 2
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("救援工具"). _
        Position = 3
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("防盗锁"). _
        Position = 4
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("故障维修"). _
        Position = 5
        
                             Range("A82").Select
                  
           ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("自驾照明"). _
        Position = 1
                ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("遮阳挡雪挡"). _
        Position = 2
               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("保温箱"). _
        Position = 3
                    ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("旅途生活用品"). _
        Position = 4
                               ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("车衣"). _
        Position = 5
                      ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("收纳箱"). _
        Position = 6
                 
                          ActiveSheet.PivotTables("数据透视表1").PivotFields("三级分类").PivotItems("行李网"). _
        Position = 7
        
End Sub
Sub 第1步()
'
' 宏4 宏
'

'
    ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("北京分公司"). _
        Position = 1
        
            ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("上海分公司"). _
        Position = 2
    ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("广州分公司"). _
        Position = 3
            ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("成都分公司"). _
        Position = 4
            ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("武汉分公司"). _
        Position = 5
            ActiveSheet.PivotTables("数据透视表1").PivotFields("机构").PivotItems("沈阳分公司"). _
        Position = 6
        
End Sub

  评论这张
 
阅读(1240)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017