VBA -- 学习Day4

已于 2025-05-13 18:27:13 修改
阅读量256 收藏 4
点赞数 3
文章标签： excel
于 2025-05-09 18:29:35 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/m0_73557953/article/details/147833928
版权
数组

创建数组：

Dim 数组名（数组元素上下角标）[As 元素类型]

eg. Dim MyArray (1 To 3) As Integer

注意：1.如果不指定元素类型，则是Variant类型

向数组赋值：

eg.

MyArray(1) = 100

MyArray(2) = 200

MyArray(3) = 300

访问数组元素：

Debug.Print MyArray(2)

Debug.Print MyArray(2),MyArray(3)

遍历数组：

可以通过LBound和UBound动态获取数组的上下角标

eg. 1. Debug.Print LBound(MyArray),UBound(MyArray)

      2. For Index =  LBound(MyArray) To UBound(MyArray)

                 Debug.Print MyArray(Index)

          Next Index

清除数组：

将数组中的数据进行重置

Erase MyArray

Option Base声明：

如果在声明变量时，只写了一个数字，表达的是最大的角标

注意：1. 声明需要放到最上方

           2.默认最小角标就是0；只能设置0或1，设置其他值会报错

多维数组：

创建多维数组：

Option Base 1

Dim MyArray(2,3) As Integer    => 创建两行三列数组

向多维数组赋值：

MyArray(1,1) = 10

MyArray(1,2) = 20

MyArray(1,3) = 30

MyArray(2,1) = 40

MyArray(2,2) = 50

MyArray(2,3) = 60

访问元素：

Debug.Print MyArray(2,2)

遍历二维数组，循环嵌套：

Dim RowNo As Integer,ColNo As Integer

For RowNo = 1 To 2

       For ColNo = 1 To 3

              Debug.Print MyArray(RowNo,ColNo)

       Next ColNo

Next RowNo

遍历多维数组：

LBound(Array,n): 表示n维数组的最小角标

UBound(Array,n): 表示n维数组的最大角标

eg.

Dim MyArray(2,4) As Integer

MyArray(1,1) = 10

MyArray(1,2) = 20

MyArray(1,3) = 30

MyArray(2,1) = 40

MyArray(2,2) = 50

MyArray(2,3) = 60

For RowNo = LBound(MyArray,1) To UBound(MyArray,1) //一维角标最小值 ~ 一维角标最大值 1~2

// n省略（维度省略）默认是一维 “ For RowNo = LBound(MyArray) To UBound(MyArray)  ”

       For ColNo = LBound(MyArray,2) To UBound(MyArray,2) //二维角标最小值 ~ 二维角标最大值 1~3

              Debug.Print MyArray(RowNo, ColNo)

       Next ColNo

Next RowNo

For Each ... Next 循环语句：

每一次循环获取MyArray数组中某个空间的值，并且赋值给Num变量

For Each 变量 in 数组

      循环体

Next 变量

注：1. ForEachNext循环其中的变量只能是Variant类型

       2. ForEachNext循环语句只能遍历一维数组，无法遍历多维数组

       3. Next 后面的变量，可写可不写

eg. 

Sub ForEachNext循环（）

        Dim MyArray(1 To 3) As Integer

        MyArray(1) = 10

        MyArray(2) = 20

        MyArray(3) = 30

        Dim Num As Variant

        For Each Num  In MyArray

               Debug.Print  Num

        Next Num

End Sub

动态数组：

创建动态数组：

Dim 数组名（）[As 元素类型]

重新调整数组大小：

ReDim [Preserve] 数组名（数组元素上下角标，...）

注：1. Redim可以调整数组大小和维度 但无法重新指定数据类型

eg.

Sub 一维动态数组（）

        Dim MyDynArray() As Integer

        ReDim MyDynArray(1 To 3, 1 To 4) //可以调整动态数组的大小，维度

        MyDynArray(1) = 10

        MyDynArray(2) = 20

        MyDynArray(3) = 30

End Sub

       2. ReDim调整动态数组的时候，会把之前的数组的数据进行重置

           如何解决：添加Preserve：保留之前的数组数据

eg.

