菜鸟谈VBA最最基础入门《原创》

huoqm · 发表于 2009-9-6 17:47

还没有看完呢不过先定一下下
很好很强大

annamissu · 发表于 2009-9-6 21:29

楼主：
我想在表一中的内容进行筛选后在复制到表二、表三等等，这种能不能用VBA编写。如果能编写的话我就可以用该程序自动筛选到其他的表中，比较方便。

wungg · 发表于 2009-9-6 21:39

练习了一下if语句

自守之贼 · 发表于 2009-9-6 23:03

看完已经11点了，一路读下来，感觉很好，浅显易懂，很适合我这种初学者，版主真是有心人啊，站在初学者的角度，用了很多比喻去描述程序中的那些看似复杂，实则简单的代码。非常感谢版主的无私奉献精神。

同在星空下 · 发表于 2009-9-6 23:19

首先恭喜你进入提高班,看了一此你发的帖,你基础扎实.进入透视表提高班会更加游刃有余.今晚看了你答提高班中测试题中关于刷新指定的透视表,你的代码我看不懂!能不能帮了解释一二,因为你幽默,善于诱导,因此特你的代码复制过来.
Sub ggsmart()
For i = 1 To 2
Sheets("测试" & i).PivotTables(1).PivotCache.Refresh
Next
End Sub

这个英文字母i表明什么,至于1 To 2 看了解说,你看我是不是理解对,是指数据透视表1和数据透视表2 步长为1 (这是缺省状态)--------问题1
只是红色字体部分中的连字符不明白,我只知道在自自定义数字格式当中是连接一个变化的值.-------------问题2
不是指对"测试3"工作表,为何写成("测试" & i)这个样子?---------------问题3
PivotTables这个数据透视表的英文单词,为何后面括号只跟一个阿位伯数字1,阿拉伯数字1表示什么?是指数据透视表1吗?如果是,那数据透视表2怎样写进去呢?----------问题4
另外一个网友的代码,实在不好意思,我只是在想同一问题竟然多种方法,殊途同路,也是为了让自已能够举一反.
代码如下:
Option Explicit
Sub updating()
Dim k As Integer
For k = 1 To 2
Sheets("测试1").PivotTables("数据透视表1").PivotCache.Refresh
Sheets("测试2").PivotTables("数据透视表2").PivotCache.Refresh
Next k
End Sub
辛苦你了!

[ 本帖最后由同在星空下于 2009-9-6 23:37 编辑 ]

wangfengcpa · 发表于 2009-9-6 23:27

通俗易懂，强帖，期待更新的大作。

donghan · 发表于 2009-9-7 08:41

谢谢分享,下载仔细研究学习

华草宝木 · 发表于 2009-9-7 08:48

辛苦了.......................

草根糖 · 发表于 2009-9-7 09:25

原帖由 jiminyanyan 于 2009-9-4 16:08 发表

每次只在同一行做，后面的把前面的覆盖掉了

谢谢，问题已解决！~

草根糖 · 发表于 2009-9-7 09:26

原帖由 ggsmart 于 2009-9-4 17:01 发表

思路已经正确了。只是还有一点点的问题：
比如拿“站街”的记录的处理来举例吧，你的代码为：
Case Is = "站街"
Sheets("外在本就读花名册").Range(Cells(q, 1), Cells(q, 12)).Copy Sheets("站街 ...

谢谢老师，问题已解决。
这是我的作业，请帮我看看有什么不足的地方。

花名册分类-草根糖.rar (20.78 KB, 下载次数: 250)

		自动登录	找回密码
密码			免费注册

菜鸟谈VBA最最基础入门《原创》

求助楼主

if 语句练习

看到你进入数据透视表提高班,透视表中要用VBA时得多给那里同学讲讲!