exel VB编程语言入门

Vb数据类型

数据类型 描述
Integer 用于存储整数，范围为-32,768到32,767
Long 用于存储长整型，范围为-2,147,483,648到2,147,483,647
Single 用于存储单精度浮点数，范围为-3.402823E38到3.402823E38
Double 用于存储双精度浮点数，范围为-1.79769313486232E308到1.79769313486232E308
Boolean 用于存储布尔值，只能是True或False
String 用于存储字符串，最大长度为2,147,483,647个字符
Date 用于存储日期和时间值，范围为100年1月1日到9999年12月31日

Vb运算符

1. 加法:+
2. 减法:-
3. 乘法:*
4. / 除法
5. \ 整数除法
6. ^ 指数
7. Mod 取模
8. And 逻辑与
9. Or 逻辑或
10. Not 逻辑非
11. Xor 逻辑异或

Vb流程控制语句

Dim num As Integer
num = 10

If num Mod 2 = 0 Then
    Console.WriteLine("这个数是偶数")
Else
    Console.WriteLine("这个数是奇数")
End If

For i As Integer = 1 To 10
    ' 在这里执行代码
Next

Public Function AddNumbers(ByVal a As Integer, ByVal b As Integer) As Integer
    Return a + b
End Function

Function Factorial(ByVal number As Integer) As Integer
    If number < 0 Then
        Throw New ArgumentException("Factorial is not defined for negative numbers.")
    End If
    If number = 0 Or number = 1 Then
        Return 1
    Else
        Return number * Factorial(number - 1)
    End If
End Function

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM users WHERE age > 18", conn
Do While Not rs.EOF
    Debug.Print rs("name")
    rs.MoveNext
Loop

conn.Execute "INSERT INTO users(name, age) VALUES('Tom', 20)"

面向对象编程

Public Class MyClass
    ' 数据成员
    Public Property Name As String
    Public Property Age As Integer

    ' 函数成员
    Public Sub SayHello()
        Console.WriteLine("Hello, my name is " & Name & ", I'm " & Age & " years old.")
    End Sub
End Class

Dim obj As New MyClass

obj.Name = "Tom"
obj.Age = 18
obj.SayHello()

类的继承和多态

Public Class MySubClass
    Inherits MyClass

    ' 新的函数成员
    Public Sub SayGoodbye()
        Console.WriteLine("Goodbye, my name is " & Name & ", I'm " & Age & " years old.")
    End Sub
End Class

类的定义与使用

Public Class Person
    Private _name As String
    Private _age As Integer
    
    Public Sub New(name As String, age As Integer)
        _name = name
        _age = age
    End Sub
    
    Public Property Name As String
        Get##### 2.2.1 类和对象的概念

在面向对象编程中，类是一种抽象的数据类型，它定义了一组属性和方法，用于描述一类具有相同特征和行为的对象。而对象则是##### 2.2.1 Vb中的类
在Vb中，类是一种自定义数据类型，可以包含属性和方法。定义一个类需要使用Class关键字，如下所示：

```vb
Public Class##### 2.2.1 类和对象的概念
在Vb中，类是一种用户定义的数据类型，它可以封装数据和方法。对象则是类的一个实例，它可以访问类中的方法和属性。类和对象是面向对象编程的核心概念，通过类和对象的封装、继承、多态等特性，可以更好地组织和管理代码。

##### 2.2.2 类的定义和实例化
在Vb中，定义一个类需要使用Class语句，例如：

接口的定义

Public Interface IAnimal
    Sub Eat()
    Sub Sleep()
End Interface

接口的实现

Public Class Dog
    Implements IAnimal

    Public Sub Eat() Implements IAnimal.Eat
        ' 具体实现
    End Sub

    Public Sub Sleep() Implements IAnimal.Sleep
        ' 具体实现
    End Sub
End Class

窗体的创建

打开Vb，新建一个工程。
在工具箱中选择“窗体”控件，拖拽到工作区中。
可以通过属性窗口对窗体进行设置，如修改窗体标题、大小等。
在窗体中可以添加其他控件，如按钮、文本框等。

控件的属性设置

在Vb中，控件的外观和行为可以通过属性进行设置。常见的属性包括：

• Name：控件的名称，用于在代码中引用控件。
• Text：控件显示的文本。
• Visible：控件是否可见。
• Enabled：控件是否可用。
• Font：控件的字体。
• BackColor：控件的背景色。
• ForeColor：控件的前景色。
• Size：控件的大小。
• Location：控件的位置

事件处理

在Vb中，控件的行为可以通过事件进行处理。常见的事件包括：

• Click：当用户单击控件时触发。
• DoubleClick：当用户双击控件时触发。
• KeyDown：当用户按下键盘上的某个键时触发。
• MouseDown：当用户按下鼠标时触发。
• MouseMove：当用户移动鼠标时触发。
• MouseUp：当用户释放鼠标时触发

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    MsgBox(TextBox1.Text)
End Sub

Vb中的图形绘制

Dim g As Graphics = Me.CreateGraphics()
Dim p As New Pen(Color.Black, 2)
Dim startPoint As New Point(50, 50)
Dim endPoint As New Point(150, 150)
g.DrawLine(p, startPoint, endPoint)
Dim g As Graphics = Me.CreateGraphics()
Dim p As New Pen(Color.Black, 2)
Dim rect As New Rectangle(50, 50, 100, 100)
g.DrawRectangle(p, rect)
Dim g As Graphics = Me.CreateGraphics()
Dim p As New Pen(Color.Black, 2)
Dim rect As New Rectangle(50, 50, 100, 50)
g.DrawEllipse(p, rect)

Vb中的数据绑定

' 创建一个数据适配器
Dim adapter As New SqlDataAdapter("SELECT * FROM Customers", connectionString)

' 创建一个数据集
Dim dataSet As New DataSet()

' 填##### 4.4.1 数据绑定的概念

数据绑定是指将数据源中的数据与用户界面上的控件进行关联，使得数据源中的数据可以在控件中显示或者用户输入的数据可以保存到数据源中。在Vb中，数据绑定可以使用Adodc控件、DataGrid控件以及各种数据绑定控件来实现。

##### 4.4.2 Adodc控件的数据绑定示例

Adodc控件是Vb中用于连接数据库的控件之一，可以通过它来实现数据的绑定。下面是一个Adodc控件的数据绑定示例：

```vb
Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;"
    Adodc1.RecordSource = "SELECT * FROM mytable"
    Adodc1.Refresh
    Text1.DataBindings.Add "Text", Adodc1.Recordset, "myfield"
End Sub
##### 4.4.1 数据绑定的概念
数据绑定是一种将数据与用户界面元素相关联的技术，它可以使数据在用户界面中自动显示和更新。在Vb中，数据绑定可以通过使用数据绑定控件来实现，如DataGrid、DataList、Repeater等控件。其中，DataGrid是最常用的数据绑定控件之一，它可以将数据以表格的形式显示在用户界面中，并且可以支持数据的排序、分页等功能。

##### 4.##### 4.4.1 数据绑定概述
数据绑定是将数据与控件进行关联，实现数据的显示、编辑、保存等操作。在Vb中，数据绑定可以通过数据绑定控件和代码实现。常见的数据绑定控件有DataGridView、ListBox、ComboBox等。

##### 4.4.2 DataGridView数据绑定示例
DataGridView是Vb中常用的数据绑定控件，可以将数据绑定到DataGridView中进行显示和编辑。下面是一个简单的DataGridView数据绑定示例：