Sub 一维动态数组（）

        Dim MyDynArray() As Integer

        ReDim MyDynArray(1 To 3)

        MyDynArray(1) = 10

        MyDynArray(2) = 20

        MyDynArray(3) = 30

        Dim Num As Variant

        ReDim MyDynArray(1 To 4)  // ReDim Preserve MyDynArray(1 To 4) 动态扩展，但不要把原来数据抹除

        MyDynArray(4) = 40

        For Each Num In  MyDynArray

                Debug.Print Num

        Next

End Sub

=> 0   => 10

     0         20

     0         30

    40        40

        3. 如果使用了ReDim并且添加了Preserve，只能调整最后一个维度的大小

eg. 

Sub 二维动态数组（）

        Dim MyDynArray() As Integer

        ReDim MyDynArray(1 To 3)

        MyDynArray(1) = 10

        MyDynArray(2) = 20

        MyDynArray(3) = 30

        ReDim MyDynArray(1 To 2, 1 To 3)

        MyDynArray(1,1) = 10

        MyDynArray(1,2) = 20

        MyDynArray(1,3) = 30

        MyDynArray(2,1) = 40

        MyDynArray(2,2) = 50

        MyDynArray(2,3) = 60

        Dim RowNo As Integer,ColNo As Integer

        For RowNo = LBound(MyDynArray) To UBound(MyDynArray)

                For ColNo = LBound(MyDynArray,2) To UBound(MyDynArray,2) //二维

                        Debug.Print MyDynArray(RowNo,ColNo)

                Next ColNo

        Next RowNo

        

        ReDim Preserve MyDynArray(1 To 2, 1 To 4)

        MyDynArray(1,4)=70

        MyDynArray(2,4)=80

        For RowNo = LBound(MyDynArray) To UBound(MyDynArray)

                For ColNo = LBound(MyDynArray,2) To UBound(MyDynArray,2) //二维

                        Debug.Print MyDynArray(RowNo,ColNo)

                Next ColNo

        Next RowNo

End Sub

=> 10

      20

      30

      70

      40

      50

      60

      80

Array函数：

使用Array函数创建一维数组

Dim MyArray As Variant

MyArray = Array(1,2,3,4,5)

eg.

创建的一维数组默认从0角标开始：

Sub 使用Array函数创建一维数组（）

        Dim MyArray As Variant

        MyArray = Array(10,20,30,40,50)

        Dim Index As Integer

        For Index =LBound(MyArray) To UBound(MyArray)

                Debug.Print MyArray(Index)

        Next Index

End Sub

创建的一维数组默认从1角标开始：

Option Base 1

Sub 使用Array函数创建一维数组（）

        Dim MyArray As Variant

        MyArray = Array(10,20,30,40,50)

        Dim Index As Integer

        For Index =LBound(MyArray) To UBound(MyArray)

                Debug.Print MyArray(Index)

        Next Index

End Sub

使用Array函数模拟创建多维数组

以二维数组为例

Dim MyArray As Variant

MyArray = Array(Array(10,20,30),Array(40,50,60))

MyArray(1)(1) //MyArray(1)这个一维数组的第一个元素

//MyArray(1) MyArray的第一个元素，只不过它又是一个数组

遍历使用Array函数模拟创建的二维数组

Sub 使用Array函数模拟创建二维数组（）

        Dim MyArray As Variant

        MyArray = Array(Array(10,20,30),Array(40,50,60))

        Dim i As Integer,j As Integer

        For i = LBound(MyArray) To UBound(MyArray)

                For j = LBound(MyArray(i)) To UBound(MyArray(i))

                        Debug.Print MyArray(i)(j)

                Next j

        Next i

End Sub

//MyArray(i)（j）访问MyArray中的数组元素中的第j个元素

注：使用Array函数创建的数组是固定大小的，不能使用ReDim重新调整数组的大小

练习1 —— 获取数组最大值和最小值：

