excel vba真正的动态数组实例
来源:互联网 发布:淘宝极有家和中国质造 编辑:程序博客网 时间:2024/04/18 08:28
excel vba真正的动态数组实例。
一、动态数组的定义
动态数组的定义,一开始不需要给数组标明上界和下界。直接定义即可,如下面的代码:
Dim MyStr() As String
这样,就定义了一个动态数组及其名称:MyStr(),现在,该数组的上界下界都是个未知数,也就是说,数组中到底有没有内容或到底有什么内容,是个未知数。
因此,要使用动态数组,就必须对其定义好下界和上界。
二、给动态数组确定下界和上界
给动态数组重新确定下界和上界,那么,分两种情况。
①保留原值
采用此代码:ReDim Preserve MyStr(n) 'n为数组长度
②不保留原值
采用此代码:ReDim MyStr(n) 'n为数组长度
③以上两种情况的实例
下面我们看如上两种情况的小实例:
比如:
Dim MyStr() As String
ReDim MyStr(2)
MyStr(0)=”1”
MyStr(1)=”2”
现在,这个动态数组有两个值了,分别是0和1,现在,我们再重新确定该数组的长度。
当然,重新确定自然又有两种情况了。
A、保留原有数据
ReDim Preserve MyStr(3) '原来长度是2,现在重新确定为3,并且,保留原有的数据。
MyStr(2)=”3” '现在,该数组就有三个值了,分别是:
MyStr(0)为1、MyStr(1)为2、MyStr(2)为3
B、不保留原有数据
如果我们使用如下代码
ReDim MyStr(3)
MyStr(2)=”3”
现在,该数组的长度尽管为3,但是,里面却只有一个数据了,那就是,MyStr(2)的值是3,而MyStr(0)和MyStr(1)里面,什么都没有。
关键字:Preserve的作用就的保留原有值,请根据需要加以取舍。
三、动态数组与EXCEL的结合使用实例
Dim n As Integer
n = 0
Dim MyStr() As String
For i = 1 To Sheet1.UsedRange.Rows.Count
For j = 1 To Sheet1.UsedRange.Columns.Count
n = n 1
ReDim Preserve MyStr(n) '给动态数组重定义一个实际的大小
MyStr(n - 1) = Sheet1.Cells(i, j).Value '存到动态数组里去
Next j
Next i
For Each MyArray In MyStr
MsgBox "数组的值是" & MyArray
Next
以上代码的功能是:将Sheet1中已经有数据的单元格区域,通过VBA代码循环找到每行每列对应的单元格的值,通过对话框显示出来。
注意哦,数组的使用,其下界都是从0开始的。
实例解析:
Public Sub data()
Dim MyStr() As String
ReDim MyStr(2)
MyStr(0) = "1"
MyStr(1) = "2"
Debug.Print (MyStr(0))
ReDim Preserve MyStr(3)
MyStr(2) = "3"
Debug.Print (MyStr(2))
'注意的问题
Dim array1() As Double '定义一个名为array1的双精度动态数组
ReDim array1(5) '重定array1(0 to 5),确定数组包含6个元素 上界到5
array1(3) = 250 '给数组中标号为3的赋值为250
'ReDim Preserve array1(5, 10) '重定array1数组为双维度数组,第一维((0 to 5) 第二维(0 to 10)_
'但 存在关键字preserve 无法给一个已定维度的数组增加维度 所以出错 下标越界
ReDim array1(5, 10)
End Sub
- Excel VBA真正的动态数组实例
- excel vba真正的动态数组实例
- excel vba真正的动态数组实例-按需定义数组大小
- excel vba真正的动态数组实例-按需定义数组大小
- Excel VBA实例
- 【VBA】动态数组
- vba 数组(动态数组)
- Excel VBA之类模块 实例
- Excel vba编程实例 源码
- Excel vba编程实例 源码
- Excel VBA 字典/数组 示例
- [Excel VBA] 在VBA中如何将SQL得到的数据直接赋值到数组?
- EXCEL VBA 的潜力
- Excel的VBA
- Excel的VBA学习
- Excel VBA 数据视图和查询实例
- Excel使用VBA动态设置打印区域
- Excel VBA - 数组及其他知识
- 传智播客暖春大行动纪实:春节不回家,有爱咱不怕!
- fatal error C1083: 无法打开预编译头文件
- 静态内部类提高封装性
- 用Unity注入webservice
- ARM开发板哪家的好,怎么选择开发板
- excel vba真正的动态数组实例
- OCP-1Z0-053-200题-45题-623
- 关于Activity和task的设计思路与方法
- 在IOS中使用KeychainItemWrapper保存用户名和密码实现记住密码功能
- Linux下用C编写WebSocet服务以响应HTML5的WebSocket请求
- 工作过程中的一些小细节与大问题
- Android 增加第三方库
- POJ 2961 Sylvester construction 哈达玛矩阵
- 使用匿名类的构造函数