```vb
' 创建数据表
Dim dt As New DataTable()
dt.Columns.Add("ID",##### 4.##### 4.4.1 数据绑定的概念
数据绑定是指将数据源中的数据与用户界面中的控件绑定在一起，使得数据的变化能够自动地反映在控件上，同时用户对控件的操作也能够自动地反映到数据源中。在Vb中，数据绑定可以通过数据绑定控件和代码实现。

##### 4.4.2 数据绑定控件
Vb中提供了多种数据绑定控件，如DataGrid、DataList、Repeater等，这些控件可以自动地将数据源中的数据显示在控件上，并且支持对数据的编辑、删除、添加等操作。

##### 4.4.3 代码实现数据绑定
除了使用数据绑定控件，Vb还提供了通过代码实现数据绑定的方式。通过代码实现数据绑定可以更加灵活地控制数据的显示和操作。在代码中，可以使用数据适配器和数据集来实现数据的绑定。

##### ##### 4.4.1 数据绑定概述

数据绑定是指将数据源中的数据与用户界面控件进行关联，使得用户界面能够动态地显示数据源中的数据。在Vb中，数据绑定是通过数据绑定控件来实现的，常用的数据绑定控件有TextBox、Label、DataGridView等。

##### 4.4.2 TextBox数据绑定示例

下面是一个TextBox数据绑定的示例：

```vb
Dim conn As New SqlConnection("Data Source=(local);Initial Catalog=TestDB;Integrated Security=True")
Dim cmd As New SqlCommand("SELECT Name FROM Users WHERE ID=@ID", conn)
cmd.Parameters.AddWithValue("@ID", 1)
conn.Open()
Dim reader As SqlDataReader = cmd.ExecuteReader()
If reader.Read() Then
    TextBox1.DataBindings.Add("Text", reader, "Name")
End If
reader.Close()
conn.Close()

文件的打开、读写和关闭

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file As Object
Set file = fso.OpenTextFile("C:\path\to\file.txt", 1, False)
file.WriteLine("Hello, world!")
file.Close()

文件操作的高级技巧

Dim inStream As Object, outStream As Object
Set inStream = fso.OpenTextFile("C:\path\to\sourcefile.bin", 1, False)
Set outStream = fso.CreateTextFile("C:\path\to\destinationfile.bin", True)
outStream.Write inStream.ReadAll()
inStream.Close()
outStream.Close()

在Excel中，数据只有文本，数值，日期值，逻辑值和错误值五种类型。但是在VBA中，数据类型跟Excel不完全相同。根据数据的特点，VBA将数据分为布尔型（boolean），字节型(byte)，整数型(integer)，单精度浮点型(single)，双精度浮点型(double)，货币型(currency)，小数型(decimal)，字符串型（string），日期型（date）,对象型等等

声明变量
声明变量，其实就是指定该变量的名称及其可存储的数据类型，要在VBA中声明一个变量，有以下几种方法：

Dim 变量名 as 数据类型
Private 变量名 as 数据类型，用private声明变量，该变量将会变成私有变量
Public 变量名 as 数据类型，用public变量定义的变量是公有变量
static 变量名 as 数据类型，如果使用static声明变量，这个变量将会变成静态变量，当程序结束后，静态变量会保持其原值不变。
给变量赋值
给数据类型的变量赋值，应该要使用这个语句：let 变量名称 = 要存储的数据
给对象类型的变量赋值，应该使用下面的语句：“set 变量名称 = 要存储的对象名称”

使用array函数声明数组

Sub arraytest()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4)
    MsgBox "arr数组的第2个元素为：" & arr(1)
   
End Sub
Sub arraytest()
    Dim arr As Variant
    arr = Split("叶枫，空空，小月，老祝", "，")
    MsgBox "arr数组的第2个元素为：" & arr(1)
   
End Sub

通过单元格区域直接创建数组

Sub arraytest()
    Dim arr As Variant
    Range("A1:C3").Value = 5
    arr = Range("A1:C1").Value
    Range("e1:G1").Value = arr
   
End Sub
Sub arraytest()
    Dim arr As Variant
    Range("A1:C3").Value = 5
    arr = Range("A1:C1").Value
    MsgBox "数组的最大索引号是：" & UBound(arr)
   
End Sub
Sub arraytest()
    Dim arr As Variant
    Range("A1:C3").Value = 5
    arr = Range("A1:C1").Value
    MsgBox "数组的最小索引号是：" & LBound(arr)
   
End Sub
Sub arraytest()
   Dim arr(10, 100) As Integer
   Dim a As Integer, b As Integer
   a = UBound(arr, 1)
   b = UBound(arr, 2)
   MsgBox "第一维的最大索引是：" & a & Chr(13) & "第二维的最大索引是：" & b
   
End Sub
用join函数将一维数组合并成字符串
Sub arraytest()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4)
    Text = Join(arr)
    MsgBox Text
   
End Sub
将数组内容写入工作表中
Sub arraytest()
    Dim arr As Variant
    arr = Array(1, 2, 3, 4, 5, 6, 7)
    Range("A4:A11").Value = Application.WorksheetFunction.Transpose(arr)
    
End Sub
数组的存取
arr = range("B1:C1").value
msgbox arr(1,2)

const 常量名称 as 数据类型 = 存储在常量中的数据

select case语句

Sub test()
    Select Case Range("B2").Value
        Case Is >= 90
            Range("C2").Value = "优秀"
        Case Is >= 80
            Range("C2").Value = "良好"
        Case Is >= 60
            Range("C2").Value = "及格"
        Case Is < 60
            Range("c1").Value = "不及格"
    End Select
    
End Sub

Sub test()
    Dim irow As Byte
    Dim i As Byte
    For i = 1 To 10 Step 1
        Select Case Range("B" & i).Value
            Case Is > 100
                Range("C" & i).Value = "信息错误"
            Case Is >= 90
                Range("C" & i).Value = "优秀"
            Case Is >= 80
                Range("C" & i).Value = "良好"
            Case Is >= 60
                Range("C" & i).Value = "及格"
            Case Is < 60
                Range("C" & i).Value = "不及格"
        End Select
    Next i
End Sub

for each…next语句循环处理集合或数组中的成员

Sub test()
   Dim i As Byte
  j = 1
    For Each sht In Worksheets
        Range("D" & j).Value = sht.Name
        j = j + 1
    Next sht
   
End Sub
do [while 循环条件]
    循环体
    exit do
    循环体
loop
do 
    循环体
    exit do
    循环体
loop [while 循环条件]

Sub test()
   Dim i As Byte
   i = 1
   Do
        Worksheets.Add
        i = i + 1
    Loop While i < 5
End Sub
Sub test()
   Dim i As Integer
   Dim sum As Long
   i = 1
x:    mysum = mysum + i
    i = i + 1
    If i <= 100 Then GoTo x
    MsgBox "1到100的和为：" & mysum
End Sub

with语句，简写代码
当需要对相同的对象进行多次操作时，往往会编写一些重复的代码。如果不想重复多次的录入相同的语句，可以用with语句简化

Sub fontest()
    With Worksheets("Sheet1").Range("A1").Font
        .Name = "仿宋"
        .ColorIndex = 3
        .Bold = True
        .Size = 12
    End With
End Sub

直接使用过程名调用过程，过程名与参数之间用英文逗号隔开
subname,arg1,arg2

sub runsub()
    subadd
end sub
使用call关键字调用过程，参数写在过程小括号中，不同参数之间用逗号隔开

call 过程名(args,arg2)
sub runsub()
    call subadd
end sub
使用application对象的run方法调用过程
application.run "subname,arg1,arg2"
sub runsub()
    application.run "subadd"

sub过程中的参数传递在这里插入代码片
在VBA中，过程的参数传递主要有两种形式：按引用传递和按值传递。默认情况下，过程是按照引用的方式传递参数的。如果程序通过引用的方式传递参数，只会传递保存数据的内存地址，在过程中对参数的任何修改都会影响原始的数据

Sub shtadd(shtcount As Integer)
    Worksheets.Add Count:=shtcount
    shtcount = 8
    MsgBox "shtcount的值：" & shtcount
End Sub

Sub test()
    Dim c As Integer
    c = 2
    Call shtadd(c)
    MsgBox "参数过程中的值为：" & c
End Sub

自定义函数，function过程
声明一个自定义函数
public function 函数名([参数])
函数体
函数名= 结果
end function
1
2
3
4
无论function过程包含多少代码，要执行多少计算，都应该将最后的计算结果保存在过程名称中，这相当于其他语言中的函数return内容

使用自己定义的函数
在Excel中使用：
如果定义的函数没有被定义为私有过程，那么我们可以通过【插入函数】在Excel中使用我们自定义的函数。

Public Function fun()
    fun = Int(Rnd() * 10) + 1
End Function
在VBA过程中使用
Sub test()
    MsgBox fun()
End Sub
Public Function count_color(arr As Range, c As Range)
    Dim rng As Range
    For Each rng In arr
        If rng.Interior.Color = c.Interior.Color Then
            count_color = 1 + count_color
        End If
    Next rng
    
End Function

设置函数为易失性函数，让自定义函数也能重复计算
有时，当工作表重新计算后，自定义函数并不会重新计算。如果想让工作表重新计算后，自定义的函数也能随之重新计算，就应该讲自定义函数定义为易失性函数。要将一个自定义函数定义为易失性函数，只需要在function过程开始时添加下面一行代码：
application.voliatile true

Public Function fun()
application.voliatile true
fun = Int(Rnd() * 10) + 1
End Function

对象 对象说明

Application 代表Excel应用程序（如果在word中使用VBA，就代表word应用程序）
Workbook 代表Excel工作簿，一个workbook对象代表一个工作簿文件
worksheet 代表Excel的工作表，一个worksheet对象代表工作簿中的一个普通工作表
range 代表Excel中的单元格，可以是单个单元格，也可以是单元格区域
application对象操作
使用ScreenUpdating属性设置更新屏幕
application对象的ScreenUpdating属性是控制屏幕更新的开关。如果设置其为false，那么屏幕将不会更新，我们将不会看到每一步的执行结果
Sub test()
Application.ScreenUpdating = False
Range(“A1:A10”).Value = 10
MsgBox “刚才输入的结果是10，你看到了吗？”
Range(“A1:A10”).Value = 100
MsgBox “刚才的输入是100，你看到了吗”
Application.ScreenUpdating = True

End Sub
设置DisplayAlerts属性禁止显示警告对话框
当我们在Excel中执行某些操作时，Excel会显示一个警告框，让我们确定是否执行这些操作。由于很多原因，我们都希望Excel在程序执行中不显示类似的警告对话框，这样可以通过设置application对象的displayalerts属性为false来实现
Sub sheettest()
Worksheets.Add Count:=5
Application.DisplayAlerts = False
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
sht.Delete
End If
Next sht
Application.DisplayAlerts = True

End Sub
借助worksheetfunction属性使用工作表函数
VBA中有许多的内置函数，合理使用函数可有效减少工作中的许多难题，减少编写代码的工作量。但是VBA中没有Excel的内置函数，使用worksheetfunction可以调用Excel中的内置函数。
Sub cunt()
Dim mycount As Integer
Range(“A1:B10”).Value = 101
mycount = Application.WorksheetFunction.CountIf(Range(“A1:B10”), “>100”)
MsgBox “这片区域大于100的单元格是：” & mycount
End Sub
在【立即窗口】执行的代码 修改的区域
application.caption = “我的Excel” 标题栏
application.caption “miscrosoft excel” 标题栏
application.displayformulabar = false 编辑栏
application.displaystatusbar = false 状态栏
application.statusbar = “正在编辑。。。。” 状态栏
application.statusbar = false 状态栏
activewindow.displayheadings = false 行标和列标
application的子对象
application对象的常用属性

属性 返回的对象
ActiveCell 当前活动单元格
ActiveChart 当前活动工作簿中的活动图表
Activesheet 当前活动工作簿中的活动工作表
ActiveWindow 当前活动窗口
ActiveWorkbook 当前活动工作簿
Charts 当前活动工作簿中的所有的图表工作表
selection 当前活动工作簿中所有选中的对象
sheets 当前活动工作簿中的所有sheet对象，包括普通工作表，图表工作表，Excel4.0宏工作表和5.0对话框工作表
worksheets 当前活动工作簿的所有worksheet对象（普通工作表）
workbooks 当前所有打开的工作簿
引用workbook对象
通过文件索引引用
通过文件名引用
sub test()
workbooks(3)
workbooks(“sheet1”)
end sub
访问workbook对象属性

Sub info()
Range(“c1”) = ThisWorkbook.Name
Range(“C2”) = ThisWorkbook.Path
Range(“C3”) = ThisWorkbook.FullName
End Sub
创建工作簿——add
创建空白工作簿：如果直接调用workbook对象的add方法，而不设置任何参数，excel将创建一个只含普通工作表的新工作簿
指定用来创建工作簿的模板： 如果想将某个工作簿文件作为新建工作簿的模板，可以使用add方法的template参数指定该文件的名称及其所在的所在目录
指定新建工作簿包含的工作簿类型
workbooks.add
workbooks.add template:=“D:\file\template.xlsm”
workbooks.add template := xlWBATChart '让新建的工作簿包含图表工作表
用add方法的参数指定新建的工作簿包含的工作表类型

参数值 工作簿包含的工作表类型
xlWBATWorksheet 普通工作表
xlWBATChart 图表工作表
xlWBATExcel4Macrosheet 4.0宏工作表
xlWBATExcel4IntlMacrosheet 5.0对话框工作表
用open方法打开工作簿
workbooks.open filename := “path”
1
activate激活工作簿
workbooks(“workbooks_name”).activate
保存工作簿
save方法保存已存在的文件
saveas方法将工作簿另存为新文件
另存为新文件后不关闭原文件
thisworkbooks.save
thisworkbooks.saveas filename:=“path”
thisworkbooks.savecopyas filename :=“path”

1
2
3
4
close——关闭工作簿
workbooks.close '关闭当前打开的所有工作簿
workbooks(“workbooks_name”).close '关闭指定名称的工作簿
workbooks.close savechanges := true '关闭并保存对工作簿的修改
worksheet对象
add方法新建工作表
在活动工作表前插入一张工作表
用before|after参数指定要插入工作表的位置
用count 参数指定要插入的工作表数量
worksheets.add
worksheets.add before|after := worksheet_name
worksheets.add count:=number
1
2
3
设置name属性，更改工作表的标签名称
worksheets(“worksheet_name”).name = name
1
用delete方法删除工作表
worksheets(‘worksheet_Name’).delete
1
激活工作表的两种方法
worksheets(“worksheet_name”).avtivate
worksheets(“worksheet_name”).select
1
2
用copy方法复制工作表
将工作表复制到指定位置
将工作表复制到新工作簿中
worksheets(‘worksheet_name’).copy before|after :=worksheet_name
worksheets(“worksheet_name”).copy
1
2
使用move移动工作表
将工作表移动到指定位置
将工作表移动到新工作簿中
worksheets(‘worksheet_name’).move before|after :=worksheet_name
worksheets(“worksheet_name”).move
1
2
设置visible属性，隐藏或者显示工作表
worksheets(“worksheet_name”).visible =False or True
1
访问count属性，获得工作簿中工作表的数目
worksheets.count
range对象
用range属性引用单元格
引用单个固定的单元格区域：这种方法实际上就是通过单元格地址来引用单元格
引用多个不连续的单元格：将range属性的参数设置为一个用逗号分成多个单元格地址组成的字符串
引用多个区域的公共区域：将range属性设置成为一个用空格分割的多个单元格地址组成的字符串
引用两个区域围成的矩形区域
range(“A1:C1”)
range(“A1:A10,E6,E7:C12”).select
range(“B1:B10 A4:D6”).value
range(“B6:B10”,“D2:D8”)
用cell属性引用单元格
引用工作表中指定行列交叉的单元格
引用单元格区域中的某个单元格
将cells属性的返回结果设置为range属性的参数
使用索引号引用单元格
activesheet.cells(3,4) ‘选中第三行和第四列的交叉单元格D3’

range(“B3:F9”).cells(2,3)=10 ‘在B3:F9区域的第2行与第3列交接处输入100’

range(cells(1,1),cells(5,14)).select ‘指定A1：D5区域’

activesheet.cells(2).value=200 ‘指定工作表的第二个单元格为200’
1
2
3
4
5
6
7
引用整行单元格
在VBA中，rows表示工作表或某个区域中所有行组成的集合，要引用工作表汇总指定的行，可以使用行号或者索引号两种方式

activesheet.rows(“3:3”).select ‘选中活动工作表中的第三行’
activesheet.rows(“3:5”).select ‘选中活动工作表的3-5行’
activesheet.rows(3) ‘选中活动工作表的第三行’
1
2
3
引用整列单元格
在VBA中，columns表示工作表或某个区域中所有行组成的集合，要引用工作表汇总指定的行，可以使用行号或者索引号两种方式

activesheet.columns(“F:G”).select ‘选中活动工作表中的第F-G列’

activesheet.columns(3) ‘选中活动工作表的第6列’
1
2
3
使用union方法合并多个单元格区域
application对象的union方法返回参数指定的多个单元格区域的合并区域，使用该方法可以将多个range对象组合在一起，进行批量操作。

application.union(range(“A1:A10”),range(“D1:D5”)).select ‘同时选中两个区域’
1
range对象的offset属性
使用offset属性，可以获得相对于指定单元格区域一定偏移量位置上的单元格区域。offset有两个参数，分别用来设置该属性的父对象在上下或者左右方向上偏移的行列数

range(“B2:C3”).offset(5,3).value=200 ‘将B2:C3区域右移3个单元格，下移5个单元格’
1
range对象的resize属性
使用range对象的resize属性可以将指定的单元格区域有目的地扩大或者缩小，得到一个新的单元格区域。

range(“B2”).resize(4,5) ‘将B2区域扩大成了一个4行5列的区域’

range(“B2:E6”).resize(2,1) ‘将原区域缩小为一个两行一列的区域’

1
2
3
4
worksheet对象的usedrange属性
worksheet对象的usedrange属性返回工作表中已经使用的单元格围城的矩形区域.usedrange属性返回的总是一个矩形区域，无论这些区域是否存在空行，空列或者空单元格

activesheet.usedrange.select ‘选中活动工作表中已经使用的单元格区域’
1
range对象的currentregion属性
range对象的currentregion属性返回包含指定单元格在内的一个连续的矩形区域,空行及下面的区域以及空列及右面的区域不包含在currentregion区域内

range(“B5”).currentregion.select
1
range对象的end属性
range对象的end属性返回包含指定单元格的区域最尾端的单元格，返回结果等同于在单元格中按【enter+方向键】得到的单元格

range(“C5”).end(xlUP).address
end参数及说明

可设置的参数 参数说明
xlToLeft 等同于在单元格中按【end+左方向键】
xlToRight 等同于在单元格中按【end+右方向键】
xlUp 等同于在单元格中按【end+上方向键】
xlDown 等同于在单元格中按【end+下方向键】
value属性——单元格中的内容
range(“A1:B2”).value=“abc”
1
count属性，获得区域中包含的单元格个数
range(“B4:F10”).count
range(“B4:F10”).rows.count
range(“B4:F10”).columns.count
1
2
3
通过address属性获取单元格地址
msgbox “当前选中单元格的地址为”&selection.address
1
用activate和select方法选中单元格
activesheet.range(“A1:F5”).activate
activesheet.range(“A1:F5”).select
1
2
copy方法复制单元格区域
无论复制多少单元格，destination参数只需要指定左上角单元格坐标就好

range(‘region’).copy destination：=range(“other_region”)
1
cut方法剪切单元格区域
无论剪切多少单元格，destination参数只需要指定左上角单元格坐标就好

range(‘region’).cut destination:=range(“other_region”)
1
用delete方法删除指定的单元格
调用range对象的delete方法可以删除指定的单元格，但与手动删除单元格不同，通过VBA代码删除单元格，excel不会显示【删除】对话框。想让excel在删除指定的单元格后，按自己的意愿处理其他单元格，我们需要编写VBA代码将自己的意图告诉excel。如想删除B3所在的整行单元格，应将代码写为：

range(“B3”).entirerow.delete
1
操作对象的一些例子
根据需求创建工作簿
利用VBA创建一个符合自己需求的工作簿，并将其保存到指定的目录中

Sub wbadd()
Dim wb As Workbook
Dim sht As Worksheet
Set wb = Workbooks.Add
Set sht = wb.Worksheets(1)
With sht
.Name = “员工花名册”
End With
wb.SaveAs ThisWorkbook.Path & “员工花名册.xlsx”
ActiveWorkbook.Close

End Sub

判断某个工作簿是否已经打开
Sub isopen()
Dim i As Integer
For i = 1 To Workbooks.Count
If Workbooks(i).Name = “成绩表.xlsx” Then
MsgBox “成绩表文件已打开”
Exit Sub
End If
Next
MsgBox “文件未打开”
End Sub

判断文件夹中是否存在指定名称的工作簿文件
Sub isexist()
Dim fil As String
fil = ThisWorkbook.Path & “\员工花名册.xlsx”
If Len(Dir(fil)) > 0 Then
MsgBox “文件存在”
Else
MsgBox “文件不存在”
End If

End Sub

向未打开的工作簿中输入数据
Sub wbinput()
Dim wb As String, xrow As Integer, arr
wb = ThisWorkbook.Path & “\员工花名册.xlsx”
Workbooks.Open (wb)
With ActiveWorkbook.Worksheets(1)
xrow = .Range(“A1”).CurrentRegion.Rows.Count + 1
arr = Array(xrow - 1, “马军”, “男”, #7/8/1987#, #9/1/2010#, “10年新招”)
.Cells(xrow, 1).Resize(1, 6) = arr
End With
ActiveWorkbook.Close savechanges:=True

End Sub

隐藏活动工作表外的所有工作表
Sub shtvisible()
Dim sht As Worksheet
For Each sht In Worksheets
If sht.Name <> ActiveSheet.Name Then
sht.Visible = xlSheetVeryHidden
End If
Next
End Sub

批量新建指定名称的工作表
Sub shtadd()
Dim i As Integer
Dim sht As Worksheet
i = 1
Set sht = Worksheets(“Sheet11”)
Do While sht.Cells(i, “E”) <> “”
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sht.Cells(i, “E”).Value
i = i + 1
Loop

End Sub

批量对数据进行分离，并保存到不同的工作表中
Sub fenlie()
Dim i As Long, bj As String, rng As Range
i = 1
bj = Worksheets(“Sheet11”).Cells(i, “C”).Value
Do While bj <> “”
Set rng = Worksheets(bj).Range(“A1048576”).End(xlUp).Offset(1, 0)
Worksheets(“Sheet11”).Cells(i, “A”).Resize(1, 7).Copy rng
i = i + 1
bj = Worksheets(“Sheet11”).Cells(i, “C”).Value
Loop

End Sub

将多张工作表中的数据合并到一张工作表中
Sub hebing()
Dim sht As Worksheet
Set sht = Worksheets(“Sheet11”)
sht.Rows.Clear
Dim wt As Worksheet, xrow As Integer, rng As Range
For Each wt In Worksheets
If wt.Name <> “Sheet11” Then
Set rng = sht.Range(“A1048576”).End(xlUp)
xrow = wt.Range(“A1”).CurrentRegion.Rows.Count
wt.Range(“A1”).Resize(xrow, 7).Copy rng
End If
Next
End Sub

将工作簿中的每张工作表都保存为单独的工作簿文件
Sub savetofile()
Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path & “\班级成绩表”
If Len(Dir(folder, vbDirectory)) = 0 Then
MkDir folder
End If

Dim sht As Worksheet
For Each sht In Worksheets
    If sht.Name <> "Sheet11" Then
        sht.Copy
        ActiveWorkbook.SaveAs folder & "\" & sht.Name & ".xlsx"
        ActiveWorkbook.Close
    End If
Next
Application.ScreenUpdating = True

End Sub

将多个工作簿中的数据合并到同一张工作表中
Sub hzwb()
Dim bt As Range, r As Long, c As Long
r = 1
c = 7
Dim wt As Worksheet
Set wt = ThisWorkbook.Worksheets(1)
wt.Rows(r & “:1045876”).ClearContents
Application.ScreenUpdating = False
Dim filename As String, sht As Worksheet, wb As Workbook
Dim erow As Long, fn As String, arr As Variant
filename = Dir(ThisWorkbook.Path & “*.xlsx”)
Do While filename <> “”
If filename <> ThisWorkbook.Name Then
erow = wt.Range(“A1”).CurrentRegion.Rows.Count
fn = ThisWorkbook.Path & “” & filename
Set wb = GetObject(fn)
Set sht = wb.Worksheets(1)
arr = sht.Range(sht.Cells(r, “A”), sht.Cells(1048576, “B”).End(xlUp).Offset(0, 5))
wt.Cells(erow, “A”).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
wb.Close savechanges:=True
End If
filename = Dir
Loop
Application.ScreenUpdating = True

End Sub

为同一工作簿中的工作表建一个带链接的目录
Sub mulu()
Dim wt As Worksheet
Set wt = Worksheets(“Sheet11”)
wt.Rows(“1:1048576”).ClearContents
Dim sht As Worksheet, irow As Integer
irow = 1
For Each sht In Worksheets
If sht.Name <> “Sheet11” Then
wt.Cells(irow - 1, “A”).Value = irow - 1
wt.Hyperlinks.Add anchor:=wt.Cells(irow - 1, “B”), Address:=“”, SubAddress:=“'” & sht.Name & “'!A1”, TextToDisplay:=sht.Name
End If
irow = 1 + irow
Next
End Sub

其中参数anchor指定建立超链接的位置，address指定超链接的地址，subaddress指定超链接的子地址，TexttoDisplay指定用于显示超链接的文字

执行程序的自动开关——对象的事件
让excel自动相应我们的操作
打开thisworkbook的代码窗口
选择workbook对象，在声明中选择open
编写子程序

当某个事件放生后自动运行的过程，称为事件过程，事件过程也是sub过程 。与sub过程不同的是，时间过程的作用域，过程名称及参数都不需要我们设置，也不能随意设置。时间过程的过程名称总是由对象名称及时间名称组成的，对象在前，事件在后，二者之间用下划线连接。

使用工作表事件
工作表事件就是发生在worksheet对象中的事件，一个工作簿中可能包含多个worksheet对象，而worksheet事件过程必须写在相应的worksheet中，只有过程所在的worksheet对象中的操作才能触发相应的事件。

worksheet对象的change事件
worksheet对象的change事件告诉VBA：当过程所在工作表中的单元格被更改时自动运行程序。

编写事件过程，通常我们都采用这种方式：依次在【代码窗口】的【对象】列表框和【事件】列表框中选择相应的对象及事件名称，让VBA自动替我们设置事件过程的作用域、过程名称以及参数信息

更改单元格时自动执行
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox Target.Address & “被更改为” & Target.Value

End Sub

更改部分单元格时自动执行
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then
Exit Sub
End If

MsgBox Target.Address & "被更改为" & Target.Value

End Sub

禁用事件，让事件过程不再自动执行
禁用事件就是执行操作后不让事件发生。在VBA中，可以设置application对象的EnableEvents属性为false来禁用事件

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Offset(0, 1).Value = “测试一下”
Application.EnableEvents = True
End Sub

selectionchange事件：当选中的单元格改变时发生
worksheet对象的selectionchange时间告诉VBA：当更改工作表中选中的单元格区域时自动执行该事件的事件过程。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox “你当前所选中的单元格是：” & Target.Address

End Sub

高亮选择区域的相同值
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(“A3:I66”).Interior.ColorIndex = xlNone
If Application.Intersect(Target, Range(“A3:I66”)) Is Nothing Then
Exit Sub
End If

If Target.Count > 1 Then
Set Target = Target.Cells(1)
End If
Dim rng As Range
For Each rng In Range(“A3:I66”)
If rng.Value = Target.Value Then
rng.Interior.ColorIndex = 6
End If
Next
End Sub

用批注记录单元格中数据的修改情况
Dim rngvalue As String

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
Dim cvalue As String

If Target.Formula = "" Then
    cvalue = "空"
Else
    cvalue = Target.Text
End If

If rngvalue = cvalue Then
    Exit Sub

End If
Dim rngcom As Comment
Dim comstr As String
Set rngcom = Target.Comment
If rngcom Is Nothing Then Target.AddComment
comstr = Target.Comment.Text
Target.Comment.Text Text:=comstr & Chr(10) & Format(Now(), "yyyy-mm-ddhh:mm") & _
    "原内容：" & rngvalue & "修改为：" & cvalue
Target.Comment.Shape.TextFrame.AutoSize = True

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then
Exit Sub
End If
If Target.Formula = “” Then
rngvalue = “空”
Else
rngvalue = Target.Text
End If

End Sub

1
2
3
4
5
6
7
8
9
10
11
12
常用的worksheet事件
worksheet对象一共有17个时间，可以在【代码窗口】的【事件】列表框或VBA帮助中查看这些事件
常用的worksheet事件

事件名称 时间说明
activate 激活工作表时发生
beforeDelete 在删除工作表之前发生
beforeDoubleClick 双击工作表之后，默认的双击操作之前发生
beforeRightClick 右击工作表之后，默认的右击操作发生之前
calculate 重新计算工作表之后发生
change 工作表中的单元格发生更改时发生
deactivate 工作表由活动工作表变为不活动工作表时发生
followHyperlink 单击工作表中的任意超链接时发生
PivotTableUpdate 在工作表中更新数据透视表后发生
selectionchange 工作表中所选内容发生更改时发生
使用工作簿事件
工作簿事件是发生在workbook对象中的事件，一个workbook对象代表一个工作簿，workbook对象的事件过程必须写在ThisWorkbook模块中，可以在【工程资源管理器】中找到这个模块

open事件：当打开工作簿时发生
open事件是最常用的workbook事件之一，同国外吗会使用该事件对excel进行初始化设置，如设置想打开工作簿看到的excel窗口或工作界面，显示我们自定义的用户窗体等

beforeclose事件： 在关闭工作簿之前发生
private sub workbook_beforeclose(cancel as boolean)
if msgbox(“你确定要关闭工作簿吗？”,vbyesno) =vbno then
cancel =true
end if
end sub

sheetchange事件：更改任意工作表中的单元格时发生
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
MsgBox “你正在更改的是：” & Sh.Name & “工作表中的” & Target.Address & “单元格”
End Sub
1
2
3
常用的workbook事件
事件名称 事件说明
activate 当激活工作簿时发生
AddinInstall 当工作簿作为加载宏安装时发生
AddinUninstall 当工作簿作为加载宏卸载时发生
AfterSave 当保存工作簿之后发生
BeforeClose 当关闭工作簿之前发生
BeforePrint 在打印指定工作簿之前发生
beforesave 在保存工作簿之前发生
Deavtivate 在工作簿状态作为非活动状态时发生
NewChart 在工作簿新建一个图表时发生
Newsheet 在工作簿新建一个工作表时发生
open 打开工作簿时发生
sheetavtivate 激活任意工作表时发生
sheetBeforeDoubleClick 在双击任意工作表之前发生
sheetBeforeRightClick 在右击任意工作表之前发生
sheetCalculate 在重新计算工作表之后发生
SheetChange 当更改了任意工作表的单元格之后发生
sheetDeactivate 当任意工作表转为非活动状态时发生
sheetFollowHyperLink 当单击工作簿中的任意超链接时发生
SheetPivotTableUpdate 当更新任意数据透视表时发生
sheetSelectionchange 当任意工作表中的选定区域发生更改时发生
WindowActivate 在激活任意工作簿窗口时发生
windowdeactivate 当任意窗口变为不活动窗口时发生
windowresize 在调整任意工作簿窗口大小时发生
不是事件的事件
application对象的onkey方法
OnKey方法告诉excel，当按下键盘上指定的键或者组合键时，自动执行指定的程序

Sub test()
Application.OnKey “+e”, “Hello”
End Sub

Sub Hello()
MsgBox “我在学习onkey方法”
End Sub

在onkey中可以设置的按键及其对应代码

要使用的键 应设置的代码
Backspace {backspace} or {BS}
Break {Break}
Caps Lock {CAPSLOCK}
Delete or Del {DELETE} OR {DEL}
向下箭头 {DOWN}
End {END}
Enter(数字小键盘) {ENTER}
ENTER ~
Esc {ESCAPE} OR {ESC}
Home {HOME}
Ins {INSERT}
向左箭头 {LEFT}
Num Lock {NUMLOCK}
PageDown {PGDN}
PageUp {PGUP}
向右箭头 {RIGHT}
Scroll Lock {SCROLLLOCK}
Tab {TAB}
向上箭头 {UP}
F1到F15 {F1}到{F15}
Shift +
Crtl ^
Alt %
Application对象的OnTime方法
Ontime方法告诉VBA，在指定的时间自动执行指定的过程

Sub test()
Application.OnTime TimeValue(“14:07:00”), “Hello”
End Sub

Sub Hello()
MsgBox “我在学习ontime方法”
End Sub

Ontime的DateSerial参数可以设置指定的年月日；Scheduled的值如果为TRUE，会新设置一个Ontime过程，如果为False，就会清除之前设置的过程，默认值为TRUE

让文件自动保存
Sub test()
Application.OnTime Now() + TimeValue(“00:05:00”), “AutoSave”
End Sub

Sub AutoSave()
ThisWorkbook.Save
Call test
End Sub

设置自定义的操作界面
控件，搭建操作界面必不可少的零件
excel中有两种类型的控件：表单控件和ActiveX控件。可以在excel的【功能区】中找到它们

表单控件
控件名称 控件说明
按钮 用于执行宏命令
组合框 提供可选择的多个选项，用户可以选择其中一个项目
复选框 用于选择的控件，可以多项选择
数值调节按钮 通过单击控件的箭头来选择数值
列表框 显示多个选项的列表，用户可以从中选择一个选项
选项按钮 用于选择的控件，通常几个选项按钮用组合框组合在一起使用，在一组中只能同时选择一个选项按钮
分组框 用于组合其他多个控件
标签 用于输入和显示静态文本
滚动条 包括水平滚动条和垂直滚动条
ActiveX控件：excel中有11中可用的ActiveX控件，但是工作表总使用的ActiveX控件不止这些，可以单击其中的【其他控件】按钮，在弹出的对话框中选择其他控件
在工作表中使用控件
添加表单控件

2. 绘制表单控件

3. 设置相应区域

在工作表中使用ActiveX控件
添加ActiveX控件

2. 设置属性

编写控件代码
Private Sub xb2_Click()
If xb2.Value = True Then
Range(“D2”).Value = “女”
xbl.Value = False
End If
End Sub

Private Sub xbl_Click()
If xbl.Value = True Then
Range(“D2”).Value = “男”
xb2.Value = False
End If

End Sub

显示内容

不需设置，使用现成的对话框
用InputBox函数创建一个可输入数据的对话框
Input函数共有5个参数：

prompt参数用于设置在对话框中显示的提示消息
title用于设置对话框的标题
default用于设置默认的输入值
xpos用于设置对话框与左端与屏幕左端的距离
ypos用于设置对话框的顶端与屏幕顶端的距离
Sub inbox()
Dim c As Variant
c = InputBox(“你要在A1单元格输入什么数据？”, Title:=“提示”, Default:=“叶飞”, xpos:=200, ypos:=250)
Range(“A1”).Value = c

End Sub

用input方法创建交互对话框
用application对象的inputbox方法也可以创建于程序互动的对话框，但要注意与Inputbox函数相比，Input方法的参数有些许不同

application.inputbox(prompt:=“内容”,title:= “标题”
default := “默认值”, left := “与屏幕左端距离”
top := “与屏幕右端距离”, type := “输入数据的类型”)

type参数的可设置项及说明

可设置的参数值 方法返回结果的类型
0 公式
1 数字
2 文本（字符串）
4 逻辑值（true or false）
8 单元格引用（range对象）
16 错误值
64 数值数组
Sub rngpinput()
Dim rng As Variant
On Error GoTo cancel
Set rng = Application.InputBox(“请选择需要输入数值的单元格”, Type:=8)
rng.Value = 100
cancel:

End Sub

使用msgbox函数创建输出对话框
Sub msg()
MsgBox “你正在编辑的是：” & ThisWorkbook.Name, Buttons:=vbOKOnly + vbInformation, Title:=“提示”

End Sub

设置在对话框中显示的按钮样式

常数 值 说明
vbOkonly 0 只显示【确定】按钮
vbOkcancel 1 只显示【确定】和【取消】按钮
vbAbortRetryIgnore 2 显示【终止】，【重试】，【忽略】三个按钮
vbYesNoCancel 3 显示是，否，取消三个按钮
vbYesNo 4 显示是，否两个按钮
vbRetryCancel 5 显示重试，取消两个按钮
不同图标的参数设置

常数 值 说明
vbCritical 16 显示【关键信息】图标
vbQuestion 32 显示【警告询问】图标
vbExclamation 48 显示【警告消息】图标
vbInformation 64 显示【通知消息】图标
设置对话框中的默认按钮
常数|值|说明
vbDefaultButton1 | 0 | 第一个按钮为默认值
vbDefaultButton2 | 256 | 第二个按钮为默认值
vbDefaultButton3 | 512 | 第三个按钮为默认值
vbDefaultButton4 | 768 | 第四个按钮为默认值

指定对话框的类型

常数 值 说明
vbApplicationModel 0 应用程序强制返回；应用程序暂停执行，直到用户消息框做出响应才继续
vbSystemModel 4096 系统强制返回；全部应用程序都暂停执行，直到用户对消息框做出响应才继续工作
buttons参数的其他设置

常数 值 说明
vbMsgBoxHelpButton 16384 在对话框中添加帮助按钮
vbMsgBoxForeground 65536 设置显示的对话框窗口为前景窗口
vbMsgBoxRight 524288 设置对话框中显示的文本为右对齐
vbMsgBoxRtlReading 1048576 指定文本英在希伯来文和Alibaba系统中显示为从右到左阅读
MsgBox函数的返回值

常数 值 说明
vbOk 1 单击【确定】按钮时
vbCancel 2 单击【取消】按钮时
vbAbort 3 单击【终止】按钮时
vbRetry 4 单击【重试】按钮时
vbIgnore 5 单击【忽略】按钮时
vbYes 6 单击【是】按钮时
vbNo 7 单击【否】按钮时
Sub msgbut()
Dim yn As Integer
yn = MsgBox(“你确定要在A1单元格输入今天的日期吗？”, vbYesNo + vbQuestion)
If yn = vbYes Then
Range(“A1”).Value = Now()
End If

End Sub

使用FindFile方法显示【打开】对话框
使用application对象的FindFile方法可以显示【打开】对话框，在对话框中选择并打开某个文件

Sub openfile()
If Application.FindFile = True Then
MsgBox “the file you chosed has benn open”
Else
MsgBox “你单击了【取消按钮】，操作未完成”
End If

End Sub

用GetOpenFileName方法显示【打开】对话框
与findfile方法不同，使用GetOpenFileName方法是获得在对话框中选中的文件的文件名称（包含路径），而findfile是打开在对话框中选中的文件

选择任意文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename
If fil = False Then
MsgBox “没有任何文件”
Exit Sub
Else
Range(“E6”).Value = fil
End If
End Sub

只在对话框中显示某种类型的文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg”)
If fil = False Then
MsgBox “没有任何文件”
Exit Sub
Else
Range(“E6”).Value = fil
End If
End Sub