Sub 查找最大值和最小值（）

        Dim MaxValue As Integer,MinValue

        Dim NumArray As Variant

        NumArray = Array(3,8,2,5,10)

        ’ LBound(NumArray)：获取一维数组的最小角标；NumArray(LBound(NumArray))：获取一维数组的最小角标所对应的值

        MaxValue =  NumArray(LBound(NumArray))

        MinValue = NumArray(LBound(NumArray))

        Dim Index As Integer

        ’从第二个角标到最后一个角标，可以针对这些角标中的每个空间的数据都和MaxValue的值进行比较

        For Index = LBound(NumArray)+ 1 To UBound(NumArray)

                ’如果某个角标所对应的值大于MaxValue所存储的值，将这个数值存储到MaxValue变量中；否则，什么都不做

                If NumArray(Index) > MaxValue Then

                        MaxValue = NumArray(Index)

                End If

                If NumArray(Index) < MinValue Then

                        MinValue = NumArray(Index)

                End If

        Next Index

Debug.Print "最大值：" & MaxValue

Debug.Print "最小值：" & MinValue

End Sub

练习2 —— 获取二维数组的最大值：

扩展：记录最大值的位置（所处的行列角标）

eg.

Sub 查找二维数组中的最大值（）

        Dim Matrix （1 To 3,1 To 3）As Integer

        Matrix(1,1) = 1

        Matrix(1,2) = 5

        Matrix(1,3) = 3

        Matrix(2,1) = 4

        Matrix(2,2) = 2

        Matrix(2,3) = 9

        Matrix(3,1) = 7

        Matrix(3,2) = 8

        Matrix(3,3) = 6

        // 多行代码放到一行上，可以使用英文冒号进行分隔

        Matrix(1,1) = 1: Matrix(1,2) = 5: Matrix(1,3) = 3

        Matrix(2,1) = 4: Matrix(2,2) = 2: Matrix(2,3) = 9

        Matrix(3,1) = 7: Matrix(3,2) = 8: Matrix(3,3) = 6

        Dim MaxValue As Integer

        MaxValue = Matrix(1,1)

        Dim RowNo As Integer,ColNo As Integer

        Dim  MaxValueRowNo As Integer, MaxValueColNo As Integer

        MaxValueRowNo = 1

        MaxValueColNo = 1

        For RowNo = LBound(Matrix,1) To UBound(Matrix,1)

                For ColNo = LBound(Matrix,2) To UBound(Matrix,2)

                        If Matrix(RowNo,ColNo) > MaxValue Then

                                MaxValueRowNo = RowNo

                                MaxValueColNo = ColNo

                                MaxValue = Matrix(RowNo,ColNo)

                        End If

                Next ColNo

        Next RowNo

        Debug.Print "最大值：" & MaxValue

        Debug.Print "最大值的行角标：" & MaxValueRowNo

        Debug.Print "最大值的列角标：" & MaxValueColNo

End Sub

练习3 —— 计算录入数据的均值：

Sub 计算学生平均成绩（）

        Dim Grades() As Integer  //创建动态数组，保存用户每次录入的数据

        Dim NewGrade As Integer //用于保存用户最新录入的成绩数据

        Dim InputContent As String //保存用户录入的信息

        ReDim Grades(1 To 1) //动态数组先初始化,初始化动态数组为一行一列的数组

        Do

                InputContent = InputBox("输入新成绩（输入"结束"终止输入，执行计算程序）")

                If InputContent = "结束" Then

                        Exit Do

                Else

                        NewGrade = VBA.CInt(InputContent) //这里需要把数字内容的字符串转换为整数，C：Convert进行转换，Int：Integer，转换为整数

                        Grades(UBound(Grades)) = NewGrade //把转换后的数字存储到动态数组中

                        ReDim Preserve Grades(1 To UBound(Grades)+1) //扩大一个格子的空间，为下次做准备

                End If

        Loop

//当用户输入结束后，就需要遍历动态数组，把所有成绩求和，得到总成绩，方便我们最终计算平均值

        Dim Num As Variant,GradeSum As Integer

        For Each Num In Grades

                GradesSum =  GradesSum + Num

        Next

        Dim GradesAvg As Double

        If UBound(Grades) = 1 Then

                MsgBox "没有录入一次学生成绩数据，计算平均值没有意义"

        Else

                GradesAvg = GradesSum / (UBound(Grades) - LBound(Grades)) //如果用户直接输入结束，会导致报错，1-1=0

                Debug.Print "平均成绩为：" & GradesAvg

         End If

End Sub

//原=> 50 0 1

          100

          90

          80

           0  4 5

