计算数组的维数
摘要：
Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long) Private ... 阅读全文
posted @ 2006-04-24 09:42 王峰炬 阅读(125) 评论(0) 推荐(0) 编辑
API判断数组是否为空
摘要：
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long 'API判断数组为空或没有初始化 Sub diag()Dim msg As StringDim arr1... 阅读全文
posted @ 2006-04-24 09:29 王峰炬 阅读(335) 评论(0) 推荐(0) 编辑
excel sheet的 某列(m*n行) 快速复制到 m行n列区域
摘要：
'以下代码可以利用非循环的方式,实现把[a1:a12]的数据快速复制到[b1:e3]: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal By... 阅读全文
posted @ 2006-04-24 09:20 王峰炬 阅读(178) 评论(0) 推荐(0) 编辑
COPYMEMORY 实现 N维数组向M维数组的转化
摘要：
'copymemory可以实现不同维数数组间的转换,如: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)... 阅读全文
posted @ 2006-04-24 09:09 王峰炬 阅读(170) 评论(0) 推荐(0) 编辑