让对话框同时显示多种扩展名文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg;*png”)
If fil = False Then
MsgBox “没有任何文件”
Exit Sub
Else
Range(“E6”).Value = fil
End If
End Sub

让对话框能选择显示多种类型的文件
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg;*png,Excel工作簿文件,*xls;*xlsx”)
If fil = False Then
MsgBox “没有任何文件”
Exit Sub
Else
Range(“E6”).Value = fil
End If
End Sub

通过FilterIndex参数设置默认显示的文件类型
如果在【文件类型】下拉列表中设置了多种可选择的文件类型，就可以通过GetOpenFileName方法的FiterIndex参数，设置对话框中默认显示的文件类型
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg;*png, Excel工作簿文件, *xls;*xlsx”, FilterIndex:=2)
If fil = False Then
MsgBox “没有任何文件”
Exit Sub
Else
Range(“E6”).Value = fil
End If
End Sub

设置允许同时选择多个文件
默认情况下，在通过GetOpenFileName方法显示的【打开】对话框中，只能同时选中一个文件，如果希望同时选中多个文件，可以将MultiSelect参数设置为TRUE
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg;*png, Excel工作簿文件,*xls;*xlsx”, FilterIndex:=2, MultiSelect:=True)
Range(“E6”).Value = fil
End Sub

