¦p¦ó³z¹LVBAÀH¾÷"¸U¤¤¨ú¤@"(¦ý¤£¯à«½Æ),©â§¹¤@¸U¦¸
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-8-19 17:15 ½s¿è
¨Ñ°Ñ¦Ò:- Sub test() 'ÀH¾÷¨ú¥X«ü©wӼƪº¤£«½Æ
- Dim ar, num As Long, r, tmp
-
- ar = [D1:D10000].Value 'ì©l¸ê®Æ(¥²¶·¬O¤£«½ÆÈ)
- num = 10000 '³]©w¨ú´XÓÈ
-
- Randomize 'ªì©l¤ÆÀH¾÷¨ç¼ÆRnd()ªººØ¤l
- For i = 1 To num
- '±qi¨ì³Ì«á¤@µ§¨ú¥X¤@Ó
- r = Int(Rnd * UBound(ar) - i) + i
- '¨ú¨ìªº´«¨ì«e±
- tmp = ar(r, 1)
- ar(r, 1) = ar(i, 1)
- ar(i, 1) = tmp
- Next
-
- '¨Ì§Çµ²ªG¨ìFÄæ
- [F1].Resize(num) = ar
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 7# GBKEE
©êºp¡A¤Ö¤F¬A¸¹
r = Int(Rnd * (UBound(ar) - i)) + i
·PÁ«ü¥¿!! |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¥»©«³Ì«á¥Ñ stillfish00 ©ó 2014-8-20 09:30 ½s¿è
¦^´_ 7# GBKEE
«ä¼{¤£©P:L ¡AÀ³¸Ó¬O
r = Int(Rnd * (UBound(ar) - i+1)) + i- Sub test() 'ÀH¾÷¨ú¥X«ü©wӼƪº¤£«½Æ
- Dim ar, num As Long, r, tmp
-
- ar = [D1:D10000].Value 'ì©l¸ê®Æ(¥²¶·¬O¤£«½ÆÈ)
- num = 10000 '³]©w¨ú´XÓÈ
-
- Randomize 'ªì©l¤ÆÀH¾÷¨ç¼ÆRnd()ªººØ¤l
- For i = 1 To num
- '±qi¨ì³Ì«á¤@µ§¨ú¥X¤@Ó
- r = Int(Rnd * (UBound(ar) - i + 1 )) + i
- '¨ú¨ìªº´«¨ì«e±
- tmp = ar(r, 1)
- ar(r, 1) = ar(i, 1)
- ar(i, 1) = tmp
- Next
-
- '¨Ì§Çµ²ªG¨ìFÄæ
- [F1].Resize(num) = ar
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ 10# PKKO
¶È¨Ñ°Ñ¦Ò¡A¤£¦P¹q¸£°õ¦æ®É¶¡¤]¤£¦P- Sub test()
- Dim ar1, ar2, ar3, ar
- Dim i As Integer, j As Integer, k As Integer, n As Long
- Dim t, s As String
-
- t = Timer
- ar1 = [A1:A100].Value
- ar2 = [B1:B100].Value
- ar3 = [C1:C100].Value
- ReDim ar(1 To UBound(ar1) * UBound(ar2) * UBound(ar3), 1 To 1)
- n = 0
- For i = 1 To 100
- For j = 1 To 100
- s = ar1(i, 1) & ar2(j, 1)
- For k = 1 To 100
- n = n + 1
- ar(n, 1) = s & ar3(k, 1)
- Next
- Next
- Next
-
- Debug.Print Timer - t '¤p©ó1¬í
-
- Application.ScreenUpdating = False
- [E1].Resize(UBound(ar)).Value = ar '§âµ²ªG±qarray©ñ¨ì¤u§@ªí¤Wªá¶O³Ì¦h®É¶¡
- Application.ScreenUpdating = True
-
- Debug.Print Timer - t ' 1X ’
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|