ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] °}¦C²¾­«½Æ­ÈCreateObject("Scripting.Dictionary")

[µo°Ý] °}¦C²¾­«½Æ­ÈCreateObject("Scripting.Dictionary")

°Ñ¦Ò¤F¤U­±³o½g¶i¦æ°}¦C­«½Æ­Èªº²¾°£
http://forum.twbts.com/thread-12757-1-1.html

¤W¤è½d¨Òªº°}¦C¦p¤U
  1. AR = Array("XX", "aa", "ab", "ab", "ab", "XX", "ab")
½Æ»s¥N½X
¦ý¬O§Ú§ï¦¨§Ú©Ò­nªºÅܼƤ覡
  1. AR = Array(Worksheets(1).Range("S" & i) , Worksheets(1).Range("Z" & i) , Worksheets(1).Range("AG" & i) , Worksheets(1).Range("AN" & i))
½Æ»s¥N½X
¦ý¬O¦L¥X¨Óªºµ²ªG¨S¦³¿ìªk±N­«½Æ­È²¾°£

¤£²M·¡°ÝÃDÂI¬°¦ó

ÁٽЦU¦ì«ü±Ð

ÁÂÁÂ !
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-5-11 23:02 ½s¿è
°Ñ¦Ò¤F¤U­±³o½g¶i¦æ°}¦C­«½Æ­Èªº²¾°£
¤W¤è½d¨Òªº°}¦C¦p¤U¦ý¬O§Ú§ï¦¨§Ú©Ò­nªºÅܼƤ覡¦ý¬O¦L¥X¨Óªºµ²ªG ...
li_hsien µoªí©ó 2016-5-11 17:34



1. AR = Array(Worksheets(1).Range("S" & i) , Worksheets(1).Range("Z" & i) , Worksheets(1).Range("AG" & i) , Worksheets(1).Range("AN" & i)) ¥i¥H§ï¦¨ :

With Worksheets(1)
  AR = Array(.Range("S" & i) , .Range("Z" & i) , .Range("AG" & i) , .Range("AN" & i))
End With

2. ¨Ì§Aªºµ{¦¡¤º®e¨Ó²q´ú,

À³¸Ó¬O§Aªº°}¦C¦b¨C­Ó°j°é¤¤³£¦³³Q Array «ü¥O­«¸m(²M°£), ©Ò¥H²£¥Í¤£¤F§A·Q­nÂo°£­«½Æ¸ê®Æªº®ÄªG.(°}¦C¤º¤¸¯À·¥¤jªº¤Ö©ó¹ê»Ú±¡§Î)


¥t, ·í°}¦C­Ó¼Æ¤£½T©w®É,

«Øij§ï¥Î Redim »P ª½±µ½á­È ¤è¦¡²£¥Í°}¦C,

Array ¥u¯à«Ø¥ß©T©w­Ó¼Æ¥B¤º®e¬Ò¤w±ø¦C¦b¸Ó¦æµ{¦¡¥k¤èªº°}¦C.


°ò©ó¤W­z­×§ï«áªºµ{¦¡¦p¤U:
  1. Sub nn()
  2.   Dim i%
  3.   Dim AR()
  4.   
  5.   ReDim AR(0) ' «Ø¥ß¤º§t 1 ­ÓªÅ¤¸¯Àªº°}¦C
  6.   With Worksheets(1)
  7.     For i = 1 To 20 ' ¨Ì»Ý¨D½Õ¾ã¹ê»Ú°j°é°õ¦æ¼Æ
  8.       ReDim AR(UBound(AR) + 1) ' °}¦CÂX¤j 1 ­Ó¤¸¯ÀªÅ¶¡, ¥B¤£²M°£°}¦C¤º®e
  9.       AR(UBound(AR)) = .Range("S" & i)
  10.       ReDim AR(UBound(AR) + 1)
  11.       AR(UBound(AR)) = .Range("Z" & i)
  12.       ReDim AR(UBound(AR) + 1)
  13.       AR(UBound(AR)) = .Range("AG" & i)
  14.       ReDim AR(UBound(AR) + 1)
  15.       AR(UBound(AR)) = .Range("AN" & i)
  16.     Next
  17.   End With
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 1# li_hsien

use   Range(  ....  ).value

TOP

¦^´_ 2# luhpro

·PÁÂluhproªº¦^´_ !

¦]¬°©ú½Tª¾¹D°}¦C¼Æ¶q©Ò¥H¤~ª½±µ¥HArray¶i¦æ³B²z

¦ý¥D­n»Ý­n±N­«½Æ­È±Æ°£±¼

µ²ªG3¼Ójackyqªº«Øij¡A¸Ñ¨Mªº³o­Ó°ÝÃD¤F !!!

ÁÂÁ±zªº¨ó§U
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 3# jackyq

ÁÂÁÂjackyq !

¯uªº¥i¥H±Æ°£­«½Æ¤F !!!

¥i¬O§Ú¤£¤Ó²M·¡¬°¦ó.value·|¦³¦¹®t²§@@
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : ¨Ã«D¦³¿ú¾{¬O§Ö¼Ö¡A°Ý¤ßµL·\¤ß³Ì¦w¡C
ªð¦^¦Cªí ¤W¤@¥DÃD