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

数字幻想

我购的书今天收到

indian@163.com

55页，3.3.3 使用常量，“添加模块”中：
原
Const 变量名称 As 数据类型 = 数值
应该为
Const 常量名称 As 数据类型 - 数值

fpf123101036

(⊙o⊙)…  我发现自己错了不是你的错了 加油 好运

dengjq2000

P149
第4行：
的A1单元格输入10，代码为：   为了与下语句保持一致，应该改为：的A1单元格输入100
Sheet1.Range("A1")=100   '在指定工作表A1单元格输入100

P159
这里的Range(“ A1”)  

就是引用A1单元格的一种形式。
应该A1双引号为半角双引号，而非全角双引号“”

Range(  “A1” )

P164
倒数第二行：
Range("B3:F9").Cells.Select    '选中活动工作表中的B3:F10单元格区域
应该为：  '选中活动工作表中的B3:F9单元格区域

P168
Dim myrangeAS Range,n AS Range
应该在myrange与AS之间有一个空格

P170
如图4-40和图4-41所示），然后一个“）”

P179
表 4-8
都是针对B2:B15单元格
但后面的参考答案为：
Range（"A1").

P190
最后一段 参考答案
tSub shtTest_1()
    dim sht As worksheet
第一句Sub前面多了一个“t”

有来有趣

请问，附件里的错误是哪个版本书籍印刷的错误？我购买的是人民邮电出版社2013年1月北京第5次印刷的，很多错误都没有了。

3721360

P216页
Private Sub Back_Click()
    cmd.Top = 15
    cmd.Left = 160
End Sub
是不是应为：
Private Sub Back_Click()
    cmd.Top = -15
    cmd.Left = -160
End Sub

唐棣

这么多的回复没有看一遍，我遇到的问题是：第六章制作一个简易登录窗口中，初始用户名、密码为“user"、"1234"，结果怎么弄也不成功，后来在网上老师指教才知道那个引号是没有的，再有这段代码里有两处”提示“后面多了” _“

samwis

一读者反馈：

第133页,为什么不使用COUNTIF函数往下数第一行有个函数写的是TRANAPOSE，工作表里没有这个函数，应该是TRANSPOSE

357053208

54页

参考答案里面的“交通补贴”的声明变量Dim jtbt As Integer,因为交通补贴是0～200的整数，所以Integer应该改为“Byte".

上一行Dim jbgz As Double,不明白为什么用Double,是否应该用Integer?

357053208

怎么没人啊？