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

[µo°Ý] ¦³¨S¦³¬Æ»ò¤è¦¡¥i¥H½Æ»sª«¥ó?CreateObject("SCRIPTING.DICTIONARY")

¦^´_ 10# PKKO
Åܳq¤@¤U,¤@¦¸«Ø¥ß5­Ó¦r¨åª«¥ó¬Ý¬Ý
  1. Option Explicit
  2.   Sub main_flow()
  3.     Dim xd(0 To 4), i As Long, j As Long, Ok As Integer, E As Variant
  4.     For i = 0 To 4
  5.         Set xd(i) = CreateObject("SCRIPTING.DICTIONARY")
  6.         '1¸U­Ó¸¹½X¿é¤J5­Óª«¥ó¤º
  7.             For j = 1 To 10000
  8.                 xd(i)(j) = Empty
  9.             Next
  10.     Next
  11. Ok = 0
  12. Do While Ok < 5
  13.     'rng¬°¤@­Ó¤£Â_Åܰʪº2ºû°}¦C
  14.     '³oÃä¶}©l¤ñ¹ï©Ò¦³±ø¥ó,±N­«½Æªº¸ê®Æ²¾°£±¼
  15. fn:
  16.      If xd(Ok).Count < 9 Then Ok = Ok + 1
  17.     For i = 1 To UBound(Rng, 2)
  18.         For Each E In xd(Ok).KEYS
  19.                 If Rng(i, E) = True Then xd(Ok).Remove (E)
  20.                 If xd(Ok).Count < 9 Then GoTo fn
  21.         Next
  22.     Next
  23.     If xd(Ok).Count = 9 Then Call output(xd)
  24. Loop
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 11# GBKEE


    ·PÁ¶Wª©¤j¤j,§Ú¸Õ¸Õ¬Ý^_^
PKKO

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD