Excel VBA（Visual Basic）编程入门

Visual Basic for Applications（VBA），是依附在应用程序（例如Excel）中的VB语言。只要你安装了Office Excel就自动默认安装了VBA，同样Word和PowerPoint也能调用VBA对软件进行二次开发而让一些特别复杂的操作“脚本化”。VBA是Excel的底层根本。作为程序员来讲，只有明白使用最底层的东西，使用起来才能随心所欲。

一、VBA打开方式

方式一：快捷键`ALT+F11`

方式二：

sheet 右击–>查看代码可以进入编程界面

方式三：文件 - 选项 - 自定义功能区 - 勾选开发工具 -菜单栏点击 “开发工具”-Visual Basic

进入下面的代码编辑页面

二、写一个 Hello World

大部分程序入门都会写一个代码输出“Hello World”，我们写第一个程序在选定的单元格输出自己的昵称。

1、新建模块

模块方便我们导出代码用于其他的Excel，所以养成良好的编程习惯插入模块

2、在指定区域编写代码

Sub class()Dim namename = "Hello World"MsgBox name
End Sub

三、注释

注释有2种形式，一种是Rem；一种是 ’ (单引号)，注释不影响代码执行

Sub class()Rem 这是注释'这是第二种类注释'定义一个变量Dim namename = "清平乐"MsgBox name
End Sub

四、调用"立即窗口" 和 “本地窗口”

1.在工具栏中选择视图—>立即窗口，和本地窗口。
可以理解为打印台

Sub class()Rem variant是任意类型Dim name As Variantname = "Hello World"Rem debugDebug.Print namename = "清平乐"Debug.Print nameRem 定义常量Const num As Integer = 123Debug.Print numEnd Sub

2.debug显示

Sub class()Dim namename = "Hello World"Debug.Print namename = "清平乐"MsgBox nameDebug.Print name
End Sub

五、数据类型

variant 代表任意类型

single double decimal 代表小数、

rem 代表注释关键字

Const 常量关键字

六、分支语句

IF分支

Sub score()
Dim 定义一个变量初始值
Number = 90
If Number >= 90 ThenDebug.Print "优秀"
ElseIf Number >= 80 ThenDebug.Print "良好"
ElseDebug.Print "一般"
End If
End Sub

Sub class3()
Dim number As String
number = "匹配"
If number > "匹配" ThenDebug.Print "优秀"
ElseIf number <> "匹配" ThenDebug.Print "良好"
End If
End Sub

switch case


Sub class4()Dim number As Stringnumber = "匹配"Select Case numberCase "匹配"Debug.Print "匹配"Case "不匹配"Debug.Print "不匹配"End SelectEnd Sub

七、循环语句

1.For 循环

Sub class()
Rem 演示for 循环
Dim count As IntegerFor count = 1 To 10Debug.Print countNextDebug.Print "count 循环结束之后的值是 " & count
End Sub

2.do while

Sub class()Rem do while 演示Dim count As Integercount = 20Do While count > 10Debug.Print countcount = count - 1Debug.Print countLoopRem do .. loop 条件 不演示了Do        Loop While count > 10End Sub

3.退出循环

（1）退出for 循环—— exit for

Sub class1()Dim count As IntegerFor count = 1 To 10If count = 5 ThenDebug.Print "count 退出循环的值是: " & countExit ForEnd IfDebug.Print countNext
End Sub

（2）退出do while 循环——exit do

Sub class1()Dim count As IntegerDo While Truecount = count + 1If count > 5 ThenDebug.Print "此时退出循环的值是: " & countExit DoEnd IfLoop
End Sub

八、操作单元格

两种方式，一种是range，一种是cells
range

cells