Excel中VBA编程学习笔记（一）「建议收藏」

大家好，又见面了，我是你们的朋友全栈君。

1、注释及编码规则

注释：

1. 单引号：可以位于句子结尾或者单独一行；
2. Rem：单独一行

编码规则：

1. 如果VB中的关键字是由多个英文字母组成，则系统自动将每个单词的首字母转换成大写字母，其余字母一律转换成小写字母。
2. 对于用户自定义的变量名、过程名、函数名，VB以第一次定义的为准，以后输入的自动转换成首次的形式。
3. 如果在同一行写多条语句，语句 间 要用冒号“：”隔开。例如：

Form1.Width  =  300 :  Form1.Caption = “VB!”

1. 如果一条语句在一行写不下，可以分多行写，续航符为：一个空格后面跟一个下划线“_”。

例如：Address = “天津市河北工业大学”  +  _

                     “现代化教学中心”  +  _

                              “计算机技术基础教研室”

2、类模块

在Excel VBA中类模块就相当于一个类，类模块的名字就是类名。

下面为定义的一个类Class1，并且有些基本属性及一个初始化函数

【例】

下面定义一个类Class1，

Private name, sex As String

Private age As Integer

Public rng As Range

Sub class_initialize()  ‘初始化

    sex = “男”

    age = 20

End Sub

Public Property Get GetName() As Variant

    GetName = name

End Property

Public Property Get GetSex() As Variant

    GetSex = sex

End Property

Public Property Get GetAge() As Integer

    GetAge = age

End Property

Public Property Let SetName(newName As String)

    name = newName

End Property

Public Property Let SetSex(newSex As String)

    sex = newSex

End Property

Public Property Let SetAge(newAge As Integer)

    age = newAge

End Property

Public Function GetInfo() As String

    GetInfo = “姓名:” & name & “;性别:” & sex & “;年龄:” & age

End Function

Public Property Get maxNumer(num As Integer) As Integer

    maxNumber = Application.WorksheetFunction.Max(num, age)

End Property

Public Property Set SetBckColor(myRng As Range)

    myRng.Interior.ColorIndex = 3

End Property

新建一个过程

Sub test()

   Set tmp = New Class1

   Debug.Print tmp.GetAge() ’20

   tmp.SetName = “张三”

   tmp.SetAge = 23

   Debug.Print tmp.GetInfo()    ‘姓名:张三;性别:男;年龄:23

   Set tmp.SetBckColor = Sheet3.Rows(1)         ‘将Sheet3的第一行背景色设置为红色

End Sub                     

3、新建对象及常用对象

新建一个模块。

Option Explicit

Sub a()

Dim ab As New Class1

Debug.Print ab.x

End Sub

不能使用NEW创建的对象

常用对象

4、设置窗体尺寸及位置

以下两种方式均可：

5、声明变量及常量

变量声明格式如下：

Dim|Private|Public|Static <变量1> as <类型1> [,<变量2> as <类型2> …..]

注：没有是上面的关键字来明确的变量叫做隐式变量，系统自动分配的数据类型为Variant，如DaysLeft=100.

Private name As String ‘声明全局变量

Private Sub A()

   Dim M As Range ‘声明局部变量

   Set M = Sheet1.Range(“A1”)

   M.Value = InputBox(“请输入:”)

   name = Sheet1.Range(“A1”).Value

   MsgBox (“你输入的内容” & name)

End Sub

声明常量

Private Sub A()

   Const pi As Integer = 3.1415926

   Dim area As Double

   area = pi * 2 * 2

   Debug.Print (“面积为:” & area)

End Sub