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

[µo°Ý] °}¦C¸sÅé¤@¦¸¤ñ¹ï?

[µo°Ý] °}¦C¸sÅé¤@¦¸¤ñ¹ï?

¥»©«³Ì«á¥Ñ PKKO ©ó 2015-5-6 10:57 ½s¿è

¥Ø«e¨Ï¥Î¤U¤èµ{¦¡½X°µ¤ñ¹ï
  1.         For q = 1 To 7
  2.             D.RemoveAll
  3.             For j = 1 To 7
  4.                 D.Add rng(j, q), j
  5.             Next
  6.             For j = 1 To y
  7.                 r = 0
  8.                 For k = 1 To 6
  9.                     If D.Exists(Rng2(j, k)) Then r = r + 1
  10.                 Next
  11.                 If r > 0 Then myArray1(r) = myArray1(r) + 1
  12.             Next
  13.         Next
½Æ»s¥N½X
¦³¨S¦³§ó§Öªº¤è¦¡
¥i¥H¤@¦¸¤ñ¹ï§¹²¦A°}¦C»PB°}¦C¤§¤¤,¦³´X­Ó­È¬O¬Û¦Pªº?
©Î¬O¥ô¦óµ{¦¡½X¥i¥H¤ñ¤W¤è³t«×§ó§Ö,¦ý¹F¨ì¬Û¦P®ÄªG?
PKKO

§Ñ¤F¿é¤J¶}ÀY¦³¥ý«Å§i
'«Å§iª«¥ó
Dim D As Object
Set D = CreateObject("SCRIPTING.DICTIONARY")  '¦r¨åª«¥ó
PKKO

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD