VBA编程入门

原创 已于 2024-10-07 18:11:11 修改 · 1.3k 阅读 · 31 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#开发语言

于 2024-10-07 18:09:16 首次发布

VBA代码了解——弹框、提取内容

编写代码，插入模块，开始编写代码：

编写代码，弹出弹框

    'Sub 表示一个程序，理解为一段代码的集合
Sub 编写第一个VBA代码()
    'MsgBox 弹出一个弹框，显示以下信息
    
    MsgBox "这是我的第一个的 VBA 代码"

End Sub

开始运行代码；

代码结果：

注:

1、vbe环境会自己补充代码，例如格式，大小写关键字，但不是万能的；

2、tab 的格式，对于多行代码，需要注意格式的问题；阅读代码方便；

编写代码，提取内容

    'Sub 表示一个程序，理解为一段代码的集合
Sub 编写第一个VBA代码()
    'MsgBox 弹出一个弹框，显示以下信息
    MsgBox "这是我的第一个的 VBA 代码"
    
    '提取单元格的内容
    MsgBox "A1单元格的内容是：" & Range("B2").Value
    
End Sub

代码结果：

变量的编写

变量的含义

注：

        字节：计算机中存储空间的大小；

变量三要素：

  1.         数据类型
  2.         变量名
  3.         变量值

案例

案例1：

Sub 变量()
    ' 声明定义一个变量,用Dim 给变量起名字，Score, 数据类型为整型
    Dim Score As Integer
    Score = 100
    MsgBox Score
End Sub

运行结果：

案例2：

代码：

Sub 变量()
    ' 声明定义一个变量,用Dim 给变量起名字，Score, 数据类型为整型
    Dim Score As Integer
    Score = 100
    MsgBox Score
    
    Score = 200
    MsgBox Score
    
    ' 超出范围，显示溢出
    Score = 50000
    MsgBox Score
End Sub

运行结果：

注：溢出时，数据大小过小，往大调即可；

案例3：

代码：

Sub 变量()
    ' 小数类型的数据
    Dim Price As Double
    Price = 100.34
    MsgBox Price
    
    ' 日期类型的数据
    Dim To_day As Data
    To_day = #10/4/2024#
    MsgBox To_day
    
End Sub

运行结果：

注：

        日期显示以电脑格式为准；

        编写需要加#符号；

案例4：

代码：

Sub 变量()
    ' 字符类型的数据
    Dim str As String
    str = "you are good"
    MsgBox str
    
    ' 布尔类型的数据
    Dim bool As Boolean
    bool = True
    MsgBox bool
End Sub

运行结果：

案例5：（多变量声明）

代码：

Sub 变量()
    ' 声明定义一个变量,用Dim 给变量起名字，Score, 数据类型为整型
    Dim Score As Integer, Price As Double
    
    Score = 200
    Price = 100.34
    MsgBox Score
    MsgBox Price
    
End Sub

运行结果：

注：

  1. 通常，数据类型应当固定；
  2. variant ：可变数据类型；无法确定数据类型，浪费内存空间；

强制变量声明

代码未添加 Option Explicit 时，不会报错，即Sco没有定义；

代码添加之后，就会报错，对我们写代码有益；

案例：

Option Explicit
Sub OptionTest()
    Dim Score As Integer
    Score = 10
    MsgBox Score
    MsgBox Sco
End Sub

运行结果：

在工具框——选项勾选 要求变量声明 ；将自动添加 Option Explicit  代码；代码习惯；

变量声明周期

案例一代码：

Option Explicit

Sub Module1()
    '声明周期在此子程序当中
    Dim Price As Double
    Price = 4.5
    MsgBox Price
End Sub

Sub Module2()
    '不可用变量
    MsgBox Price
End Sub

要想使用变量，放入外面即可；

案例二代码：

Option Explicit
Dim Price As Double
Sub Module1()
    '声明周期在此子程序当中
    Price = 4.5
    MsgBox Price
End Sub

Sub Module2()
    '不可用变量
    MsgBox Price
End Sub

运行 module1 与module2结果：

注：变量只能在此模块中使用；

案例三代码：

模块1代码：

Option Explicit
'Dim Price As Double
Public Price As Double
Sub Module1()
    '声明周期在此子程序当中

    Price = 4.5
    MsgBox Price
End Sub

Sub Module2()
    '不可用变量
    Price = 5.4
    MsgBox Price
End Sub

注意关键字 Dim  变成 Public；

模块2代码：

Option Explicit

Sub Module3()
    '不可用变量
    Price = 15.4
    MsgBox Price
End Sub

运行结果：

Static 修饰符

未加static 修饰符：

Option Explicit

Sub Static修饰符()
    Dim Count As Integer
    Count = Count + 1
    MsgBox "你已经运行了：" & Count & "次"
End Sub

每一次的运行结果：

加static 修饰符：

Option Explicit

Sub Static修饰符()
    Static Count As Integer
    Count = Count + 1
    MsgBox "你已经运行了：" & Count & "次"
End Sub

注：注意关键字 Static 的位置； 

运行结果：

释放内存

方法1：

方法2：

关闭工作簿；

常量的使用

Option Explicit

Sub 常量的使用()
    '声明常量的时候赋值，
    '声明常量用 const
    Const PI As Double = 3.14159
    MsgBox PI
    '常量不允许赋值
    ' PI = 3.15
    MsgBox PI
End Sub

注：为了更加直观；

案例1：

代码：

Option Explicit

Sub 常量的使用()
    '声明常量的时候赋值，
    '声明常量用 const
    Const PI As Double = 3.14159
    MsgBox PI

    '计算半径为2的圆的面积
    Dim Area As Double
    Area = PI * 2 * 2
    MsgBox "圆的面积为：" & Area & "平方"
End Sub

运行结果：

数字运算符

运算符：数学运算符 + - / * ^ mod（取余）

Option Explicit

'数学运算符 + - / * ^ mod
Sub 数学运算符()
    Dim num1 As Integer, num2 As Integer
    num1 = 4
    num2 = 2
    Dim Result1 As Integer
    
    Result1 = num1 + num2  '加
    
    
    Dim Result2 As Integer
    
    Result2 = num1 * num2  '乘
    
    
    Dim Result3 As Integer
    
    Result3 = num1 / num2  '除
    
  
    Dim Result4 As Integer
    
    Result4 = num1 ^ num2  '次方
    
    Dim Result5 As Integer
    num2 = 3
    Result5 = num1 Mod num2  '取余
    
    MsgBox Result1
    MsgBox Result2
    MsgBox Result3
    MsgBox Result4
    MsgBox Result5
    
    Dim Result6 As Double
    num1 = 10
    num2 = 20
    Result6 = num1 ^ num2  '16  10 的20次方
    
    MsgBox Result6
    
End Sub

比较运算符

比较运算符： > < = >= <= =   <> 不等于

Option Explicit

'比较运算符 > < = >= <= =   <> 不等于
Sub 比较运算符()
    Dim num1 As Integer, num2 As Integer
    num1 = 4
    num2 = 2
    Dim Result1 As Boolean
    
    Result1 = num1 > num2
    
    
    Dim Result2 As Boolean
    
    Result2 = num1 >= num2
    
    
    Dim Result3 As Boolean
    
    Result3 = num1 = num2
    
  
    Dim Result4 As Boolean
    
    Result4 = num1 < num2
    
    Dim Result5 As Boolean
    num2 = 3
    Result5 = num1 <= num2
    
    Dim Result6 As Boolean
    num2 = 3
    Result6 = num1 <> num2  '不等于
    
    '条件成立    true
    '条件不成立  false
    MsgBox Result1
    MsgBox Result2
    MsgBox Result3
    MsgBox Result4
    MsgBox Result5
    

    
End Sub

逻辑运算符

逻辑运算符 And Or Not(取反)

Option Explicit

'逻辑运算符 And Or Not(取反)
Sub 逻辑运算符()
    Dim num1 As Integer, num2 As Integer, num3 As Integer
    num1 = 2
    num2 = 10
    num3 = 20
    
    Dim Result1 As Boolean
    '全部都成立，才会成立
    Result1 = (num1 > num2) And (num2 > num3)
    
    
    Dim Result2 As Boolean
    
    '成立一个，就会成立
    Result2 = (num1 > num2) Or (num2 < num3)
    
    
    Dim Result3 As Boolean
    
    ' 取反 之前是false,现在就是true
    Result3 = Not (num1 = num2)
    

    
    '条件成立    true
    '条件不成立  false
    MsgBox "Result1 :" & Result1
    MsgBox "Result2 :" & Result2
    MsgBox "Result3 :" & Result3

    

    
