返回列表下一主題上一主題發帖

[發問] 請問如何增加條件判斷陣列是一維或是二維呢？

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-28 14:29 | 只看該作者

[發問] 請問如何增加條件判斷陣列是一維或是二維呢？

各位大大好：

下列語法如何增設條件判斷 ar
是一維陣列或是二維陣列呢？

Sub aa()

Dim ar1, ar2, ar3
Dim mData()
Dim s%, s1%, n1%, n2%
Dim mSht1 As Worksheet
Dim mSht2 As Worksheet
Dim ar

Set mSht1 = Worksheets(1)
Set mSht2 = Worksheets(2)

With mSht1
   ar1 = .Range("a1:c5")  '二維陣列
      ar2 = .Range("e8:g8")
   ar2 = Application.Transpose(Application.Transpose(ar2))  '二維陣列轉成一維陣列
      ar3 = .Range("h10:j14")  '二維陣列


      ReDim Preserve mData(0)
      mData(0) = ar1
   ReDim Preserve mData(1)
      mData(1) = ar2
   ReDim Preserve mData(2)
      mData(2) = ar3

      s = UBound(mData)
      For s1 = 0 To UBound(mData)
      ar = mData(s1)       '如何判斷ar 是一維陣列或是二維陣列呢？
         n1 = UBound(ar, 1)
      n2 = UBound(ar, 2)
      'if 二維陣列時 then
         mSht2.Range("a65536").End(xlUp).Resize(n1, n2) = ar '當ar=mdata(1)時為二維陣列，使用此語法。
         'if 一維陣列時 then
         mSht2.Range("a65536").End(xlUp).Resize(, n2) = ar '當ar=mdata(1)時為一維陣列，使用此語法。
      End If
      Next

End With

End Sub

謝謝各位大大。

arrTest.rar (9.67 KB)

樓主熱帖

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 98
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章