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

moon2778

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


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

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

moon2778

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

jyl

好贴留名，做个记号

美人计

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

标记:目前只看到第三页

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

flybutcher

感谢楼主及资料整理者

stormbm

11111111111111111111

ggsmart

原帖由 同在星空下 于 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

原帖由 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

好好学习，跟进

moon2778

原帖由 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 编辑 ]