Day4-跟着孙兴华学习Excel VBA 第一季
qq_45526868的博客
02-19 502
Excel——开发工具——Visual Basic——点击插入——选择模块——复制代码，粘贴进去——将鼠标光标定位到代码语句中（确保一会运行的是该子模块代码）——点击绿色三角号（运行子过程）插入——模块——复制代码粘贴到此处——光标定位到代码语句中（确保系统一会运行的是该段代码）——点击运行子模块。运行结果（此处有调用第15节所用到的代码，所以运行16节代码时，一定保证代码模块有第15节所代码）首先提示，选择拆分后工作簿存储位置（这里我新建了文件夹，随意能记住自己存储就可），点击确定。
Day3-跟着孙兴华学习Excel VBA 第一季
qq_45526868的博客
02-18 531
场景：将分表的数据内容汇总到总表中，且保留分表的格式原始表：共4个表，1个总表为空，3个分表里都有数据内容且带有相应的格式代码运行结果。
VBA -- 学习Day2
m0_73557953的博客
05-08 288
隐式类型转换：如果存储的数据的类型和我们设置的变量的数据类型不一致，首先会尝试隐式类型转换，（它会转换成设置的变量的数据类型），然后把转换之后的结果存储到内存空间中；注：1. sub 宏程序名称，按下Enter => 自动补全() ,Sub自动大写，自动补全End Sub。2. 光标放在待执行的宏程序内部再执行 就不用选 要执行的是哪个宏程序。要想让未声明的变量报错，并且定位，我们可以在最上方写入Option Explicit。日期类型，变量默认值：0：00:00。字符串类型，变量默认值：""
VBA -- 学习Day3
m0_73557953的博客
05-09 306
Until ：直到...为止，Until后面的条件：表示如果符合这个条件，就退出循环的执行。3. Next 计数变量 => 相当于 计数变量 = 计数变量+1。和While的区别：While后面的条件表示如果符合这个条件，就执行循环体。2. 使用Exit For可以退出For循环。For 计数变量 = 初始值 To 终止值 [Step 步长值]（Else 如果上方的条件都不成立，最后执行的代码块）注意：1. [Step 步长值]不写默认 Step 1。如果条件成立就执行Then后面的代码块。
VBA -- 学习Day1
m0_73557953的博客
05-07 214
VBA代码组装在一起就称之为程序，这个程序在Excel中就称之为是宏程序；所以宏就是通过VBA编写的一系列指令组成的程序。：采用录制方式，让Excel根据我们的操作，自动编写VBA代码；录制宏=>操作=>停止录制。：VBA一种编程语言。
VBA学习笔记40-60集
weixin_43957681的博客
10-16 863
FileString = Rarexe & " A -x" & ThisWorkbook.path & "\B\dr.xls -x" & ThisWorkbook.path & "\B\1.xls -ep " & myRAR & " " & Myfile 'rar程序的A命令压缩文件的字符串。mykey = arr(x, 1) & "," & arr(x, 2) & "," & arr(x, 3) & "," & arr(x, 4) '把商品所有信息连接起来,后面放在key里存放,以便随时调用。
从零开始学习excel自动化-VBA（宏应用）-DAY0
weixin_50174833的博客
04-18 1051
range对象，可以表示选中连续的单元格、同时选中的分散的单元格，支持操作单元格的内容、字体、删除线、颜色等。未指定数据类型，默认为 Variant类型。6.快捷进入编译界面：Alt+F11。通常使用 Dim 语句来声明变量，5.with函数，可以简练代码阅读。Function 函数。Property 属性。
Day5-2-跟着孙兴华学习Excel VBA 第一季
qq_45526868的博客
02-22 869
1.打开需要处理工作表——点击该表开发工具——visual basic——点击sheet插入模块——复制粘贴代码———光标定位到代码内——点击运行子模块。1.打开需要处理工作表——点击该表开发工具——visual basic——点击sheet插入模块——复制粘贴代码———光标定位到代码内——点击运行子模块。打开一个Excel 空白文档 ——点击该表开发工具——visual basic——点击sheet1——点击右键插入模块——复制粘贴代码。2.运行后，选择图片文件存储的文件夹——点击确定。
Day2-跟着孙兴华学习Excel VBA 第一季
qq_45526868的博客
02-17 612
接第五节内容生成带超链接的工作表目录，当点击超链接到某个表后若想点击其他表，需点击总表，再点击第二个表。首先，将第一个名称改为“总表”（初学者不随意改动代码，为保证调用表名与代码一致），见图1。点击Excel开发者模式——点击Visual Basic——点击插入——复制《006.在各个分表创建返回总表的命令按钮.txt》代码，见图2——粘贴到模块6中——点击鼠标光标定位到Set btn = .Buttons.Add(0, 0, 60, 30)——点击 生成返回超链接效果，见图3。
Day1-跟着孙兴华学习Excel VBA 第二季
04-02
Day1-跟着孙兴华学习Excel VBA 第二季
VBA-VBS-Access-Python-Microstation在地理信息应用中的实践
该资源是一篇关于VBA、VBScript、Access、Python和MicroStation的学习心得，主要由大庆油田设计院单文冬分享。文章详细介绍了在编程和数据处理过程中的一些实用技巧和方法。 1. **立即窗口测试代码**： - 在VBA...
画立方体软件开发笔记 js-pytorch xlsx 导出 excel pnpm安装
njsgcs的博客
05-11 265
放着，等我把模型训练好了再用这个对接。
使用 Navicat 将 Excel 导入数据库
qq_43668996的博客
05-12 260
以下是使用 Navicat 将 Excel 导入数据库的一般步骤。
Excelize 开源基础库发布 2.9.1 版本更新
xuri
05-13 469
Excelize 开源基础库 2.9.1 版本发布, 2025 年首个更新
按指定位置或关键字批量删除工作表-Excel易用宝
qq_57681942的博客
05-12 254
在一个工作簿中有多个工作表，有些工作表不需要了，如果一个一个手动删除，那实在是太慢了，有没有什么好的方法可以批量删除工作表。例如，我们现在需要删除第2到第6个工作表，选择指定表，输入参数2~6个表，单击【删除】。当然也可以在筛选表名中输入关键字，根据指定工作表名称关键字筛选工作表，单击【删除】。批量删除工作表很简单，单击【易用宝】→【工作表】→【批量删除工作表】。在打开的批量删除工作表对话框中，可以根据需求选择空白表，隐藏表等选项。
PyInstaller 打包后 Excel 转 CSV 报错解决方案：“excel file format cannot be determined“
m0_58530495的博客
05-13 925
在使用 Python 开发 Excel 转 CSV 工具时，通过 PyInstaller 打包成可执行文件后，可能会出现无法自动识别 Excel 文件格式的问题。这通常是由于 Pandas 依赖的外部库（如 openpyxl 和 xlrd）未正确包含在打包文件中。解决方案包括：1. 在代码中显式指定解析引擎；2. 确保开发环境已安装必要的解析库；3. 在 PyInstaller 打包命令中显式添加隐藏依赖；4. 创建钩子文件以确保资源正确打包。通过这些步骤，可以有效解决打包后 Excel 文件解析失败的问题
vue2/3 中使用 @vue-office/docx 在网页中预览(docx、excel、pdf)文件
snow_living的博客
05-12 236
vue2.6版本或以下还需要额外安装 @vue/composition-api。vue2中在components文件中写个组件。等数据接入再继续更新。
Excel-to-JSON插件专业版功能详解：让Excel数据转换更灵活
WTSolutions的博客
05-12 812
Excel-to-JSON插件专业版提供了一套强大的功能，适用于复杂的数据转换场景。核心功能包括嵌套JSON结构支持、空值处理策略、布尔值格式化和日期格式转换。插件支持多种货币订阅，每个专业版代码可支持10台设备使用，并提供7天免费试用。使用技巧包括数据预处理、格式选择和效率提升。通过合理使用这些功能，可以显著提高数据处理的效率和准确性。更多详细信息可参考官方指南。
EXCEL下拉菜单与交替上色设置
最新发布
面朝大海
05-13 284
（步骤与 Excel 完全一致，仅界面文字差异）（WPS）转为智能表格，新增行自动继承规则。→ 选择 使用公式确定要设置格式的单元格。重复步骤2-4，为另一类行设置不同颜色。拖动鼠标选择需要设置的行列范围（如。点击列标选中整列（如。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值