VBA代码

一、更改标题名称

• 点击右上角的黑色方块
• 计时器触发：每次要执行的代码
• 计时器间隔：每次执行代码的间隔
  

'计时器触发代码
Private Sub Form_Timer()
Caption = "当前时间：" & Time() 'caption表示标题
End Sub

二、模块

• 模块分为类模块和标准模块
  • 类模块：局部特效，只对一小部分有作用
  • 标准模块：全局模块，对所有部分都起作用

二(1)、构成

• 1.子过程：Sub,不能返回值。
• 2.函数过程：function,实现特定过程,可以返回值
  • 函数名 = 值，就是函数的返回值
• 两个语句写在同一行，语句中间加冒号“:”
• 如果一个语句写在一行太长可以换行，但要在换行的末尾加下划线“_”
• 一个单引号“'”或者rem表示注释这一行，注意rem后面要空一格。

'子过程代码模板
Sub 过程名参数)
语句
End Sub

function 函数名(参数)
语句
End function

三、变量定义

dim word as string '定义word为字符类型的变量，string表示可变长字符串
word = "mrflysand" '赋值，将字符串mrflysand给word这个变量

dim word1 as string*4 '令字符长度为4
word1 = "fly" '字符长度为4
word1 = "mrflysand" '字符长度为4

四、数据类型

四(1)、时间类型

• date()时间函数，获取当前系统的时间
• #2021-2-13#，#11:40#，时间类型用“#”

四(2)、布尔型booleun

• true 1
• false 0
• not 0 = 1
• not 1 = 0

四(3)、变体型variant

• 变体型：可以接受任意类型的数据(除定长字符串，用户定义类型)
• 如果一个变量没有给类型，变体型就会成为它的默认类型

四(4)、对象类型

• form窗体类型
• report报表类型
• Control控件类型
• 用法Dim f as form