½Ð°Ý¤Gºû±`¼Æ°}¦C¥Îvba¸Ó¦p¦ó¼g¡H

sptakung1

¦U¦ì«e½ú¤j®a¦n¡G¦V¦U¦ì½Ð±Ð¤Gºû±`¼Æ°}¦Cªº¼gªk¡C
[Range].FormulaArray = "={1,2,3;4,5,6}"¡A³oºØ¼gªk¤£¬O§Ú­nªº¡A§Ú­nªº¬O¨Ò¦p:
¤@ºû°}¦Cªº¼gªk¡Garray (1,2,3)
¤Gºû°}¦C¸Ó¦p¦ó¼g¡H¡Garray((1,2,3);(4,5,6))³o¼gªk¦ü¥G¦æ¤£³q¡A½Ð¦U¦ì¤j¤j½ç±Ð¡AÁÂÁ¡I¡I

sptakung1

¦^´_ 2# Hsieh
Hsieh¶Wª©ÁÂÁ±z¦n¡G
¥N½Xar = Array(ar1, ar2)´N¬O§Ú­nªº¡A«D±`·P¿E±zªº¼ö¸ÛµªÂСCÁÂÁ¡C
#3¡B#4¼Óªº¼Ó¥D¡A¤]«D±`·PÁ§A­Ìªº¼ö±¡¦^À³¡C
¦b¦¹¦V¦U¦ì¹DÁ¡C

c_c_lai

¦^´_ 1# sptakung1
¤Þ¥Î Hsieh ª©¤jªº½d¨Ò¡A¤]¥i¥Hª½±µ¨ú­È¡C

1. Sub nn2()
   
2.       ar = Array(Array(1, 2, 3, 4, 5), Array(6, 7, 8, 9, 10))
   
3.       MsgBox "Application.HLookup(3, ar, 2, 0) ¨ä¶Ç¦^­È " & _
   
4.                     Application.HLookup(3, ar, 2, 0) & Chr(10)  & _
   
5.                            " µ¥©ó ar(1)(2) ªº¤Gºû°}¦C­È " & ar(1)(2) & ""
   
6. End Sub

½Æ»s¥N½X

cslinmiso

¬O§_Ãþ¦ü³o¼Ë?

1.     Dim m(2, 2)
   
2.     m(1, 1) = 1 :     m(2, 1) = 3
   
3.     m(1, 2) = 2:      m(2, 2) = 4

½Æ»s¥N½X

Hsieh

¦^´_ 1# sptakung1

­n¬Ý§A°}¦Cªº¥Î³~¥i¯à¦³¤£¦P°µªk
¥Î­Ó²³æ¨Ò¤l§A°Ñ¦Ò¬Ý¬Ý

1. Sub nn()
   
2. ar1 = Array(1, 2, 3, 4, 5)
   
3. ar2 = Array(6, 7, 8, 9, 10)
   
4. ar = Array(ar1, ar2)
   
5. MsgBox Application.HLookup(3, ar, 2, 0)
   
6. End Sub

½Æ»s¥N½X