精华内容
下载资源
问答
  • VBA可以定义多达60维的数组,但实际上很少使用三维以上的数组。本文主要讲解二维数组及其使用。声明二维数组与一维数组一样,使用Dim语句来声明二维数组。例如,语句Dim myArray(3,7) AsInteger声明了一个名为...

    VBA可以定义多达60维的数组,但实际上很少使用三维以上的数组。本文主要讲解二维数组及其使用。

    声明二维数组

    与一维数组一样,使用Dim语句来声明二维数组。例如,语句

    Dim myArray(3,7) AsInteger

    声明了一个名为myArray的包含4行8列共32个元素的二维整型数组,如图1所示。

    113254680_1_20171013064310532  图1

    也可以使用以下语句,使myArray数组的下标索引值从1开始。

    Dim Arr(1 To 4, 1 To8) As Integer

    声明一个4行8列的二维数组。

    声明二维数组的方式

    ① Dim数组名(数字,数字) As数据类型

    ② Dim数组名(数字,数字)

    各部分的说明与上篇文章相同。(注,谢谢doubao朋友在上篇文章中指出的歧义;数组名后的数字定义了数组最大下标索引值,这个数字可能该维的最大元素数,这取决于Option Base语句)

    给二维数组赋值

    下面的过程给二维数组myArray赋值:

    Sub testMyArray()

    Dim myArray(3, 7) As Integer

    Dim i As Integer, j As Integer

    For i = 0 To 3

    For j = 0 To 7

    myArray(i, j) = i * j

    Next j

    Next i

    End Sub

    运行程序后,数组myArray中各元素的值如图2所示。

    113254680_2_20171013064310642 图2

    获取二维数组元素的值

    如图3所示,可以看出数组myArray的第2行第3列的元素的值为2。

    113254680_3_20171013064310782 图3

    可以使用myArray(1, 2)来获取其值,如下面的过程:

    Sub testMyArray1()

    Dim myArray(3, 7) As Integer

    Dim i As Integer, j As Integer

    For i = 0 To 3

    For j = 0 To 7

    myArray(i, j) = i * j

    Next j

    Next i

    MsgBox '数组myArray的第2行第3列元素的值是: ' & _

    'myArray(1,2) = ' &myArray(1, 2)

    End Sub

    运行代码后的结果如图4所示。

    113254680_4_20171013064310892 图4

    由于默认下标索引值基于0开始,因此第2行的元素下标索引值是1,第3列元素下标索引值是2。

    注意,如果下标超出了数组范围,则会出现运行时错误:下标越界。

    二维数组的下限与上限

    可以使用LBound函数和UBound函数来确定二维数组的下限和上限,即二维数组各维的下标的最小索引值和最大索引值。例如,下面的过程:

    Sub testMyArray2()

    Dim myArray(3, 7) As Integer

    Dim i As Integer, j As Integer

    Dim k As Integer, str As String

    For i = 0 To 3

    For j = 0 To 7

    myArray(i, j) = i * j

    Next j

    Next i

    For k = 1 To 2

    str = str & '数组myArray的第' & k &'维的下限是: ' &LBound(myArray, k)

    str = str & '上限是: ' &UBound(myArray, k) & vbCr & vbCr

    Next k

    MsgBox str

    End Sub

    运行后的结果如图5所示。

    113254680_5_20171013064310970 图5

    可以看出,在LBound函数和UBound函数中,第1个参数为数组名称,第2个参数指定数组的维数。

    本文简要介绍了二维数组的基本操作,下一篇文章将重点讲解二维数组在工作表中的应用。

    相关链接:

    本文属原创文章,转载请联系我(xhdsxfjy@163.com)或者注明出处。

    欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。

    展开全文
  • 二维数组的嵌套并非三维数组 2 数组的嵌套写法 1维数组的嵌套:arr(m)(i) 2维数组的嵌套:arr(m)(i,j) Sub test1001() Debug.Print "测试一维数组和其嵌套" '一维数组 arr1 = Array(1, 3, 5, 7, 9) arr2 = ...

    1 数组嵌套的知识

    • 1维数组的嵌套并非2维数组
    • 二维数组的嵌套并非三维数组

     

    2 数组的嵌套写法

    • 1维数组的嵌套:arr(m)(i)
    • 2维数组的嵌套:arr(m)(i,j)
    Sub test1001()
    
    
    Debug.Print "测试一维数组和其嵌套"
    '一维数组
    arr1 = Array(1, 3, 5, 7, 9)
    arr2 = Array(2, 4, 6, 8, 10)
    
    
    '一维数组的嵌套
    arr3 = Array(arr1, arr2)
    'Debug.Print arr3(1, 1)    '证明了一维数组的嵌套,只是嵌套类型,不是2维数组
    Debug.Print arr3(1)(1)
    
    Debug.Print
    
    
    Debug.Print "测试二维数组和其嵌套"
    
    Dim arr51()
    ReDim arr51(3, 3)
    '2维数组
    For I = 1 To 3
       For J = 1 To 3
          arr51(I, J) = 2 * I * J
          Debug.Print arr51(I, J);
       Next
       Debug.Print
    Next
    Debug.Print
    
    
    Debug.Print arr51(1, 1)
    Debug.Print
    
    
    Dim arr52()
    ReDim arr52(4, 4)
    '2维数组
    For I = 1 To 4
       For J = 1 To 4
          arr52(I, J) = 3 * I * J
          Debug.Print arr52(I, J);
       Next
       Debug.Print
    Next
    Debug.Print
    
    
    Debug.Print arr52(1, 1)
    Debug.Print
    
    '2维数组的嵌套
    arr53 = Array(arr51, arr52)
    Debug.Print arr53(1)(1, 1)       '二维数组的嵌套,也不需要2个数组行列相同
    Debug.Print
    
    
    
    Debug.Print "测试二维数组和其嵌套,第2种办法,[{}] 这种写法必须index从1开始"
    '2维数组
    'arr11 = [{1,3,5};{5,7,9}]
    'arr12 = [{2,4,6};{6,8,10}]
    arr11 = [{1,3,5;5,7,9}]
    arr12 = [{2,4,6;6,8,10}]
    Debug.Print arr11(1, 1)
    
    
    
    '2维数组的嵌套
    arr13 = Array(arr11, arr12)
    Debug.Print arr13(1)(1, 1)
    
    
    
    
    Debug.Print "测试二维数组和其嵌套,第3种办法---[{,,, ; ,,,}]只有一种写法  []其他写法不是数组"
    '2维数组
    'arr21 = [{1,3,5};{5,7,9}]
    'arr22 = [{2,4,6};{6,8,10}]
    arr21 = [{1,3,5},{5,7,9}]
    arr22 = [{2,4,6},{6,8,10}]
    
    
    End Sub

     

     

     

     

     

    其实我这上面的例子不算嵌套数组,而是组合数组

    下面这张才是嵌套数组

    嵌套数组还可以  transpose 为二维数组

     

    http://club.excelhome.net/thread-640048-1-1.html

    展开全文
  • 常用“积木”过程案例分享第303期,今日内容是将键和键值的一维数组转化为二维数组。提供给大家的这些内容是我多年经验的记录,来源于我多年的实践。大家在学习VBA的时候,可以把这些代码块作为一块块的积木对待,...

    a1f27746f580d99b9450712d96655439.png

    常用“积木”过程案例分享第303期,今日内容是将键和键值的一维数组转化为二维数组。提供给大家的这些内容是我多年经验的记录,来源于我多年的实践。大家在学习VBA的时候,可以把这些代码块作为一块块的积木对待,平时积累,用时拿来修正、组合。这就是我的“积木编程”的思想,这些讲解就是我推出的“积木”方案,希望大家加以利用。最近代码多是出自第三套教程”VBA数组与字典解决方案”。

    8e691674e0ff4ee4fb6a75690b52b64d.png

    Sub mynzsz_69()

    Dim myarr, mybrr()

    Set mydic = CreateObject("scripting.dictionary")

    Sheets("69").Select

    myarr = Range("a2:b" & [a2].End(4).Row)

    ReDim mybrr(1 To UBound(myarr), 1 To 2)

    For i = 1 To UBound(myarr)

    If myarr(i, 1) <> "" And Not mydic.exists(myarr(i, 1)) Then

    mydic(myarr(i, 1)) = myarr(i, 2)

    End If

    Next

    mya = mydic.keys: myb = mydic.items

    n = 0

    For i = 0 To UBound(mya)

    n = n + 1

    mybrr(n, 1) = mya(i)

    mybrr(n, 2) = myb(i)

    Next

    Range("a1:b1").Copy Range("f1")

    For i = 2 To n + 1

    Cells(i, "f") = mybrr(i - 1, 1)

    Cells(i, "g") = mybrr(i - 1, 2)

    Next

    Set mydic = Nothing

    End Sub

    代码讲解:

    1 上述代码首先将数据放到myarr数组中,然后在数组中提取数据装入字典mydic,这里利用数组第一列myarr(i, 1)作为键,第二列myarr(i, 2)作为键值。装载完成后提取键和键值放到mya和myb中,最后在两个一维数组中提取数据放到二维数组mybrr中。

    2 '建立二维数组,装入数据

    n = 0

    For i = 0 To UBound(mya)

    n = n + 1

    mybrr(n, 1) = mya(i)

    mybrr(n, 2) = myb(i)

    Next

    上述代码在一维数组中提取数据放到二维数组中。

    5172b5ac96bdacc9933c868d9fb01a65.png

    在取代OFFICE新的办公软件没有到来之前,谁能在数据处理方面做到极致,谁就是王者。其中登峰至极的技能非VBA莫属!学习VBA是个过程,也需要经历一种枯燥的感觉,如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。

    “水善利万物而不争”,绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。

    VBA是利用Office实现自己小型办公自动化的有效手段,我记得20年前自己初学VBA时,那时的资料甚少,只能看源码自己琢磨,真的很难。20年过去了,为了不让学习VBA的朋友重复我之前的经历,我根据自己多年VBA实际利用经验,推出了五部VBA专门教程。

    第一套:VBA代码解决方案 是VBA中各个知识点的讲解,覆盖绝大多数的VBA知识点,初学必备;

    第二套:VBA数据库解决方案 数据库是数据处理的专业利器,教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作,适合中级人员的学习。

    第三套:VBA数组与字典解决方案 数组和字典是VBA的精华,字典是VBA代码水平提高的有效手段,值得深入的学习,是初级及中级人员代码精进的手段。

    第四套:VBA代码解决方案之视频 是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

    第五套:VBA中类的解读和利用 这是一部高级教程,讲解类的虚无与肉身的度化,类的利用虽然较少,但仔细的学习可以促进自己VBA理论的提高。

    学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航,助上我自己之力,我的上述教程是我多的经验的传递,大家可以根据1,3,2,5或者是4,3,2,5的顺序逐渐深入的逐渐学习。

    51c27473ce7b3ef339f9577a6f767f6c.png

    每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:

    浮云掠过,暗语无声,

    唯有清风,惊了梦中啼莺。

    望星,疏移北斗,

    奈将往事雁同行。

    阡陌人,昏灯明暗,

    忍顾长亭。

    多少VBA人,

    暗夜中,悄声寻梦,盼却天明。

    怎无凭!

    分享成果,随喜正能量

    展开全文
  • 大家好,上节介绍了在使用数组之前如何...以常用的二维数组为例,声明一个3*4的二维数组arr1,数据类型为字符串型。dim arr1(2,3) as string声明数组时省略下标,默认从0开始,所以第一维是0至2,第二维是0至3。数...

    d619f48d54a9cd30e2135086aa88e1e3.gif

    大家好,上节介绍了在使用数组之前如何声明数组,本节就来介绍静态数组如何赋值。(动态数组会单独一节讲解)

    e991012f509e3783a0bedd035a79f3fd.png 上 节 复 习 fcf59bec09f18504d21bc532055db804.png

    在介绍数组赋值之前,首先简单复习下上节介绍的声明数组和数组中元素的表示方法。

    以常用的二维数组为例,声明一个3*4的二维数组arr1,数据类型为字符串型。

    dim arr1(2,3) as string

    声明数组时省略下标,默认从0开始,所以第一维是0至2,第二维是0至3。

    数组中每个元素的的表示方法为数组名(第一维索引号,第二维索引号),例如arr1(0,0)、arr1(0,)、arr1(2,3)等,每个元素的坐标可以如下图所示。b9ff5226162fa30d09002e82ae8b253e.pnge08a5e72e7243ef4b238457211bc9caa.png

    还可以将数组该数组声明为dim arr1(1 to 3,1 to 4) as string。

    其中第一维索引号为从1至3,第二维维从1至4。数组中每个元素也是数组名(第一维索引号,第二维索引号),例如arr1(1,1)、arr1(3,4)等,其他坐标如下图所示。b9ff5226162fa30d09002e82ae8b253e.png918bc8e748c4b0c3890609bdc59eea84.png

    两种表示方法,第二种方法即下界从1开始更实用。因为这样数组中元素的坐标,与单元格对象的cells属性坐标一致。数组元素位置就可以和工作表中对应起来。

    e991012f509e3783a0bedd035a79f3fd.png数 组 赋 值 fcf59bec09f18504d21bc532055db804.png

    在前面的编写sub程序过程中,在声明变量之后都要给变量赋值。

    同样在声明数组后,对数组赋值,VBA程序才能通过数组访问数据。在给数组赋值时,和变量赋值一样,要分别给数组里的每个元素进行赋值。

    下面以静态数组为例,声明了数组的维度,以及每个维度的下界和上界,数组容纳固定量的元素,给数组赋值主要有下面几种方式。

    1、每个元素进行赋值

    数组赋值时,需要给数组中每个元素进行赋值。这种方式比较简单

    下面通过举例演示,如声明一个5个元素的integer类型的数组,将1到5的自然数保存到数组中。具体演示如下:

    b55bff8d04404103cc5cc0b54b25b5ef.gif

    示例中声明了Arr(4) 的5个元素的大小的integer类型数组。赋值时将它每一个元素,从Arr(0)=1开始一直到Arr(4)=5,运行就完成了赋值。

    再举个简单的例子,声明一个4个元素的integer类型的数组,将A1:A4单元格区域中的数值赋值给数组。

    b9ff5226162fa30d09002e82ae8b253e.pngd397c758453ac9330c840e62d3d61ff9.gif

    A列的单元格填入整数,声明了Arr(1 to 4)为4个元素的integer数组,然后依次将每个单元格的值赋值给数组中的元素从Arr(1) 到Arr(4)。最后再立即窗口中显示Arr(3)的值为3。

    这种方法主要是帮助理解数组元素如何赋值,在VBA程序中通常涉及大量数据的赋值。就需要用其他更方便的方法代替。

    2、通过循环结构赋值

    对于批量处理数据时,通常都会借助于循环结构。同样在数组的批量赋值时,同样也可以借助于循环结构。比如上面两个小示例,都可以用循环结构改造。以第二个为例。

    b9ff5226162fa30d09002e82ae8b253e.pngcca2e1ac87945cc4a74886446460a8fe.png

    通过for循环结构变量i从1到4进行循环,将数组中的每个元素进行赋值。对于大量数据更加实用。

    下面用二维数据举例,前面提到如果数组维度的下界均为从1开始,那么数组中元素的坐标,与单元格对象的cells属性相对应。

    如表格中A1:D4区域共3行4列的有多种类型的数据,将它们赋值到数组中。需要先声明一个3*4的二维数组变体型数组(由于有不同类型的值,所以默认的变体型Variant类型)。将元素单独赋值是很大的工作量,下面就通过循环嵌套来将表格中的值赋值给数组。

    b9ff5226162fa30d09002e82ae8b253e.pngf94597521df571d5f1df2d0dc2446087.gif

    代码中首先声明了3*4大小的二维数组,为默认的变体型数据类型。维度的下界均从1开始。

    下面就是两个for循环嵌套。整形变量i从1循环至3,变量j从1循环至4,两个循环嵌套中,执行 Arr(i, j) = Cells(i, j)语句将cells(i,j)元素的值赋值给数组中的元素Arr(i,j)。

    执行代码后在立即窗口中显示数组Arr(2,3)的值为“姓名” Arr(3,1)的值为“小白”。

    这种通过循环语句给数组赋值的方法很经典,掌握后对数组和循环结构都会有很好的理解。而二维数组下界从1开始时与单元格cells属性是对应关系。

    3、通过Range对象创建数组

    上面介绍了通过循环结构给数组赋值后,上面提到二维数组下界从1开始时与单元格cells属性是对应关系。实际不通过循环嵌套结构也可以直接赋值。

    如果想把一个单元格区域的值,直接存储到数组里,可以直接把单元格区域的值赋值给变量名。如下图所示:

    b9ff5226162fa30d09002e82ae8b253e.png5111ba5a1c094a568b066f10174ab26f.gif

    代码中首先不是声明数组,而是声明了一个默认的变体型变量。

    而Arr = Range("a1:d4").Value该语句就讲A1:D4单元格的值赋值给了Arr这个数组中.(由变体型变量变成数组。)

    通过这种方式得到的数组,维度的下届都是1。即得到的这个数组其实就是Arr(1 to 3,1 to 4)

    所以执行代码后在立即窗口中显示仍是数组Arr(2,3)的值为“姓名” Arr(3,1)的值为“小白”。

    这种方法实际是直接创建数组的方法,这里归到数组赋值一并介绍。注意两个关键点。

    1、声明的默认的变体型变量。

    2、通过这种方式得到的数组,维度的下届都是1。


    41ea45a9e18de2deaf82905071d86091.gif

    今天下雨

    本节主要是介绍了数组的赋值的内容,特别是循环结构赋值、二维数组和单元格对象cells属性的对应、单元格range对象创建新数组等内容。后续在介绍动态数组、数组相关函数时都会再涉及和复习。

    希望本文对你有帮助,有问题可以给在下方留言,祝大家学快乐。

    展开全文
  • 二〇年的月,本该是春暖花开的季节,但现在确实恐慌弥漫。PMI,CPI,M2,非农指标,一个个揪心的数据,股市震荡,信心不足,熔断频发。后疫情时代的资本市场是否开始布局?终将演绎一场战胜萧条的战役。无论怎样,...
  • 1 三维数组的正常定义 1.1 定义为静态数组 Sub test1001() '静态数组的方法定义三维数组 Dim arr1(3, 3, 3) N = 1 For I = 1 To 3 For J = 1 To 3 For K = 1 To 3 arr1(I, J, K) = N Debug.Print "arr...
  • 24. 三维数组如何表示?答:类似c[6][8][1],{{{1,2},{3,4}},{{5,6},{7,8}}} ,array(1 to 20,1to 30,1 to 50),25. 一维数组、二维数组和三维数组在存储数据方面有何区别?答:通常情况下,一维数组只能储存线性...
  • 大家好,今天我们继续讲解VBA数组与字典解决方案,今日的内容是第2讲:数组公式的标识及数组数。在讲数组专题的时候,有的章节比较简单,有的章节比较难懂。希望大家在利用的时候要仔细的体会。一 :数组公式的...
  • 1.3 数组使用数组和对象时,也要声明,这里说下数组的声明:' 确定范围的数组,可以存储b - a + 1个数,a、b为整数Dim 数组名称(a To b) As 数据类型Dim arr(1 TO 100) As Integer ' 表示arr可以存储100个整数arr...
  • 答:该语句表示通过循环把单元格cells(x,y)中的数据装进数组中。15. 结合上述代码理解arr(x,y)=cells(4,3)是什么意思?答:该语句表示通过循环把单元格c4单元格中的数据装进数组中,如下图所示c4单元格中是文本等式4...
  • VBA中的数组下标

    万次阅读 2010-11-25 17:09:00
    也可以返回第二维,第三维的下标情况。默认为LBound( array , 1 )。 二.默认情况 dim strarr(10) as String 那么,相当于如下的C语言 String strarr[11]。即第一个元素是strarr(0),最后一个元素...
  • 大家好,上节介绍了在使用数组之前如何...以常用的二维数组为例,声明一个3*4的二维数组arr1,数据类型为字符串型。dim arr1(2,3) as string声明数组时省略下标,默认从0开始,所以第一维是0至2,第二维是0至3。数...
  • 假设数组arr是由{a,b,c,d,e}五个变量组成,那么我们想要表示数组中第二个变量b,那么我们可以使用arr(2)来进行表示,第四个变量也就是arr(4),当然二维数组,三维数组也可以通过索引号来进行表示。2.如何声明一维...
  • 24. 三维数组如何表示?答:类似c[6][8][1],{{{1,2},{3,4}},{{5,6},{7,8}}} ,array(1 to 20,1to 30,1 to 50),25. 一维数组、二维数组和三维数组在存储数据方面有何区别?答:通常情况下,一维数组只能储存线性...
  • 前言VBA开发者经常讨论的一个话题就是:字典和数组哪个效率更高?...数据合并的要点有个:料号和机种号为统计的关键字段未交数量求和交期汇总,包含时间和数量示例代码Sub LoadData() Dim aData, aRes(), l...
  • 本节的练习题主要是对【全民一起VBA】中第十四回中所提到的练习题做一解答:练习的题具体在如下的百度网盘中 链接:https://pan.baidu.com/s/1q6URookoh5FFiwZrGcEt9g 提取码:8x2m 本练习是为学习《提高篇》第...
  • MicroStation VBA创建直线的种方法

    千次阅读 2008-11-24 23:58:00
    ----------------------------------------- 使用二维数组点创建直线 CreateLineElement1() ----------------------------------------- Sub CreateLine1() 定义一个点数组以及一个元素变量 Dim pntLine(0 To
  • 1. Sum函数和Countif函数解释:对COUNTIF(F5:F12,F5:F12)计算得到一维数组{1;2;3;3;4;4;4;5}。对应每个数字的频数:3出现了2次,4出现了3次,所以在数组里面有2个2,3个4。如果有N个,即会出现N次。然后通过1/...
  • Excel_VBA教程

    2014-09-22 11:36:34
    6.使用二维数组 136 7.静态和动态数组 137 8.数组函数 139 9.ARRAY函数 139 10.ISARRAY函数 140 11.ERASE函数 140 12.LBOUND函数和UBOUND函数 141 13.数组中的错误 141 14.数组作为参数 143 15.接下来… 143 第八章 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    6.使用二维数组 136 7.静态和动态数组 137 8.数组函数 139 9.ARRAY函数 139 10.ISARRAY函数 140 11.ERASE函数 140 12.LBOUND函数和UBOUND函数 141 13.数组中的错误 141 14.数组作为参数 143 15.接下来… 143 第八章 ...
  • 18、处理三维区域 19、处理活动单元格 20、在工作表上使用 ActiveX 控件 21、在文档中使用 ActiveX 控件 22、创建自定义对话框 23、在窗体上使用 Microsoft Office Web 组件 24、内置对话框参数表 25、使用 ...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    变量与常量............................................................................................................................1 第五节 数组........................................................
  • 将所有的实例归入基础相关、控制AutoCAD环境、创建和编辑二维对象、对象特性、文字、标注和公差、块和属性、处理AutoCAD中的事件、三维空间的操作、打印、高级绘图组织、使用组件扩展程序功能、和Excel交换数据、...
  • EXCEL编程VBA高级教程

    2015-04-16 11:40:55
    第五节数组........................................................................................................................................2 第六节注释和赋值语句...................................
  • Dim row(0 To 20, 0 To 20) As String '定义一个21*21的二维数组 Range("A1").Select '选定A1单元格 For i = 0 To 20 For j = 0 To 20 row(i, j) = ActiveCell.Offset(i, j).Value '把A1位移(i,j)个单元格的...
  • 第十课:画多段线和样条线 画二维多段线语句这样写:set lobj= ThisDrawing.ModelSpace.AddLightweightPolyline(fitpoint)AddLightweightPolyline后面需一个参数,存放顶点坐标的数组三维多段线语句这样写:Set ...
  • • 使用两个一维数组构造二维数组 • 部门评价等级转换 • 使用MMULT 函数计算产品结构指数 • 产生1-10 的自然数垂直序列和水平序列 • 等比例构造一维循环数组 • SUMIF函数对产品产量进行逐行汇总 • 利用MMULT...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    Split 函数 返回下限为 0 的、由指定数量的子串组成的一维数组。 Sqr 函数 返回数的平方根。 StrComp 函数 返回反映字符串比较结果的值。 字符串常数 字符串常数的列表。 String 函数 返回重复的字符串,达到...

空空如也

空空如也

1 2
收藏数 36
精华内容 14
关键字:

vba三维数组