VBA编写基础的一些说明,新手速拿
时 间:2016-07-29 08:16:15
作 者:缪炜 ID:24010 城市:江阴
摘 要:刚接触VBA时,大家都有一些困惑,在编写不知道注意些什么,那请看下面。
正 文:
1.使用 Option Explicit 关键字
变量必须先声明(定义)再使用,解决后期调试代码的烦恼。
自动加上 Option Explicit 关键字的方法:
VBA->工具->选项
或者:
2.变量、常量、子过程的名称
简单的规范,只要自己或其他人能看明白就可以。
比如: ✔ 用中文定义变量:
Dim 查询语句 As String
✔ 用英文单词定义变量,第二个以后的单词首字母大写:
Dim strSQL As String
同上,变量名加上变量类型前缀:
一个前缀字母的方案:
i(Integer)、l(Long)、s(String)、d(Double)、c(Currency)、b(Boolean)、d(Date)、v(Variant)、o(Object)、y(Byte)、t(Type) Dim oTargetRange As Excel.Range
三个前缀字母的方案:
int(Integer)、lng(Long)、str(String)、dbl(Double)、cur(Currency)、bln(Boolean)、dat(Date)、var(Variant)、obj(Object)、byt(Byte)、typ(Type)
Dim strWhere As String
✔ 用中文定义子过程:
Sub 查询库存量()
……
End Sub
✔ 用英文单词定义子过程,每个单词首个字母大写:
Sub QueryCurrentStock()
……
End Sub
3.代码注释
子过程头、逻辑步骤、关键算法可加上注释
Sub 计算订单金额()
Dim rst As Object
Dim curSum As Currency
Set rst = Me.RecordsetClone '打开订单明细窗体的记录集副本,这样不对当前记录的显示等造成影响
If rst.RecordCount <> 0 Then rst.movefirst '如果订单明细记录不为空,先移到第一条记录
Do Until rst.EOF '循环所有记录至到最后一行记录
curSum = curSum + rst!售价 * rst!销售数量 '对每一行记录中的金额(售价x销售数量)进行累加
rst.MoveNext
Loop
Set rst = Nothing
End Sub
4.代码缩进
缩进方式,按键盘的 Tab 键:
Sub Test()
If 逻辑满足 then
For i=0 to 100
‘….
Next i
End If
End Sub
Tab缩进大小设置,默认4个空格:
Access软件网QQ交流群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access自定义函数命名为中文名...(09.20)
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)