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

Leeˉ

6.6.3 一个简易的登录窗体
我按照书上讲解的所有步骤做完后，结果运行的时候，输用户名：user  , 密码：1234 ，没法登录。提示输入错误。
有谁能帮帮我，这是为什么？？是不是书上的代码有误啊。

owenreborn

但是在读的过程中，有些代码输入后进行测试会出现错误，例如第248页的第一个代码
Sub GetFile_1()
    Dim fil As String
    fil = Application.GetOpenFilename() ’调用函数显示【打开】对话框，在打开对话框里选择文件，获取文件名
    If fil = False Then
        MsgBox "no file is selected!"
        Exit Sub
    Else
        Range("A1").Value = fil
    End If
End Sub
实际上无法运行，将红色部分中的false加上“”之后才能运行。

永恒恐惧

P54    参考答案中基本工资那一列，Dim jbgz As Double中的Double是否是Integer呢？还是说即便在-32768~32767的范围内，只要带了小数就不能用Integer，只能用Single和double了是吗

abcd89598

p79 运算符的优先级 逻辑部分的话 应该是Not——And——Or——Xor——Eqv——Imp（查了下资料） 书上是 And-Or-Not-Xor-Eqv-Imp

---

一点疑问 “学号:” & 1006110258 Like "*258" And (125+120+140)>400 答案是False   &前后都有个空格
       “学号:”&1006110258 Like "*258" And (125+120+140)>400 答案是 学号:False
      有没有空格能影响优先级吗？

522971384

Leeˉ 发表于 2013-3-18 22:15
6.6.3 一个简易的登录窗体
我按照书上讲解的所有步骤做完后，结果运行的时候，输用户名：user  , 密码：12 ...

refersto：=“=xxxx”，注意引号内=号

522971384

p283页——中间示例——第六行——两个Range("A1")，用一个即可！

1. Private Sub CmdAdd_Click()          '单击“新增”按钮时运行程序
   
2.     '判断在对话框中按下哪个按钮
   
3.     If MsgBox("确定修改“职工档案”中添加该员工的记录吗？", vbQuestion + vbYesNo, "询问") = vbYes Then
   
4.          '取得第一条空行行号
   
5.         nrow = Worksheets("职工档案").Range("A1").Range("A1").CurrentRegion.Rows.Count + 1
   
6.         Call edit                   '运行edit过程
   
7.     End If
   
8. End Sub

复制代码

风中雨清

66页 将数组写入单元格区域
如想将一维数组arr里的第23个元素写入活动工作表中的A1单元格，代码为
range("A1").Value=arr(23)
应该为range("A1").Value=arr(22)

buggutti

勘错{:soso_e177:}
人民邮电出版社 2012年10月第1版 2013年5月北京第6次印刷
P23   2.1.1 第二段“这个窗口是VBE窗口”，应改为“这个窗口是VBA窗口”吧？

原来是我自己错了，今天刚买到的书，刚在学。汗颜

べ静儿灬

P177页，图4-49下方，代码为：
ActiveSheet.UsedRange.Rows.Count        '求活动工作表中已使用的行数
ActiveSheet.UsedRange.Columns.Count    '求活动工作表中已使用的列数

mongoll

一个建议：
P75页前两条代码为

1. Range("J2") >= 500
   
2. 
   
3. Range("B2") Like "李*"

复制代码

后面的代码中关于range的value属性全部都加上了.value，比如

1. If Range("b2").value Like "*刚* Then

复制代码

本书对range的value属性也进行了阐述P176，说value是range的默认属性，建议养成保留value属性的习惯，因为本书大多为新手阅读，建议代码更改为

1. Range("J2").Value >= 500
   
2. 
   
3. Range("B2").Value Like "李*"

复制代码