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

弈者

俺也买了网购无票怎么领奖啊{:soso_e132:}

bravolhq

P45页，数据类型的表中，关于string（定长）、string（变长），解释不一样，字母都是一样的？难道是用汉字来表达不同的吗？

通常的理解是，编程过程中，中文是不被识别的吧？

刚刚开始学习，一点疑虑。

qian0018

版主好，大家好：
我只是一个EXCEL的初级用户，出于对EXCEL的喜爱和想学习VBA的愿望，买了“别怕，Excel VBA其实很简单”一书。
我拜读了“别怕，Excel VBA其实很简单”这本书，获益匪浅，让我这个VBA的门外汉对VBA有了初步的认识，并依此可以进一步的学习、实践，再提高。在此，我衷心感谢作者的辛勤劳动和无私奉献。
在拜读的过程中，我发现了一些书籍排版方面的小瑕疵，为此书能改版得更好、更完善，现将一些小瑕疵列出，以对拜读此书的回报。
        P65 下方，语句“”第二维的最小索引号是：” & UBound(arr,2)”中”UBound”似乎应为” LBound”。
        P79 下方的参考答案中，第一行的语句应与上面的题目相同；第二行的语句末尾应为236，二不是23。
        上述的参考答案第二段的第一行的语句也是与上面的题目有异。
        P100 “关于Sub过程”段中的代码：“Sub Macro1()”与”End Sub”纵向未对齐。
        P126 下方，“…输入20 0”，应为“…输入200”。
        P139 下方，“workbooks(5)”能改为“workbooks(3)”更好。
        P143 中间的示例语句左上方的指引箭头的位置可向右移一下，移到两个字符串的空格处。
        P143 这页的第三个示例语句下方的指引箭头的位置最好也移到两个字符串的空格处。
        P148 页面的上半部分“如图4-17所示”，应为“如图4-19所示”。
        P152 下方的参考答案中，“用Activate方法不用同时选中多张工作表”，应为“用Activate方法不能同时选中多张工作表”。其中“不用”应为“不能”。
        P167 下方的示例语句下边的指引箭头的位置最好左移到“,”的下方。
        P169 第二个示例语句“A1”的 下边缺了指引箭头。
        P177 中间一个示例语句的右下倒数第二个字“行”应为“列”。
        P183 示例语句下方指引箭头的说明文字的最后一字应为“串”。
        P185 下方示例语句下边有指引箭头，但无说明文字。
        P197 示例的指引箭头太短了点，没从被指的“ThisWork…”引出。
        P245 下方“指定对话框类型”下，“用来决定对框的类型”中缺了一个“话”字。
Qian0018拜上
2013-2-3

bravolhq

P48第三段开始说“Variant类型比其他类型占用更大的存储空间（见表3-1）”

而表3-1中关于Variant类型的说明中并没有说明该变量要占用多大的存储空间。

我是新手，不知道是我不太明白还是《简单》中有所遗漏。

可以存储任意的数据，那就是所有已知类型中存储空间最大的了。
数据类型                   存储空间                            数据范围                        
Variant（数值）        16字节                                Double范围内的任意数值
Variant（文本）        22字节+字符串长度              和变长字符串的范围一样

                                                                        ——ggsmart

iaskmore

第92页的《练习小课堂》好像在2010下运行不了？
提示未定义变量
Sub JISHU()
    Dim i As Integer
    xRow = 1
    For i = 1 To 100 Step 2
              Cells(xRow, "A").Value = i
              xRow = xRow + 1
    Next
End Sub

楼主要不要核对一下？
我把92页的第2个例子 定义xrow为integer变量后试了一下。运行通过了。是不是少了定义 xrow
Sub ZC_3()
    Dim i As Integer, xrow As Integer
    xrow = 1
    For i = 1 To 100
    If i Mod 3 = 0 Then
         Cells(xrow, "a").Value = i
         xrow = xrow + 1
    End If
   
    Next
End Sub

samsoncsr

P273：下图中：5、您如何评价课后作业的难易程程度？
P275：下图组合框文字：其他应该是其它。
P283:中图有重复语句：nrow = worksheets("职工档案”）.range（“A1”).range（“A1”).CurrentRegion.rows.Count + 1

sance_fan

P53  下面图中注释 '声变rng为Range变量 应为：'声明rng为Range变量

happyniko

1.        65页 图3-18 “使用UBount和LBound函数”中UBount应为“UBound”。
2.        68页 最后一行的“如图3-23所示”，应为“如图3-24所示”。
3.        75页 参考答案:
Sub Bjys()
    If Range("B2").Value Like "*刚*" Then
        MsgBox "含有"刚"字。"
    Else
        MsgBox "不含"刚"字。"
    End If
End Sub
显示“"”不能显示，应为：
Sub Bjys()
    If Range("B2").Value Like "*刚*" Then
        MsgBox "含有""刚""字。"
    Else
        MsgBox "不含""刚""字。"
    End If
End Sub
4.        79页 逻辑运算符运算优先级：“…先进行And运算，然后是Or…”,应该改为“…先进行Not运算，然后是And…”。
5.        104页 “如图3-42所示”，应为“如图3-43所示”。
6.        108页 “在VBA中使用自定函数与使用VBA的内置函数一样”应为“在VBA中使用自定义函数与使用VBA的内置函数一样”。
7.        132页 练习小课堂中“…然后分别在两张工体表中选中…”应为“…然后分别在两张工作表中选中…”。
8.        143页 “如图4-12所示”，应为“如图4-14所示”。
9.        179页 联系小课堂中参考答案的“A1”都应换为“B2：B15”。

hanniu_1973

P176,参考答案（2）中第一个UsedTest()中"xrow=activesheet.UsedRange.Rows.Count+1"和第二个currTest()中"xrow=Range("A1").CurrentRegion.Rows.Count+1”是否有误呢？若整列是全空的，应为：
"xrow=activesheet.UsedRange.Rows.Count"和"xrow=Range("A1").CurrentRegion.Rows.Count”

wuxr2010

向各位学习