修改对话框标题
Sub getopen()
Dim fil
fil = Application.GetOpenFilename(filefilter:=“图片文件,*.jpg;*png, Excel工作簿文件,*xls;*xlsx”, FilterIndex:=2, MultiSelect:=True, Title:=“请选择你要获取名称的文件”)
Range(“E6”).Value = fil
End Sub

用GetSaveAsFilename方法显示【另存为】对话框
要想获得选中的文件名称，还可以调用application对象的GetSaveAsFilename方法打开【另存为】对话框，在对话框文中选择文件，获得该文件包含路径信息的文件名称

Sub getsaveas()
Dim fil As String, filename As String, filter As String, tile As String
filename = “例子”
filter = “Excel工作簿,xls;xlsx,Word文档,.doc;.docx”
Title = “请选择要获取信息的文件”
fil = Application.GetSaveAsFilename(InitialFileName:=filename, fileFilter:=filter, Title:=Title, FilterIndex:=2)
Range(“A10”) = fil
End Sub

使用application对象的FileDialog属性获取目录名称
如果想要获得的不是文件名，而是指定目录的路径及名称，可以使用application对象的FileDialog属性。

Sub getfolder()
    With Application.FileDialog(filedialogtype:=msoFileDialogFilePicker)
        .InitialFileName = "D:\"
        .Title = "请选择一个目录"
        .Show
        If .SelectedItems.Count > 0 Then
            Range("A1").Value = .SelectedItems(1)
        End If
    End With
End Sub

msoFileDialogType参数可以设置的常量

常量 说明
msoFileDialogFilePicker 允许选择一个文件
msoFileDialogFolderPicker 允许选择一个文件夹
msoFileDialogOpen 允许打开一个文件
msoFileDialogSaveAs 允许保存一个文件
使用窗体对象设置交互界面
很多时候，我们都希望自己能够设计一个交互界面，定义其中的控件及控件的功能，这就需要用到VBA中的另一类常用对象——Userform对象。一个用户窗体就是一个Userform对象，也就是大家常说的窗体对象。当在工程中添加一个窗体后，就可以在窗体上自由的添加ActiveX控件，只要通过编写VBA代码为这些控件指定功能，就能利用这些控件与excel互动

在工程中添加一个用户窗体

设置属性，改变窗体的外观

在窗体中添加和设置控件的功能

用代码操作自己设计的窗体
显示窗体
手动显示窗体
在VBE窗口中选中窗体，依次执行【运行】——>【运行子过程/窗体】命令，即可显示选中的窗体

在程序中用代码显示窗体

sub showform()
    load inputform
    inputform.show
end sub

将窗体显示为无模式窗体
模式窗体不能操作窗体之外的对象
要将窗体显示为模式窗体，可以使用代码

InputForm.show

或者省略show方法的参数，或者将参数设置为vModal，VBA都会讲窗口见识为模式窗体
2. 无模式窗体允许进行窗体外的其他操作

要将窗体显示为无模式窗体，必须通过show方法制定参数

Inputform.show vmodeless

如果将窗体显示为无模式窗体，当窗体显示后，系统会继续执行程序余下的代码，也允许我们操作窗体之外的其他对象

关闭或隐藏已显示的窗体
用unload命令关闭窗体
unload Inputform

使用Hide方法隐藏窗体
inputform.hide

用户窗体的事件应用
借助Initialize事件初始化窗体
Initialize事件发生在显示窗体之前，当我们在程序中使用load语句加载窗体，或者使用show显示窗体时，都会引发该时间

Private Sub UserForm_Initialize()
性别.List = Array(“男”, “女”)
End Sub

借助QueryClose事件让窗体自带的【关闭】按钮失效
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> vbFormCode Then Cancel = True
End Sub

queryclose事件过程是一个带两个参数的sub过程，其中的cancel参数确定是否响应我们关闭窗体的操作。当值为TRUE时，程序将不响应我们关闭窗体的操作。如果cancel的值为false，程序将关闭窗体。其中CloseMode参数是我们关闭窗体的方式，不同的关闭方式返回的值也不相同

CloseMode参数的返回值说明

