- 帖子
- 231
- 主題
- 55
- 精華
- 0
- 積分
- 293
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- KEELUNG
- 註冊時間
- 2010-7-24
- 最後登錄
- 2018-8-28
|
本帖最後由 dechiuan999 於 2011-2-1 11:01 編輯
謝謝版主大大。
小弟揣摩版主大大的範例，
並修改實際例子之後；
卻出現陣列形態不符。
盼版主大大能再指點迷津。
另小弟有一疑惑，如果小弟想多了解
API函數的應用領域，不知如何著手呢？
Sub aa()
Dim ar1, ar2, ar3
Dim mData()
Dim s%, s1%, n1%, n2%, m%
Dim mSht1 As Worksheet
Dim mSht2 As Worksheet
Dim ar As Variant
Dim lpArray As Long
Dim lDim As Long
Set mSht1 = Worksheets(1)
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 是一維陣列或是二維陣列呢？
Call CopyMemory(lpArray, ByVal ArrayPtr(ar), 4) '執行至此出現AR形態不符
Call CopyMemory(lDim, ByVal lpArray, 2)
Debug.Print "維數 = "; lDim
Next
End With
End Sub
感恩版主大大。 |
|
發表於 2011-1-31 10:21
| 
