Excel VBA（Visual Basic）编程入门

Excel VBA（Visual Basic）编程入门

引用

CSDN

1.

https://blog.csdn.net/ZZQHELLO2018/article/details/106407930

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 name  
    name = "Hello World"  
    MsgBox name    
End Sub  

三、注释

注释有2种形式，一种是

Rem

；一种是

’

(单引号)，注释不影响代码执行

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

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

1.在工具栏中选择视图—>立即窗口，和本地窗口。

可以理解为打印台

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

2.debug显示

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

五、数据类型

variant 代表任意类型

single double decimal 代表 小数、

rem 代表注释关键字

Const 常量关键字

六、分支语句

IF分支

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

<>

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

switch case

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

七、循环语句

1.For 循环

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

2.do while

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

3.退出循环

（1）退出for 循环——

exit for

Sub class1()  
    Dim count As Integer  
    For count = 1 To 10  
        If count = 5 Then  
            Debug.Print "count 退出循环的值是: " & count  
            Exit For  
        End If  
        Debug.Print count  
    Next  
End Sub  

（2）退出do while 循环——

exit do

Sub class1()  
    Dim count As Integer  
    Do While True  
        count = count + 1  
        If count > 5 Then  
            Debug.Print "此时退出循环的值是: " & count  
            Exit Do  
        End If  
    Loop  
End Sub  

八、操作单元格

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

range

cells