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

[µo°Ý] vba §äÀx¦s®æ¦ì¸m°õ¦æ®Ä¯à½Ð¯q

  1. SUB TEST
  2. RNG=[A1].RESIZE(10000,2).VALUE'10000ªº³¡¤À¥i¦Û¦æÅܧó¦C¼Æ
  3. Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó

  4. FOR I =1 TO UBOUND(RNG)
  5.      D(CSTR(RNG(I,1)))=I
  6. NEXT
  7. '³oÃä¬Ý§A­n§ä¬Æ»ò¸ê®Æ,°²³]¬Ox,´N·|¥X²{x¬O²Ä´X¦C¤F

  8. MSGBOX D(CSTR(X))


  9. END SUB
½Æ»s¥N½X
PKKO

TOP

¦^´_ 6# ketrddem


§Ú¶}¤@­Ó·sªºexcelÀÉ®×
½Æ»s§Aªºµ{¦¡ª½±µ¶K¤W¼Ò²Õ
°õ¦æ¤§«á¤@¬í¤§¤º´N¶]§¹Åo
PKKO

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD