Num=1'将Num赋值为1Color=Array(36,33,38,35,40)'将Color赋值为一个存放颜色索引号的数组 Sheet1.Cells(1,1).Interior.ColorIndex=Clor(Num)'将Sheet1的A1单元格的颜色改为36号颜色 6、定义并使用一个字符串变量 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Dim
Dim MyArray() As String str= "红,绿,蓝,三原色" MyArray= Split(str, ",") 代码创建的数组与上图1相同。与Array函数不同的是,Split函数创建的数组下标索引值总是从0开始,无论在代码模块顶部是否使用了语句Option Base 1。 在Split函数中使用...
ReDim一个数组，它会清除原来的内容，如果要保留以前的记录，我们要用ReDim Preserve arr(k) 来表示，k表示新的大小。小于等于K的列标的记录都会保存，这个k可以比原来最大列标大，也可以小，视你实际需要而定。Dim arr() As StringDim strA As String strA = "甲,乙,丙,丁" arr = Split(strA, ...
Sub loopArr() Dim ws As Worksheet Set ws = Sheet2 Dim arr() arr = Array(Array(1, 2, 3), Array("A", "B", "C")) For i = 0 To 1 For j = 0 To 2 ws.Cells(i + 1, j + 1) = arr(i)(j) Next NextEnd Sub 或者 Sub loopArr1() Dim ws...
VBA提供了一些内置函数,可以方便地生成或者处理数组。 Array函数 Array函数可以使用一组数据来填充数组。然而,必须将数组变量声明为Variant型。例如代码: Dim MyArray As Variant MyArray= Array("红","绿","蓝","三原色") 生成的数组如下图1所示。
数组是VBA的变量，具有一群相同类型的成员，可以利用数组名和索引值进行访问。数组的声明与一般变量的声明一样，可以用Dim、Static、Private或Public语句来声明，在数组名后使用括号“（）”，在括号中放置整数，定义数组包含的项目数。例如：Sub Sample23()Dim sArray(3) As String '定义数组sArray具有4个项目 s...
dim arr(49)as string ”数组长度为50,如果在模块的第一句写上option base 1,尽管只使用一个自然数确定数组长度,数组起始索引号也是1。 如:sub sztest() dim arr (1 to 10)as integer,i as integer for i = 1 to 10 arr(i)= i ”arr数组赋值 ...
Function CombineArr(arr As Variant, Optional delimiter As String = "/", Optional length As Integer = 0) As Variant '将一个数组中的所有元素进行组合 Dim n As Long, i As Long, j As Long, k As Long, count As Long Dim result(), temp As String n = UBound(arr) - LBound...
数组是VBA的变量,具有一群相同类型的成员,可以利用数组名和索引值进行访问。数组的声明与一般变量的声明一样,可以用Dim、Static、Private或Public语句来声明,在数组名后使用括号“()”,在括号中放置整数,定义数组包含的项目数。例如: Sub Sample23() Dim sArray(3) As String '定义数组sArray具有4个项目 sArray...
这种把数组作为另一个数组元素的做法,我们分享过一个案例,9月19日【Excel VBA【案例分享】办公用品采购计划分配表/办公耗材采购明细表】 二、跟数组有关的几个函数 1、JOIN,把数组的元素通过指定的字符连接起来 Dim arr() Dim str As String arr = Array("A", "B", "C") str = Join(arr, ",") '...