VBA常用技巧代码解析

0372nhyz

楼主真厉害，跟着楼主走，学习不用愁

zkxfoo

好是好。。没下完。就不能下了

kiddy0793

很早就想学习VBA方面的内容
感谢版主提供的VBA学习资料！

zhangzhifei

非常感谢楼主的分享资料

hhnhzl

楼主好样的

我是我妈的宝贝

老师你好，我是新手，想请教一个问题。下面这段代码是我学习编制的，用于验证输入的柜员号是否存在于柜员列表中。其中从第6行到第12行是从第三十三楼抄来的，但无法运行。我使用的是OFFICE2007，不知是否与版本有关，或者是其他的问题，请老师指点，谢谢。

1                  Private Sub CommandButton1_Click()
2                  Dim Rng As Range
3                  Dim StrFind As String
4                  StrFind = TextBox1.Text
5                  With Worksheets("柜员列表").Range("A:A")
6                  Set Rng = .Find(What:=StrFind, _
7                               After:=.Cells(Cells.Count), _
8                               LookIn:=x1Values, _
9                               LookAt:=x1Whole, _
10                              SearchOrder:=x1ByRows, _
11                              SearchDirection:=x1Next, _
12                              MatchCase:=False)

你的代码写错啦，excel VBA中定义的常量前缀为Xl (字母X和字母l,大小写均可以)，而你代码中的都搞成了X1（字母X和数字1），当然不行啦！
把你的相关部分都改了，再试试！
具体更改：
       x1Values  →  xlValues
           x1Whole  →  xlWhole
           x1ByRows → xlByRows
           x1Next →  xlNext
当然，如果代码中还有类似的错误也需要改，呵呵！

罗苏拉

活到老学到老。。。。。

gongp

标记,学习了.

dongfangyeah

非常好，受教了

我是我妈的宝贝

我已经对你的程序及文件进行了更改，我测试了下，运行没问题！
给你提几点意见：
1、变量使用之前最好要定义；
2、注释放在代码前面或同行，不要放后面；
3、适当的增加些缩进，以提高程序的可读性。

你写的程序中根本就没有“查凭证”的工作表，只有叫“凭证查询”的工作表，这是你不能查询的主要原因！