Dzwebs.Net

撰写电脑技术杂文十余年

EXCEL中的VBA编程之UBound、LBound的综合使用实例

Admin | 2010-10-13 9:38:27 | 被阅次数 | 34268

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  一、函数语法

  ①LBound 函数

  函数功能:返回指定数组维的最小可用下标。

  函数语法:LBound(arrayname[, dimension])

  参数:

  arrayname:数组变量名,遵循标准变量命名约定。

  Dimension:指明要返回哪一维下界的整数。使用 1 表示第一维,2 表示第二维,以此类推。如果省略 dimension 参数,默认值为 1。

  说明:LBound 函数与 UBound 函数共同使用以确定数组的大小。使用 UBound 函数可以找到数组某一维的上界。任一维的下界都是 0。

  ②UBound函数

  函数功能:返回指定数组维数的最大可用下标。

  函数语法:UBound(arrayname[, dimension])

  参数:

  arrayname:必选项。数组变量名,遵循标准变量命名约定。

  Dimension:可选项。指定返回哪一维上界的整数。1 表示第一维,2 表示第二维,以此类推。如果省略 dimension 参数,则默认值为 1。

  说明:UBound 函数与 LBound 函数一起使用,用于确定数组的大小。使用 LBound 函数可以确定数组某一维的下界。

  二、UBound、LBound两函数的综合使用

  比如,我们使用VBA代码定义了数组,如下:

  dim MyData(1 to 66,1 to 36, 1 to 6)

  可通过如下代码获取此三维数组的上标

  For i = 1 To 3
    MsgBox LBound(MyData, i)
  Next i

  相应的,通过如下代码可获取此三维数组的下标

  For i = 1 To 3
    MsgBox UBound(MyData, i)
  Next i

  再看一个实例:

  Dim A(10,1 to 20)
  LBound(A,1)                 ' 得出的结果值:0
  LBound(A,2)                 ' 得出的结果值:1
  UBound(A, 1)                ' 得出的结果值:10
  UBound(A, 2)                 ' 得出的结果值:20

  Dim AnyArray(10)

  dim upper
  Upper = UBound(MyArray, 1)   '返回 10。
  Upper = UBound(MyArray, 3)   '返回 20。
  Upper = UBound(AnyArray)   '返回 10。


该杂文来自: Excel杂文

上一篇:GetAttr函数介绍及实例

下一篇:EXCEL垂直竖着输入文字

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计