Min

　暱稱: 閔

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-5-9 20:55 | 只看該作者

[分享] 使用API取得陣列維度

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function ArrayPtr Lib "msvbvm60.dll" Alias "VarPtr" (TargetArray() As Any) As Long
Private Sub Form_Load()
Dim XXX(1, 2, 3, 4) As Byte
Dim lpArray As Long
Dim lDim As Long

Call CopyMemory(lpArray, ByVal ArrayPtr(MD_HTML_Value()), 4)
Call CopyMemory(lDim, ByVal lpArray, 2)
Debug.Print "維數 = " & lDim
End Sub

樓主熱帖

wqfzqgk

中學生 Rank: 2

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

2^#

發表於 2010-6-28 23:48 | 只看該作者

[版主管理留言]

Min(2010/6/29 06:54 AM): 非常感謝您的分享! 這是.NET的方式吧~

MsgBox(System.Windows.Forms.SystemInformation.BootMode.ToString)
MsgBox(System.Windows.Forms.SystemInformation.WorkingArea.Height)

学习

TOP

dechiuan999

中學生 Rank: 2

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

3^#

發表於 2011-1-31 10:21 | 只看該作者

閔大版主你好：

小弟前日在EXCEL VBA發問一則
有關如何得知陣列維數。已承蒙HSIEH版主
大大解惑。同時也告知小弟另有閔大版主的API函數
功能也能得到相同結果。
小弟也發費多日但仍無法引用版主大大此例如何
改成EXCEL VBA的方式而能得到版主大大所設定的功能。
是否能請版主大大解惑呢？
下列VBA語法為HSIEH版主大大提供如下
Function checkarray(mArray As Variant)
Dim i%, n%
i = 1
On Error Resume Next
Do Until Err.Number = 9
n = LBound(mArray, i)
If Err.Number = 0 Then i = i + 1
Loop
checkarray = i - 1
End Function

感恩版主大大！

TOP

Min

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 172
主題: 39
精華: 20
積分: 177
點名: 0
作業系統: Microsoft Windows XP
軟體版本: Microsoft Office 2003
閱讀權限: 100
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2023-3-19

論壇貢獻勳章帥哥勳章

4^#

發表於 2011-2-1 07:07 | 只看該作者

回復 3# dechiuan999

您好試試看這樣~

Book1.rar (6.19 KB)

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

dechiuan999

中學生 Rank: 2

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

5^#

發表於 2011-2-1 11:00 | 只看該作者

本帖最後由 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

感恩版主大大。

arrTest2.rar (9.33 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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