- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
¥»©«³Ì«á¥Ñ dechiuan999 ©ó 2011-2-1 11:01 ½s¿è
ÁÂÁª©¥D¤j¤j¡C
¤p§Ì´¢¼¯ª©¥D¤j¤jªº½d¨Ò¡A
¨Ãקï¹ê»Ú¨Ò¤l¤§«á¡F
«o¥X²{°}¦C§ÎºA¤£²Å¡C
¬ßª©¥D¤j¤j¯à¦A«üÂI°g¬z¡C
¥t¤p§Ì¦³¤@ºÃ´b¡A¦pªG¤p§Ì·Q¦h¤F¸Ñ
API¨ç¼ÆªºÀ³¥Î»â°ì¡A¤£ª¾¦p¦óµÛ¤â©O¡H
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") '¤Gºû°}¦C
ar2 = .Range("e8:g8")
ar2 = Application.Transpose(Application.Transpose(ar2)) '¤Gºû°}¦CÂন¤@ºû°}¦C
ar3 = .Range("h10:j14") '¤Gºû°}¦C
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) '¦p¦ó§PÂ_ar ¬O¤@ºû°}¦C©Î¬O¤Gºû°}¦C©O¡H
Call CopyMemory(lpArray, ByVal ArrayPtr(ar), 4) '°õ¦æ¦Ü¦¹¥X²{AR§ÎºA¤£²Å
Call CopyMemory(lDim, ByVal lpArray, 2)
Debug.Print "ºû¼Æ = "; lDim
Next
End With
End Sub
·P®¦ª©¥D¤j¤j¡C |
|