常数 值 说明
vbFormControlMenu 0 在窗体中单击【关闭】按钮关闭窗体
vbFormCode 1 通过unload语句关闭窗体
vbAppWindows 2 正在结束当前Windows操作环境的过程
vbAppTaskManagee 3 windows的【任务管理器】正在关闭整个应用
为窗体的控件设置功能
为【确定】按钮添加事件过程

Private Sub cmd_OK_Click()
    Dim xrow As Long
    xrow = Range("A1").CurrentRegion.Rows.Count + 1
    Cells(xrow, "A").Value = 姓名.Value
    
    Cells(xrow, "B").Value = 性别.Value
    Cells(xrow, "C").Value = birth.Value
    姓名.Value = ""
    性别.Value = ""
    birth.Value = ""
End Sub

给控件设置快捷键

给按钮设置了快捷键后，显示窗体时，当按下对应的快捷键就等于在窗体中用鼠标单击了该按钮。

Private Sub UserForm_Initialize()
    性别.List = Array("男", "女")
    cmd_OK.Accelerator = "N"
End Sub

更改控件的Tab键顺序

只有对象被激活时，才能几首键盘输入。控件的Tab键顺序决定用户按下【Tab】或【Shift+Tab】组合键后控件激活的顺序。在设计窗体时，系统会按照添加控件的先后顺序确定控件的Tab顺序。但是这个顺序是可以更改的。在VBE中选中窗体，依次执行【视图】——>【Tab键顺序】命令。调出Tab键顺序对话框，即可在其中调整控件的Tab键顺序

用窗体设计一个简易的登陆窗体 设计窗体显示 2. 添加代码，为控件指定功能

Private Sub cmd_cacel_Click()
    Unload 用户登录
    ThisWorkbook.Close savechanges:=False
End Sub

Private Sub cmd_ok_Click()
    Application.ScreenUpdating = False
    Static i As Integer
    If CStr(username.Value) = Right(Names("username").RefersTo, Len(Names(username).RefersTo) - 1) And CStr(pwd.Value) = Right(Names("userword").RefersTo, Len(Names("userword").RefersTo) - 1) Then
        Unload 用户登录
    Else
        i = i + 1
        If i = 3 Then
            MsgBox "你无权打开工作簿"
            ThisWorkbook.Close savechanges:=False
        Else
            msg "输入错误，你还有" & (3 - i) & "次机会输入"
            username.Value = ""
            pwd.Value = ""
        End If
    End If
    Application.ScreenUpdating = True
    
End Sub

Private Sub pwd_set_Click()
     Dim old As String, new1 As String, new2 As String
    old = InputBox("请输入密码：", "提示")
    If old <> Right(Names("userword").RefersTo, Len(Names("userword").referto) - 1) Then
        MsgBox "原密码输入错误，不能修改", vbCritical, "错误"
        Exit Sub
    End If
    new1 = InputBox("请输入新密码：", "提示")
    If new1 = "" Then
        MsgBox "新密码不能为空，修改没有完成", vbCritical, "错误"
        Exit Sub
    End If
    new2 = InputBox("请再次输入新密码：", "提示")
    If new1 = new2 Then
        Names("userword").RefersTo = "=" & new1
        ThisWorkbook.Save
        MsgBox "密码修改完成"
    Else
        MsgBox "两次密码输入不一致，修改未完成", vbCritical, "错误"
    End If
    
End Sub

Private Sub user_set_Click()
    Dim old As String, new1 As String, new2 As String
    old = InputBox("请输入用户名：", "提示")
    If old <> Right(Names("username").RefersTo, Len(Names("username").referto) - 1) Then
        MsgBox "原用户名输入错误，不能修改", vbCritical, "错误"
        Exit Sub
    End If
    new1 = InputBox("请输入新用户名：", "提示")
    If new1 = "" Then
        MsgBox "新用户名不能为空，修改没有完成", vbCritical, "错误"
        Exit Sub
    End If
    new2 = InputBox("请再次输入新用户名：", "提示")
    If new1 = new2 Then
        Names("username").RefersTo = "=" & new1
        ThisWorkbook.Save
        MsgBox "用户名修改完成"
    Else
        MsgBox "两次用户名不一致，修改未完成", vbCritical, "错误"
    End If
    
End Sub

调试与优化编写的代码

On Error GoTo标签

On Error GoTo 标签实际就是在“on error”的后面加了一个GoTo语句，其中的“标签”就是替goto语句设置的标签，是一个数字或者带冒号的文本。标签告诉VBA，当程序运行过程中晕倒运行时错误时，跳转到标签所在行的代码继续执行程序，实际上就是让程序跳过出错的代码，从另一个地方重新开始执行程序。

Sub test()
    On Error GoTo a
    Worksheets("abc").Select
   Exit Sub
a: MsgBox "没有要选择的工作表"

End Sub

on error resume next

Resume Next告诉VBA，如果程序发生错误，则忽略存在错误的代码，接着执行错误行之后的代码。如果程序一开始加入On Error Resume Next语句，运行程序时，及时程序中存在运行时错误，VBA也不会中断程序，而是忽略所有存在错误的语句，继续执行出错语句后的代码

Sub test()
    On Error Resume Next
    Worksheets("abc").Select
    Exit Sub
    MsgBox "没有要选择的工作表"

End Sub

On Error GoTo 0

使用On Error GoTo 0语句后，将关闭对程序中运行时错误的捕捉，如果程序在On Error GoTo 0语句后出现运行错误，将不会被捕捉到

Sub test()
    On Error GoTo 0
    Worksheets("abc").Select
   Exit Sub
    MsgBox "没有要选择的工作表"

End Sub

事件分类
Excel提供了非常多的事件，主要分为以下几类。

工作簿事件：工作簿事件发生在特定的工作簿中如Open（打开工作簿）、BeforeClose（关闭工作簿之前）和SheetActivate（激活任何一张表）等。工作簿事件的代码必须在ThisWork对象代码模块中编写。
工作表事件：工作表事件发生在特定的工作表中，例如Activate（激活工作表）、Change（更改工作表中的单元格）和SelectionChange（工作表上的选定区域发生改变）等。工作表事件的代码必须在对应工作表的代码模块中编写。
窗体、控件事件：新建的用户窗体及窗体上的控件也可响应很多事件，例如Click（单击）、Change（控件内容更改）等，这类事件的代码必须编写在相应的用户窗体代码模块中。
图表事件：图表事件针对某个特殊的图表产生如Select（选中了图表中的某个对象）和SeriesChange （改变了系列中的某个数据点的值）。
不与对象关联的事件：不与对象关联的事件只有两个，分别是OnTime和OnKey，根据时间和按钮来产生这两个事件。
2.8.1.1.2 编写事件程序
以对工作簿的Open事件编写处理代码为例，步骤如下：

在Excel环境下按“Alt+F11”组合键打开Visual Basic编辑器。
在左侧的“工程资源管理器”窗口中列出了当前工程项目中的Excel对象，双击其中的“ThisWorkbook”对象，将在右侧打开代码编辑器。
在代码窗口左侧对象下拉列表框中选择对象。
选择好对象“Workbook”后，在代码窗口右侧的事件下拉列表框中可看到出该对象的事件列表。
选择好对象和事件后，系统自动生成事件过程的外部结构。在事件过程结构中编写响应该事件的代码即可。
2.8.1.2 属性过程
在VBA中，除了模块、用户窗体外，还提供了类模块。类模块向开发人员提供了创建和操作自己的对象类的功能。

在“类模块”中设置类的属性值时，可通过“属性过程”来完成。
Debug.Print