自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(5)
  • 问答 (2)
  • 收藏
  • 关注

excel sheet中数据的快速复制

'利用Copymemory 复制数组,实现excel sheet中数据的任意复制,粘贴区域小于复制区域,数据将被截取,否则将用空格填充 Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Sub copyrange(...

2006-04-25 13:06:00 85

计算数组的维数

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 Comman...

2006-04-24 09:42:00 120

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, arr...

2006-04-24 09:29:00 327

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 To 3,...

2006-04-24 09:20:00 131

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 Byt...

2006-04-24 09:09:00 86

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除