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

moon2778 · 发表于 2009-9-7 18:52

原帖由 zznjcs 于 2009-9-7 17:42 发表

understand, but 请在程序里多加一些注示,要不真的看不懂.
这样才能帮助我进步呀......

悲剧，我交我作业，我啥时候说要帮助你进步了，那我学习的时候，也没人来给我写批注啊。

moon2778 · 发表于 2009-9-7 18:58

不晓得你哪句看不懂，可以在代码窗口抹黑，f1，或者贴出来大家学一下呢

jyl · 发表于 2009-9-7 21:16

好贴留名，做个记号

美人计 · 发表于 2009-9-7 23:19

终于还是忍不住跑过来学习了~~~~~~~~
嘿嘿!谢谢叶枫

标记:目前只看到第三页

现在对定义变量还是有点模糊

flybutcher · 发表于 2009-9-8 09:04

感谢楼主及资料整理者

stormbm · 发表于 2009-9-8 09:23

11111111111111111111

ggsmart · 发表于 2009-9-8 12:43

原帖由 同在星空下 于 2009-9-6 23:19 发表
首先恭喜你进入提高班,看了一此你发的帖,你基础扎实.进入透视表提高班会更加游刃有余.今晚看了你答提高班中测试题中关于刷新指定的透视表,你的代码我看不懂!能不能帮了解释一二,因为你幽默,善于诱导,因此特你的代码复 ...

原代码：
Sub ggsmart()
For i = 1 To 2
Sheets("测试" & i).PivotTables(1).PivotCache.Refresh
Next
End Sub

1、这个英文字母i表明什么？ -------i是循环变量，循环条件是for i = 1 to 2，即循环第一次时，i=1,循环第二次时，i=2.
2、红色字体部分中的连字符不明白--------& 用来将两个字符串连接成一个字符串，即循环第一次时，为"测试1“，循环第二次时为"测试2“，sheets("测试1")表示“测试1”工作表，通过循环来表示“测试1”和“测试2”工作表。
3、为何写成("测试" & i)这个样子? ---------"测试" & i的结果就是“测试1”和“测试2”，最终还是以sheets(工作表名称）的方式来来表示工作表。
4、PivotTables这个数据透视表的英文单词,为何后面括号只跟一个阿位伯数字1,阿拉伯数字1表示什么?是指数据透视表1吗?如果是,那数据透视表2怎样写进去呢? ----------PivotTables表示数据透视表集合，PivoTables(1)表示数据透视表集合里的第一个对象，如果要表示第十个则将1改为2，这同表示工作表一样。
5、

另外一个网友的代码,实在不好意思,我只是在想同一问题竟然多种方法,殊途同路,也是为了让自已能够举一反.
代码如下:
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

这段代码同我的代码的原理都是一样的，其实这个代码里我想，不用再使用那个For循环了吧？使用For循环的目的只是为了把刷新透视表的两句代码简化为一句，既然已经写了两句，那使用循环就多余了。

zznjcs · 发表于 2009-9-8 13:31

原帖由 moon2778 于 2009-9-7 18:52 发表

悲剧，我交我作业，我啥时候说要帮助你进步了，那我学习的时候，也没人来给我写批注啊。

小样我搞不懂你还笑.

Sub 单击()
Application.ScreenUpdating = False    这两个语句什么意思?
   Application.DisplayAlerts = False
Call sc                                                 为什么要用SC过程把sheets都删除了?
a = Sheets(1).[A65536].End(xlUp).Row
      For i = 3 To a
         Set qy = Sheets(1).Range("A1").Resize(i - 1, 9)    这句什么意思? 什么时候用set呀?
               xs = Sheets(1).Cells(i, 9)
         pd = Application.WorksheetFunction.CountIf(qy, xs)
            If Sheets(1).Cells(i, 8) = "清镇" And pd = 0 Then
                  Sheets.Add After:=Sheets(Sheets.Count)
                  ActiveSheet.Name = xs
                  Sheets(1).[a1:l2].Copy Sheets(Sheets.Count).[a1]
                  Sheets(Sheets.Count).Columns(5).ColumnWidth = 13 这句什么意思? 什么时候用set呀?
            End If
      Next
         Sheets.Add After:=Sheets(Sheets.Count)
         ActiveSheet.Name = "清镇市外"
         Sheets(1).[a1:l2].Copy Sheets(Sheets.Count).[a1]
         Sheets(Sheets.Count).Columns(5).ColumnWidth = 13
      Call 添数据
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub 添数据()
a = Sheets(1).[A65536].End(xlUp).Row
For i = 3 To a
      Dim dqh As Range
      If Sheets(1).Cells(i, 8) = "清镇" Then
         xs = Sheets(1).Cells(i, 9)
         zh = Sheets(xs).[A65536].End(xlUp).Row
         Set dqh = Sheets(1).Cells(i, 1).Resize(1, 12)
         dqh.Copy Sheets(xs).Cells(zh + 1, 1)
         Sheets(Sheets.Count).Columns(5).ColumnWidth = 13
      Else
         Set dqh = Sheets(1).Cells(i, 1).Resize(1, 12)
         zha = Sheets("清镇市外").[A65536].End(xlUp).Row
         dqh.Copy Sheets("清镇市外").Cells(zha + 1, 1)
         Sheets(Sheets.Count).Columns(5).ColumnWidth = 13
      End If
Next
End Sub

Sub sc()
Dim sht As Worksheet
Dim th As Workbook
Set th = ThisWorkbook
For Each sht In th.Sheets '在工作表里循环
                  If sht.Name <> Sheet1.Name Then
                  sht.Delete
                  End If
                  Next
End Sub

couchpotato29 · 发表于 2009-9-8 13:46

好好学习，跟进

moon2778 · 发表于 2009-9-8 14:00

原帖由 zznjcs 于 2009-9-8 13:31 发表
Sub 单击()
Application.ScreenUpdating = False 这两个语句什么意思?
...

哼（我要先哼一声，我才高兴）

Application.ScreenUpdating = False 这个是关闭屏幕显示，就是不希望在程序运行过程中，屏幕界面一直变化所以就设为false，这样一来程序运行速度也就提高了。
为什么要用SC过程把sheets都删除了?
因为我代码每次都要新建表格啊，所以每次运行之前先将其他表格删除，这样才可以避免第二次点击按钮的时候出现错误不是。
什么时候用set呀?
set是对对象赋值的时候就要用set，如果是对变量赋值就不用。
Sheets(Sheets.Count).Columns(5).ColumnWidth = 13 这句什么意思?
最后一张表的第五列的列宽设为13，不然日期不能正常显示嘛。

[ 本帖最后由 moon2778 于 2009-9-8 14:10 编辑 ]

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

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

评分