- 博客(6)
- 收藏
- 关注
原创 excel sheet中数据的快速复制
利用Copymemory 复制数组,实现excel sheet中数据的任意复制,粘贴区域小于复制区域,数据将被截取,否则将用空格填充Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Sub copyrang
2006-04-25 13:06:00 2759
原创 计算数组的维数
Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)Private Const VT_BYREF = &H4000&Private Sub Command1_Cli
2006-04-24 09:42:00 1829
原创 API判断数组是否为空
Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long API判断数组为空或没有初始化 Sub diag()Dim msg As StringDim arr1() As String, arr2() As String, arr3() As Date,
2006-04-24 09:29:00 8179
原创 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 ByteLen As Long) Sub xxx()Dim arr1(), arr2(1 T
2006-04-24 09:20:00 2047
原创 COPYMEMORY 实现 N维数组向M维数组的转化
copymemory可以实现不同维数数组间的转换,如: Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)Dim a(5, 7) As Byte, b(15, 2) As Byte, c(47) As B
2006-04-24 09:09:00 1764
原创 MSHFlexGrid1使用技巧(三)[如何让鼠标在 MSHFlexGrid 中拖动也不允许选择多行]
MSHFlexGrid的selecttionMode设了by row,单击的时候是选择一行,但只要鼠标拖动也是可以选择多行: Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)If MSHFlexGrid1.RowSel End Sub 上
2006-04-21 15:31:00 2741
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人