End Sub

表达式：

        常量，变量，运算符的组合；

VBA命名规范

命名规范：

  • 数字，字母，下划线；
  • 数字，下划线不能开头，字母结合数字，下划线进行命名；
  • 见名知意；
  • 特殊关键字不可以命名，如Dim,Static，Integer等;
  • 不能使用空格，特殊符号命名；

IF选择结构

案例1：

If 条件 Then

        执行语句

Else

        执行语句

EndIf

代码：

Option Explicit

Sub 选择结构()
    Dim Score As Integer
    Score = 57
    'Then  需要做的工作
    'End If 结束
    If Score >= 60 Then
        MsgBox "通过"
    Else
        MsgBox "不通过"
    End If

    
End Sub

运行结果：

案例2：

If 条件 Then

        执行语句

ElseIf 条件 Then

        执行语句

Else

        执行语句

EndIf

代码：

Sub 选择结构test2()
    Dim Score As Integer
    Score = 87
    'Then  需要做的工作
    'End If 结束
    If Score >= 90 Then
        MsgBox "优秀"
    ElseIf Score >= 80 Then
        MsgBox "普通"
        
    Else
        MsgBox "不及格"
        
    End If

    
End Sub

运行结果：

Select 选择结构

案例1：

Select Case 变量

Case Is  条件

        执行工作

......

Case Is  条件

        执行工作

Case Else 

        执行工作

代码：

Option Explicit


'SelectCase选择结构


Sub 选择结构test1()
    Dim Score As Integer
    Score = 87
    'Case Is    特定情况
    'Case Else  除其他值之外的情况
    
    Select Case Score
        Case Is >= 90
            MsgBox "优秀"
            
        Case Is >= 80
            MsgBox "普通"
            
        Case Else
            MsgBox "不及格"
        
    End Select
    


    
End Sub

运行结果：

注：此选择结构用的不多；

ForNext选择结构

案例1：

For 初始值 To 结束值
        执行语句
        Next num  //每次num自增1      num = num + 1

代码：

Option Explicit

Sub 循环结构()

    Dim num As Integer
    
    For num = 1 To 10
    
        MsgBox "循环结构：" & num & "次数"

        'next Num 每次num自增1      num = num + 1
        Next num
End Sub

案例2：

        求1-10的和；

代码：


'求和
Sub 循环结构test2()

    Dim num As Integer, sum As Integer
    sum = 0
    
    For num = 1 To 10
        sum = num + sum
        Next num
        
    MsgBox "1-10的和：" & sum
    
End Sub

运行结果：

 嵌套For循环结构

循环单独看就可以了；

代码：


'乘法表
Sub 循环结构test3()

    Dim i As Integer, j As Integer, sum As Integer
    sum = 0
    
    For i = 1 To 10
    
        For j = 1 To 10
        
            If i <= j Then
                sum = i * j
                MsgBox i & "*" & j & "=" & sum
            End If
            
        Next j
        
        
    Next i
        
    MsgBox "乘法表：" & sum
    
End Sub

Step的运用场景

案例1：

        step控制自增的大小

代码：

Option Explicit


'Step的应用

Sub 循环结构test2()

    Dim num As Integer, sum As Integer
    sum = 0
    'step 的作用 num = num +2
    For num = 1 To 100 Step 2
        sum = num + sum
        Next num
        
    MsgBox "1-100的奇数和：" & sum
    
End Sub

运行结果：


 

如何中断For循环结构

案例：

打断for循环

Exit For

代码：


Sub Breaktest3()

    Dim num As Integer, sum As Integer
    sum = 0
    For num = 1 To 100 Step 2
        If num > 50 Then
            ' 退出for循环
            Exit For
        End If
        sum = num + sum
        Next num
        
    MsgBox "1-50的奇数和：" & sum
    
End Sub

运行结果：

DoWhile 循环结构

    满足条件，执行语句

Do While 限制条件
        执行语句
 Loop

代码：

Option Explicit


