六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

利用VBA数组读取Excel行列单元格的值之应用举例

Admin | 2008-4-16 18:58:55 | ReadNums | 26064 | 标签 六合开奖结果现场直播 | 打印本页
     

  数组是一个相当好的变量集合,里面可以存放许多按实际要求但是不可意料其值的值!

  要使用数组,首先要定义数组,方能使用,如何定义,在上一篇已做了说明,在此不再阐述!

  数组根据不同的需求,可分为静态数组和动态数组,静态数组存储欲先设置话的值,相当于里面存储一个或多个静态变量的值;动态数组根据需要,可随时改变数组长度,并随时能修改存储的值;

  本文提供几个简单的例子,以方便各位的学习!

  代码一:将预定单元格的值存储到数组中

  ----------------------------------------------------

  Sub ArrayGetValue() '
     MyArray = Range("E3:E8")
     For i = 1 To 6
         MsgBox MyArray(i, 1)
     Next
   End Sub

  ----------------------------------------------------

  代码解释:

  MyArray = Range("E3:E8") '将E3到E8单元格的值存储到数组MyArray中;

  For i = 1 To 6
         MsgBox MyArray(i, 1)
  Next
  '通过循环语句,读取MyArray的值并通过对话框形势显示出来;

  代码二:将一列数据存储到数组中

  ----------------------------------------------------

  Sub ArrayGetValue() '
   Dim MyArray() As String
   Dim iNum As Integer
   Dim i As Integer
   iNum = Sheets("sheet1").[E65536].End(xlUp).Row
   ReDim Preserve MyArray(iNum) As String
   For i = 1 To iNum
    MyArray(i - 1) = Sheets("sheet1").Range("E" & i).Value
   MsgBox MyArray(5) '用于测试E6单元格的值,因为数组下标从0开始!
  End Sub

  ----------------------------------------------------

  代码解释:

  iNum = Sheets("sheet1").[E65536].End(xlUp).Row '获取E列单元格的个数;

  ReDim Preserve MyArray(iNum) As String  '重新定义数组的长度;以 iNum 为参考对象;


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日