VBA数组通俗教程（初稿）

h5519306 · 发表于 2011-10-4 11:37

学习中，期待后续。。。。

wss0002 · 发表于 2011-10-4 12:25

学习中，静待后集。。。。。。

香川群子 · 发表于 2011-10-4 12:28

本帖最后由香川群子于 2012-9-23 12:53 编辑

楼主继续啊。

香川群子 · 发表于 2011-10-4 12:57

本帖最后由香川群子于 2012-9-23 12:55 编辑

楼主继续写二

guoybb · 发表于 2011-10-4 13:11

占位学习一下……

香川群子 · 发表于 2011-10-4 13:27

给高级别朋友提供一个获取数组维数的自定义函数方法和实例：
说明这个不是我发明的，是抄的【Stanley】的代码：

Option Explicit
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Declare Function VarPtrArray Lib "msvbvm50.dll" Alias "VarPtr" (Ptr() As Any) As Long
Const AppName = "Stanley Pan Hint:"
' ************************************************************************
' Routine Name : (Public in Standard module) Sub ArrayDimensionTest
' Written By : Stanley
' Programmer : Stanley [ISOLA-J05Q6EYMB]
' Date Writen : 2006-03-30 20:01:07
' Inputs : N/A
' Outputs : N/A
' Description :
' :
' :
' Called By :
' ************************************************************************
Public Sub ArrayDimensionTest()
Dim varArray() As Integer 'dim a variables to contain array
ReDim varArray(1) As Integer 'one dimension
MsgBox ArrayDims(VarPtrArray(varArray)), vbInformation, AppName
ReDim varArray(1, 2) As Integer 'two dimension
MsgBox ArrayDims(VarPtrArray(varArray)), vbInformation, AppName
ReDim varArray(2, 3, 4) As Integer 'three dimension
MsgBox ArrayDims(VarPtrArray(varArray)), vbInformation, AppName
ReDim varArray(1, 2, 3, 4) As Integer 'Four dimension
MsgBox ArrayDims(VarPtrArray(varArray)), vbInformation, AppName
End Sub
Public Function ArrayDims(ByVal lpArray As Long) As Integer
Dim lAddress As Long
CopyMemory lAddress, ByVal lpArray, 4
If lAddress = 0 Then
' The array isn't initilized
ArrayDims = -1
Exit Function
End If
CopyMemory ArrayDims, ByVal lAddress, 2
End Function

复制代码

本楼初学者还是直接跳过吧。

hzy831 · 发表于 2011-10-4 13:30

留个记号，谢谢楼主

香川群子 · 发表于 2011-10-4 13:44

本帖最后由香川群子于 2012-9-23 12:56 编辑

楼主继续写三

香川群子 · 发表于 2011-10-4 13:57

本帖最后由香川群子于 2012-9-23 12:58 编辑

楼主继续写四

香川群子 · 发表于 2011-10-4 14:08

本帖最后由香川群子于 2012-9-23 13:01 编辑

楼主快来更新。

		自动登录	找回密码
密码			免费注册

[分享] VBA数组通俗教程（初稿）