'求和
Sub DoWhiletest1()

    Dim num As Integer, sum As Integer
    sum = 0
    num = 0
    
    Do While num <= 10
        sum = num + sum
        num = num + 1
    Loop
    
    MsgBox "Do While 1-10的和：" & sum
    
End Sub

运行结果：

DoUntil循环结构

案例：

    满足条件，不再执行

 Do Until 限制条件
        执行语句
  Loop

代码：

Option Explicit


'求和
Sub DoUntilltest1()

    Dim num As Integer, sum As Integer
    sum = 0
    num = 0
    
    '满足条件，不再执行
    Do Until num > 10
        sum = num + sum
        num = num + 1
    Loop
    
    MsgBox "Do until 1-10的和：" & sum
    
End Sub

运行结果：

编写无参数子过程

  • 子过程  、子程序 、 子函数
  • 可以将功能分开描述，单击子程序就可以运行；
  • Exit Sub 中断子程序；

编写有参数子过程

案例1：

带参数的子过程；

代码：

Option Explicit


Sub 有参数(ToNum As Integer)

    Dim num As Integer, sum As Long
    sum = 0
    
    For num = 1 To ToNum
        sum = num + sum
    Next num
    
    MsgBox "有参数 1-" & ToNum & "的和：" & sum
    
End Sub

Sub 调参数函数()

    有参数 (100)
    
    
End Sub

运行结果：

 案例2：

多个参数的应用

代码：

Sub 有参数test(ToNum As Integer, steptest As Integer)

    Dim num As Integer, sum As Long
    sum = 0
    
    For num = 1 To ToNum Step steptest
        sum = num + sum
    Next num
    
    MsgBox "有参数 1-" & ToNum & "的和：" & sum
    
End Sub

Sub 调参数函数test()

    有参数test 100, 2
    
    
End Sub

运行结果：

编写自定义函数

案例：

Function  表示函数过程；

Function有返回值，，子过程没有返回值；

Function 函数名

        函数名 = 功能

End Function

代码：

Option Explicit

'Function 表示函数过程，而不是子过程

Function Cubesum(x As Double, y As Double)

    Cubesum = x * x * x + y * y * y
    
End Function


Sub Test()
    
    MsgBox Cubesum(2, 3)

End Sub

运行结果：

一维数组

案例1：

存储数组，访问数据

注：   

  • LBound 数组最小的角标
  • UBound 数组最大的角标

代码：

Option Explicit

Sub Arraytest()

    '数组下标 为 1，2，3
    Dim Arraytest(1 To 3) As Integer
    

    '为一维数组存储，下标为 1，2，3
    Arraytest(1) = 0
    Arraytest(2) = 100
    Arraytest(3) = 200

' test1  
    '访问数据  
    MsgBox Arraytest(2)
 
 ' test2 
    '遍历
    Dim i As Integer
    
    For i = 1 To 3
        
       MsgBox Arraytest(i)
        
    Next i

 ' test3
    'LBound 最小的角标
    'UBound 最大的角标
    For i = LBound(Arraytest) To UBound(Arraytest)
        
       MsgBox Arraytest(i)
        
    Next i

End Sub

运行结果：

Option Base 的作用

案例：

option base 的作用，控制角标；

不做限制，默认为0

代码：

Option Base 1 '下标为1

Option Explicit

Sub ArrayTest2()
    
    Dim ArrayTest(3) As Integer
    '相当于 Dim ArrayTest(0，3) As Integer
    '默认最小角标为 0
    ArrayTest(0) = 0
    ArrayTest(1) = 50
    ArrayTest(2) = 100
    ArrayTest(3) = 200
    
    Dim i As Integer
    For i = LBound(ArrayTest) To UBound(ArrayTest)
        
       MsgBox ArrayTest(i)
        
    Next i


End Sub

运行结果：

下标越界

二维数组

案例：

遍历二维数组

代码：

Option Explicit

Sub Arraytest()


'定义二维数组
    Dim Arraytest(0 To 2, 0 To 2) As Integer
    

