XL2000： 确定数组变量中的维度数

文章编号: 213273 - 查看本文应用于的产品
机器翻译查看机器翻译免责声明
展开全部 | 关闭全部

本页

概要

在 Microsoft Excel 中为应用程序返回一个数组变量中 Microsoft Visual Basic 中的维度数没有内置函数。若要执行此操作的一种方法是通过循环尺寸，并使用错误处理程序返回的维度数。
回到顶端 | 提供反馈

更多信息

Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证，其中包括但不是限于对适销性和/或针对特定用途的适用性的暗示的担保。本文假定您熟悉所演示的编程语言和工具用于创建和调试过程。Microsoft 支持专业人员可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您特定需要。
如果有限编程体验您可能需要联系 Microsoft 认证合作伙伴或 Microsoft 咨询服务。有关更多的信息请访问以下 Microsoft 网站：

Microsoft 认证合作伙伴-https://partner.microsoft.com/global/30000104
(https://partner.microsoft.com/global/30000104)


Microsoft 咨询服务-http://support.microsoft.com/gp/advisoryservice
(http://support.microsoft.com/gp/advisoryservice)


有关可用的支持选项和有关如何与 Microsoft 联系的详细信息，请访问下面的 Microsoft 网站： http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
(http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)
通过要求该例程尝试为每个维度的任务，您可以确定为应用程序数组变量的 Visual Basic 中的维度数。它将尝试执行一个不存在维度任务时, 将返回错误。错误处理程序可用于返回维度任务上次成功。

若要测试一个维度的一种方法是通过使用 LBound 函数。LBound 函数接受两个参数数组变量，该特定维度，并返回该维度的下限。如果您使用此函数不存在维度上该函数将返回错误。当使用此过程，并添加错误处理程序时您可以确定的维数。

示例 Visual Basic 过程

下面的 Sub 过程测试由测试 LBound 函数与每个维的下限命名 Xarray 数组。使用 For...Next 循环 Sub 过程进行循环 60000，多达的可能的数组维度数，直到将生成错误。 错误处理程序所需计数器循环上，失败的步骤中减去一个 （因为上一个被最后一个没有发生错误)，并在消息框中显示结果。

若要创建，并使用示例 Sub 过程使用下面的示例中的步骤：
  1. 启动 Excel。
  2. 按 ALT + F11 可启动 Visual Basic 编辑器。
  3. 在 插入 菜单上单击 模块。
  4. 在模块工作表中键入以下代码： 
    Sub NumberOfDimensions()
   'Dimensions Xarray as an array.
   Dim Xarray(1 to 10, 5 to 20, 256 to 300, 8, -5 to 0)
   'Sets up the error handler.
   On Error GoTo FinalDimension
   'Visual Basic for Applications arrays can have up to 60000
   'dimensions; this allows for that.
   For DimNum = 1 to 60000
      'It is necessary to do something with the LBound to force it
      'to generate an error.
      ErrorCheck = LBound(Xarray, DimNum)
   Next DimNum
   Exit Sub
   ' The error routine.
FinalDimension:
   MsgBox "The array has " & DimNum - 1 & " dimensions"
End Sub
  5. 按 ALT + F11 可返回到 Excel。
  6. 在 工具 菜单上单击 宏，然后单击 宏。
  7. 单击 NumberOfDimensions，然后单击 运行。 该宏将返回 5，Xarray 中的维度数。
回到顶端 | 提供反馈

参考

有关如何使用本文中示例代码的详细信息单击下面文章编号，以查看 Microsoft 知识库中相应的文章：
212536
(http://support.microsoft.com/kb/212536/EN-US/ )
OFF2000： 如何运行知识库文章中的示例代码
回到顶端 | 提供反馈

属性

文章编号: 213273 - 最后修改: 2006年11月23日 - 修订: 3.5
这篇文章中的信息适用于:
  • Microsoft Excel 2000 标准版
关键字：?
kbmt kbdtacode kbhowto kbprogramming KB213273 KbMtzh
机器翻译
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版： 213273
(http://support.microsoft.com/kb/213273/en-us/ )
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
回到顶端 | 提供反馈

提供反馈

 
回到顶端回到顶端