《别怕，Excel VBA其实很简单》勘误汇总专帖

mmwwdd

第197页中，dim bt as range 没什么用吧？

刚开始时想让用户选取表头区域赋给bt变量，做一个万能的汇总程序。后来没按这个思路去，但忘记取消定义这个变量的代码了，感谢指正。
程序改为：
Sub HzWb()
    Dim r As Long, c As Long
    r = 1    '1 是表头的行数
    c = 8    '8 是表头的列数
    Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents    ' 清除汇总表中原表数据
    Application.ScreenUpdating = False
    Dim FileName As String, wb As Workbook, sht As Worksheet, Erow As Long, fn As String, arr As Variant
    FileName = Dir(ThisWorkbook.Path & "\*.xls")
    Do While FileName <> ""
        If FileName <> ThisWorkbook.Name Then    ' 判断文件是否是本工作簿
            Erow = Range("A1").CurrentRegion.Rows.Count + 1    ' 取得汇总表中第一条空行行号
            fn = ThisWorkbook.Path & "\" & FileName
            Set wb = GetObject(fn)    ' 将fn 代表的工作簿对象赋给变量
            Set sht = wb.Worksheets(1)    ' 汇总的是第1 张工作表
            ' 将数据表中的记录保存在arr 数组里
            arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
            ' 将数组arr 中的数据写入工作表
            Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
            wb.Close False
        End If
        FileName = Dir    ' 用Dir 函数取得其他文件名，并赋给变量
    Loop
    Application.ScreenUpdating = True
End Sub

——ggsmart    2012-10-22

macdkdjrsi

26页 2.2.5 对象的属性
  第二段的    从对象的属性，可以了解该对角（象）具有的性质和特点。

李树同學

第54页，练习小课堂中，第五个举例，数值125.5应该为125.这样才能和参考答岸吻合。

李树同學

第60页，声明多维数组中。货架有3层，每层5瓶酱油。从给出的条件判断，这个数组里面应该有（3-0+1）*（5-0+1）,即15个元素。文中的“（20-1+1）”不知从何而来？

原文：货架有3层，每层5瓶酱油。
改为：货架有3层，每层20瓶酱油。
——ggsmart 2012-10-23

moon2778

研-究-僧：第165页右下角中。第3行到第5号。应为第3行到第5行。
2分钟前转发|回复
研-究-僧：第155页，参kao答案（2）中。第四句代码应为ActiveWorkbook.SavecopyAs “D:\七月工资表.xls"

微博来信

xlj2000

74P表3-6的“-”号举例：-（-3）=3更能说明问题。-3=-3初学者不好理解。另外第3页这几个人说的对吗？请版主明确。

你的建议很好，再次印刷时将-（-3）=3的修改建议提交给出版社。
每帖反应的错误是否属实，请看我在原帖的说明。如果加了财富没有其他说明的，则错误属实。
——ggsmart 2012-10-22

langxian912

《别怕》第三章92页练习小课堂参考答案问题？，书中要求把正奇数写出来，奇数是不被2整除的数，答案1正确，答案2、答案3不对！以下为答案2修正！
Public Sub jishu1()
    Dim i As Integer
    xrow = 1
    For i = 1 To 100
       If i Mod 2 <> 0 Then
             Cells(xrow, "A").Value = i
             xrow = xrow + 1
       End If
    Next
End Sub

下面的两个程序是问题（2）的参考答案，不是问题（1）的。
——ggsmart     2012-10-25

ggsmart

P260    中间示例程序的引文    原文“参数设置为vbModaless，这个窗体将以无模式窗体显示。”   应为“参数设置为vbModeless，这个窗体将以无模式窗体显示。”

见：http://club.excelhome.net/thread-935404-1-1.html

研-究-僧

为什么会显示变量未定义呢？

ggsmart

P84          练习小课堂上方示例程序        “下午好”正文的下划线应划在“Else”下方
P109        倒数第2行第1句                【要知道A1:A10里有少个黄色单元格】应为【要知道A1:A10里有多少个黄色单元格】