'二维数组赋值
    Arraytest(0, 0) = 1
    Arraytest(0, 1) = 2
    Arraytest(0, 2) = 3
    
    Arraytest(1, 0) = 11
    Arraytest(1, 1) = 22
    Arraytest(1, 2) = 33
    
    Arraytest(2, 0) = 111
    Arraytest(2, 1) = 222
    Arraytest(2, 2) = 333
    
 '遍历二维数组数组
    Dim index As Integer, index1 As Integer
    
    For index = 0 To 2
        For index1 = 0 To 2
    
            MsgBox Arraytest(index, index1)
            
        Next index1
    
    Next index
    
    
End Sub

运行结果：

代码2：

Sub Arraytest1()


'定义二维数组
    Dim Arraytest(0 To 3, 1 To 4) As Integer
    

'二维数组赋值
    Arraytest(0, 1) = 12
    Arraytest(0, 2) = 13
    Arraytest(0, 3) = 14
    Arraytest(0, 4) = 15

    Arraytest(1, 1) = 22
    Arraytest(1, 2) = 33
    Arraytest(1, 3) = 44
    Arraytest(1, 4) = 55
    

    Arraytest(2, 1) = 222
    Arraytest(2, 2) = 333
    Arraytest(2, 3) = 444
    Arraytest(2, 4) = 555
    
    Arraytest(3, 1) = 122
    Arraytest(3, 2) = 133
    Arraytest(3, 3) = 144
    Arraytest(3, 4) = 155

    
 '遍历二维数组数组
    Dim index As Integer, index1 As Integer
    
    'LBound(Arraytest, 0) 行的最小角标
    'UBound(Arraytest, 0) 行的最大角标
    For index = LBound(Arraytest, 1) To UBound(Arraytest, 1)
    
        'LBound(Arraytest, 2) 列的最小角标
        'UBound(Arraytest, 2) 列的最大角标
        For index1 = LBound(Arraytest, 2) To UBound(Arraytest, 2)
    
            MsgBox Arraytest(index, index1)
            
        Next index1
    
    Next index
    
End Sub

动态数组

案例：

定义一维动态数组
    Dim MyDynArray() As Integer

 ReDim 表示明确的动态数组的最小角标和最大角标
    ReDim MyDynArray(1 To 3)
  

  动态数组赋值
 

  ReDim MyDynArray(1 To 4) '会抹除之前的数据

代码：

Option Explicit


Sub MyDynArray()

    '定义一维动态数组
    Dim MyDynArray() As Integer
    
    
    'ReDim 表示明确的动态数组的最小角标和最大角标
    ReDim MyDynArray(1 To 3)
    

    '动态数组赋值
    MyDynArray(1) = 11
    MyDynArray(2) = 201
    MyDynArray(3) = 301
    
    
    '遍历
    Dim i As Integer
    
     
    For i = LBound(MyDynArray) To UBound(MyDynArray)
        
       MsgBox MyDynArray(i)
        
    Next i
    

    'ReDim MyDynArray(1 To 4) '会抹除之前的数据
    
    ReDim Preserve MyDynArray(1 To 4)  '保存之前的数据
    MyDynArray(4) = 401
    
    For i = LBound(MyDynArray) To UBound(MyDynArray)
        
       MsgBox MyDynArray(i)
        
    Next i
    
    
End Sub

运行结果：

面向对象

设置Range() 的值，设置单元格的属性

Option Explicit

Sub 面向对象()
    
    '设置单元格 A1 的 值
    ' Range ("A1") 表示单元格 A1 单元格

    Range("A1").Value = 100
    
    MsgBox Range("A1").Value
 

End Sub

Value     取值

Select    选择

Clear     清除

对象层级框架

案例1：

  • 活动的工作表
  • 指定的工作表

代码：

Option Explicit

     
Sub 对象层级()

    '对象层次访问
    '指定的工作簿
    Application.Workbooks("对象.xlsm").Worksheets("Sheet1").Range("A2").Value = 100
    
    
    
    '简略写法
    '指定的工作表
    Worksheets("Sheet1").Range("A5").Value = 50
    
    '目前活动的工作表
    
    Range("A3").Value = 90
    
End Sub

运行结果：

案例2：

工作表的集合

代码：

Sub 对象层级test()

    
    '目前活动的工作表
    
    Range("A11").Value = 1100
    
    '方法
    Range("A11").Select
    Range("A11").Clear
    
    '集合也是对象，也有属性和方法
    '属性
    MsgBox Worksheets("Sheet1").Name
    '方法
    Worksheets.Add
    
    
