用户操作
[留言]  [发消息]  [加为好友] 
订阅我的博客
XML聚合    FeedSky
订阅到鲜果
订阅到Google
订阅到抓虾
kingofark的公告
文章分类
CSDN Bloggers
《程序员》官方BLOG
C++的罗浮宫
刘江@图灵
博文视点
博文视点的CSDN BLOG圈子
孟岩
梁晶
陈瑞江
韩磊@Today
Dearbookian Bookshop
第二书店 第一服务
Dictionary
Behind the Name - the Etymology and History of First Names
Merriam-Webster Online
OneLook Dictionary Search
SPACE ALC [スベースアルク]
The Jargon Dictionary [info.astrian.net]
Game Programming
Blue's News - All the carnage that's fit to post!
Chris Crawford - Interactive Storytelling Tools for Writers
Chris Crawford's THE ART OF COMPUTER GAME DESIGN
GameDev.net - all your game development needs
GameRes - 游戏人的平台
Graphics Programming Black Book by Michael Abrash
Longbow Digital Arts
Michael Abrash's Graphic Programming Black Book UK Mirror
Robocode
Seumas's Programming Page
云风工作室
HCI/Interaction Design
Cooper
Don Norman's jnd.org - user advocacy and human-centered design
Interface Hall of Shame
Jef Raskin
Jenifer Tidwell
UIDesign.NET
Just For Fun
Maestro Headquarters
Language
Lua Programming Language
Python Programming Language
REBOL Technologies - For the X Internet
Ruby Programming Language
Literature
The Gettysburg Review
Magazine
DDJ
National Geographic Online
The C++ Source
Medium
ABC News
BBC
CBC News
CNN
Consumption Junction
ESPN STAR Sports
FOX News
Google ニュース 日本版
Google 新闻 中国版
Guardian Unlimited
MSNBC
News In Pictures
Reuters National, World and Business News
The New York Times
Washington Post
Wired News
Profession
BDN
Channel 9
GotDotNet
IBM alphaWorks - emerging technologies
InformIT
Java World
JavaRSS - Java News, Java Articles and Java Blogs, Just one bookmark.
MSDN
MSDN Blog
SlashDot
The Artima Developer Community
The Association of C & C++ Users
The Code Project
The Server Side
The Server Side .NET
Software
CTEX 中文TeX网站
博文视点
何艳
佘广
刘薇
周筠
彭俊
彭慧敏
杜正彬
杨昕宇
杨福川
杨绣国
林建峰
王继花
白爱萍
肖凯
胡文佳
蔡勇
解娟娟
邱克荣
郑兆昭
陈元玉
马辰宇
鲁怡娜
存档

转载  自动更新数据透视表 收藏

自动更新数据透视表

摘自:http://www.cpearson.com/excel/pivots.htm

使用数据透视表时,数据透视表不会自动更新,必须从“数据(Data)”菜单手动更新整个表。下面的宏代码实现了在选择工作表时更新数据透视表:

Sub Auto_Open()
    Application.OnSheetActivate = "UpdateIt"
End Sub

Sub UpdateIt()
    Dim iP As Integer
    Application.DisplayAlerts = False
    For iP = 1 To ActiveSheet.PivotTables.Count
        ActiveSheet.PivotTables(iP).RefreshTable
    Next
    Application.DisplayAlerts = True
End Sub

发表于 @ 2007年03月06日 09:47:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:《计算机系统要素》出版!! | 新一篇:《计算机系统要素》配套软件和资料下载

  • 发表评论
  • 评论内容:
  •  
Copyright © kingofark
Powered by CSDN Blog