¦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
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
·PÁ¦U¦ì¤j¤j,®É¶¡¤W¯uªº§Ö¦h¤F
¬Ý¨Ó§Ú±o¥ý¦h¾Ç²ß¤@¤U°}¦Cªº¨Ï¥Î¤è¦¡
·P¿E¤£ºÉ!!! |
|
PKKO
|
|
|
|
|
- ©«¤l
- 20
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-11-20
|
¸ß°Ý #11 »P #12- ar = [D1:D10000].Value 'ì©l¸ê®Æ(¥²¶·¬O¤£«½ÆÈ)
½Æ»s¥N½X ³o¦æ ¯à§_¦Û°Ê§ì¨ú DÄæ¦ìªº¼Æ¶q ¤£n¹w³]10000
¨Ò¦p
§Úªº¸ê®Æ¦³2000µ§ ¦ý¤£¤@©w¨C¦¸³£¬O2000µ§
¤£·Q¹w³]¨C¤@¦¸³£n«·s¿é¤Jµ§¼Æ¡C |
|
|
|
|
|
|
- ©«¤l
- 20
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-11-20
|
¦^´_ 11# stillfish00
¦^´_ 12# Hsieh - ar = [D1:D10000].Value 'ì©l¸ê®Æ(¥²¶·¬O¤£«½ÆÈ)
½Æ»s¥N½X ³o¦æ ¯à§_¦Û°Ê§ì¨ú DÄæ¦ìªº¼Æ¶q ¤£n¹w³]10000
¨Ò¦p
§Úªº¸ê®Æ¦³2000µ§ ¦ý¤£¤@©w¨C¦¸³£¬O2000µ§
¤£·Q¹w³]¨C¤@¦¸³£n«·s¿é¤Jµ§¼Æ¡C |
|
|
|
|
|
|
- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 15# toromru
ar = [D1:D10000].Value
¦pªG¯Âºé¬O³o¦æ,¦³«Ü¦h¤è¦¡
'¦Û°Ê¿ï¾Ü¨ì³Ì¤U±¤@¦C
AR=RANGE("d1:d" & [D65536].END(XLUP).ROW).VALUE
'¿é¤J¤è¦¡
X1=INPUTBOX("½Ð¿é¤JdÄæ¼Æ¦r")
AR=RANGE("d1:d" & X1 ).VALUE
'¬YÓ¦ì¸m©Î¬O¬YÓÅܼư²³]¬O[A2]
AR=RANGE("d1:d" & [A2] ).VALUE
'³o´XÓ¤èªk³£¦]¸Ón³]©w°»¿ùªº¤è¦¡,ÁקK¨S¦³¼Æ¦r¡BdÄæ¨S¦³È¡B[A2]¬°ªÅµ¥°ÝÃD~ |
|
PKKO
|
|
|
|
|
- ©«¤l
- 20
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-11-20
|
¦^´_ 16# PKKO
ÁÂÁ ¤w¦¨¥\¦p§Ú»Ý¨Dªº©â¥X : ) |
|
|
|
|
|
|
- ©«¤l
- 20
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 25
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2013
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2015-7-24
- ³Ì«áµn¿ý
- 2015-11-20
|
¦^´_ 16# PKKO
±z¦n
¼W¥[¤F¨âӻݨD¡A·Q¸ß°Ý¡C
°²³]
1. ¦pªGn±NÀH¾÷¨úªºÈ ¦b ì©l¸ê®ÆªºXÄæ¦ì¼Ð°O¤w¨ú
2 ¦bÀH¾÷¨úªº«e¸m±ø¥ó¬°XÄæ¦ì¥¼¼Ð°Oªº¤~¶i¦æ¿z¿ï.
¨Ò¦p: A¬°ì©l¸ê®Æ B¬°ÀH¾÷¨úªºÈ X¬°¼Ð°O
²Ä¤@¦¸ÀH¿ï ²Ä¤G¦¸ÀH¿ï ²Ä¤T¦¸ÀH¿ï
A X B A X B A X B
1 2 1 1 1 O 3
2 2 O 2 O
3 3 3 |
|
|
|
|
|
|