End Sub

运行结果：

单元格应用

案例1：

代码：

Option Explicit

Sub CellRefTest()

    '引用某个单元格
    Range("A4").Value = 100

    '引用多个单元格
    Range("A4,C4,E4").Value = 111

    '引用单元格区域
    Range("A5:C7").Value = 222
    
    '引用不连续的单元格
    Range("A9:C11,E12:G14").Value = 567
    
    '引用单元格区域名称
    'Range("test").Value = 1
    
    
    '引用行和列
    Range("22:22").Value = 0    '行
    Range("j:j").Value = 0      '列
    
    '引用多行
    Range("22:22,44:44").Value = 1    '行
    
    '引用多列
    Range("G:G,O:O").Value = 1    '行
    
    
    '引用相连行  列
    Range("36:46").Value = 2    '行
    
    Range("X:Z").Value = 2    '行
    
    
End Sub

Cells 和offset 属性

案例1：

代码：

Option Explicit

Sub Cellstest()

    '引用工作表中的某个单元格
    Worksheets("Sheet3").Cells(5, 9) = 45


    '引用单元格区域
    Range(Cells(8, 2), Cells(13, 5)) = 56
    
    
    '引用单元格区域中的某个单元格
    Range("B8:E13").Cells(3, 2) = 100
    
    
    
End Sub

运行结果：

引用单元格区域中的某个单元格

案例2：

offset

代码：

Sub Offsettest()

    'Offset 属性——偏移量——相对单元格

    Range("B15").Offset(3, 2).Value = 400
    Range("D18").Offset(-3, -2).Value = 200
    
End Sub

运行结果：

Select 和 Active 方法

案例1：

Select

代码：

Option Explicit

Sub CellRefTest()



    Range("B9").Select

    Range("C9:E14").Select



End Sub

运行结果

案例2：

Activate offset 区别

代码：

'
'Selection  引用选择单元格、单元格区域
'
'ActiveCell  引用活动单元格
'
Sub CellRefTest1()

    'Activate 方法  活动单元格

    Range("B9").Activate

    Range("C9:E14").Activate
    'Activate offset 区别

    Range("G9:J14").Select
    Range("H10").Activate

    '引用选择单元格、单元格区域
    
    Selection.Value = 200

    '引用活动单元格
    ActiveCell.Value = 100

End Sub

运行结果：

Range 对象的End属性

案例1：

Ctrl + shift +→  向右全部区域

Ctrl + shift +↑    向上全部区域

Ctrl + shift +↓    向下全部区域

Ctrl + shift +←  向左全部区域

Ctrl  +→  最右单元格

Ctrl  +↑    最上单元格

Ctrl +↓     最下单元格

Ctrl  +←   最左单元格

代码：

Option Explicit

Sub CellRefTest()


    Range("H11").End(xlToLeft).Select
    Range("H11").End(xlDown).Select

    '模拟 Ctrl + 方向键的作用
    Range("H11").End(xlDown).End(xlToRight).Select


    '模拟一片区域  Ctrl + 方向键的作用
    Range("H10", Range("H10").End(xlDown).End(xlToRight)).Select


End Sub

运行结果：

EXCEL VBA从入门到精通 第一章：VBA入门
05-03 1万+
在VBA中，需要使用关键字Dim来定义一个变量，后面跟上变量名和变量的数据类型。例如，下面的代码定义了一个整型变量x和一个字符串变量name在VBA中，使用关键字Const来定义常量，后面跟上常量名和常量的值。例如，下面的代码定义了一个整型常量MAX_NUM和一个字符串常量MESSAGE需要注意的是，常量一旦被定义，其值就不能被改变。
Excel_VBA_编程教程入门完整
09-19
不错的VBA学习资料，很全面很详细很基础，适合于初学者下载学习。
VBA编程
weixin_43318107的博客
07-09 1001
VAB 编程笔记 （关于20块钱的一个记录） 真的灰常遗憾，又错过了20块钱。。。本来五分钟编出来对方有偿，可惜没编出来。要求，某一列单元格包含包含多个空格，要求遇到空格后跳转到后一单元格并且其代号加一。如下图所示 代码实现 使用VBA编程实现，代码如下 Sub peng() Dim g%, t% Dim k As String g = 0 For i = 1 T...
Excel VBA从零基础到项目实战精通教程
weixin_26805451的博客
09-22 1170
变量与常量是任何编程语言中最基本的数据载体。在 VBA 中，它们不仅是存储信息的容器，更是影响代码结构清晰度、模块间耦合程度和运行时内存分配的关键因素。尤其在大型 Excel 自动化项目中，多个工作簿、工作表、窗体共存的情况下，若对变量的作用域管理不当，极易引发命名冲突、意外覆盖或难以追踪的状态错误。因此，理解DimStaticPublicPrivate等声明关键字的本质区别，并结合实际工程案例进行分析，是实现专业级 VBA 开发的第一步。常量用于表示不会改变的值，在 VBA 中通过。
Excel VBA编程入门范例
09-02
Excel VBA编程入门范例 Excel VBA编程入门范例 Excel VBA编程入门范例
Excel VBA编程教程（基础一）
热门推荐
O_MMMM_O的博客
07-10 5万+
VBA介绍 Visual Basic for Applications（VBA）是 VisualBasic 的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展 Windows 的应用程序功能，特别是Microsoft Office软件。 说简单点，VBA 是运行在 Microsoft Office 软件之上，可以用来编写非软件自带的功能的编程语言。Office 软件提供丰富的功能接口，VBA 可以调用它们，实现自定义的需求。基本上，能用鼠标和键盘能做的
VBA 入门
这里的分享，都是干货
12-07 3530
在 Excel 众多的概念中，VBA 是最重要也是最难学的一部分。如果涉及到数据处理工作，VBA 几乎可以实现任何功能，从简单的数据处理，到批量数据分析，再到与 Office 其他软件交互，甚至与操作系统交互实现复杂的功能，VBA 几乎都可以胜任。
Excel VBA编程入门教程-视频课程资源网盘链接提取码下载 .txt
03-16
### Excel VBA编程入门教程知识点概述 #### 一、VBA简介与背景 - **定义**: VBA（Visual Basic for Applications）是一种事件驱动的编程语言，由微软开发，主要用于自动化Microsoft Office应用程序，如Excel和Word...
《VBA编程入门》课件.ppt
09-24
《VBA编程入门》课程旨在向初学者介绍VBA（Visual Basic for Applications）的基础知识。VBA是一种面向对象的编程语言，专门用于扩展和自动化Microsoft Office应用程序的功能，如Excel、Word、PowerPoint等。该课程...
精选资源
ppt_VBA编程入门[汇编].pdf
10-11
ppt_VBA编程入门[汇编].pdf
Excel VBA编程入门精要
最新发布
11-29
本书《Excel VBA编程入门精要》是一本专门针对Excel VBA（Visual Basic for Applications）编程的入门指导书。它系统地涵盖了Excel VBA编程的关键技能，为读者提供了一套全面的学习资源，帮助他们从基础到高级技术的...
VBA编程入门PPT课件.pptx
10-07
"VBA编程入门PPT课件.pptx" 本资源摘要信息主要介绍了VBA（Visual Basic for Application）编程入门知识点，包括VBA概述、面向对象编程设计、对对象的属性、事件和方法、DoCmd对象的使用等。 VBA概述 VBA（Visual...
VBA编程教程
08-13
Excel-VBA-编程教程(完整版).pdf从基础开始，很完整。
VBA入门知识
12-31
想要使用EXCEL高效，不在重复入门的同学别错过哈。里面是必备的入门知识截图，我可是花了很久截出来的。
VBA入门经典教程（初学者必看）.rar
04-18
最适合初学者的一份经典的教材。取自office2000的帮助文档。我看过很多，唯一推荐的就是这一个。
VBA——01篇（入门篇——简单基础语法）
@素素~的博客
05-14 8161
VBA——01篇（入门篇——简单基础语法）
vba编程
狗剩的专栏
08-07 1万+
VBA 宏编程 相关文件在连接  https://download.youkuaiyun.com/download/wei198621/10589098   一 前期安装条件   解压13+Vba6.3+for+WPS+.zip 文件夹内容，执行安装 将后缀从pptx改为pptm，这样可以运行宏   错误 用户定义类型未定义  ADODB.Connection 执行的时候可能会提示如下，...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值