½Ð°Ý½Õ¾ã¤@ºû°}¦C¤j¤pªº¤è¦¡
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
½Ð°Ý½Õ¾ã¤@ºû°}¦C¤j¤pªº¤è¦¡
¦U¦ì¤j¤j :
½Ð±Ð¤@¤U, ¤p§Ì§Ú·Q¼gÓµ{¦¡ , §â¬YÓ¼Æ(¦p10^6)¥H¤Uªº½è¼Æ¥þ³¡§ì¥X¨Ó
¤p§Ì§Ú¤£·Q¥Î§â½è¼Æ§ä¨ì«á , ³v¤@¼g¤JÀx¦s®æ¤è¦¡ , ³o¼Ë¤ñ¸ûºC
¦Ó¬O·Q¥Î , ¥ý½è¼Æ³v¤@¼g¤J¤@ºû°}¦C , ¦pReDim arr(1 To 10^6)
³Ì«á¦A§â³o¤@ºû°}¦C¶K¨ìÀx¦s®æ ¦p cells(1,1).resize(10^6, 1)=arr
§Ú·Q°Ý , ¦pªG§Úªº°}¦C¹w³]10^6¤j¤p , ¦ý¬O¨S¦³¼gº¡, ¨Ò¦p¥u¼g¤J10^5
§Ún¦p¦ó½Õ¾ã°}¦C¤j¤p , Åý°}¦C¥u«O¯d¦³¼g¤Jªº¦ì¸m(¨S¦³¼g¤Jªº§R°£)
ÁÂÁÂ~
¨Ò¦p¤U¤è²³æµ{¦¡, arr¹w³]10Ó¦ì¸m , ³Ì«á¥u¦³arr(1) ~ arr(5)¦³¼g¤J¸ê®Æ
§Ú¦p¦ó§âarrÁY¤p¦¨¥u¦³5Ó¦ì¸m? §â¨S¦³¼g¤Jªº¦ì¸m§R°£
Sub test()
ReDim arr(1 To 10)
n = 0
For i = 1 To 5
n = n + 1
arr(i) = n
Next
End Sub |
|
MLB
|
|
|
|
|
- ©«¤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
|
¦^´_ 1# mlbolerud
«á±¥[¤@¦æ
ReDim Preserve arr(1 To 5) |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
stillfish00¤j¤j
«D·PÁ§Aªº«Øij, ¦ý¬O§Úªº¨Ò¤l(10^6¥H¤Uªº½è¼Æ) , ӼƦ³¦h¤Ö, §Ú¤@¶}©l¤£·|ª¾¹D
©Ò¥H§Ú¤@¶}©l¥u¯à«Ø¤@ӫܤjªº¤@ºû°}¦C(ÁקK¼g¤£¤U) , µM«á§â½è¼Æ§ä¨ì«á³v¤@¼g¤J
³Ì«á¼g§¹ , ¨S¦³¶ñº¡ªº°}¦C¦ì¸m , §Ú·Qn§â¥¦§R°£
§Úª¾¹D¥i¥H¥Î¼g°j°éªº¤è¦¡ , §PÂ_°}¦C¸ÌªºÈlen¬O§_=0 , pºâ½è¼ÆÓ¼Æ
¦ý¬O¤£ª¾¹D¦³¨S¦³¤£¼g°j°éªº«ü¥O¥i¥H¥Î?
·PÁ¤F~ |
|
MLB
|
|
|
|
|
- ©«¤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 ©ó 2020-1-9 13:24 ½s¿è
¦^´_ 3# mlbolerud
¨S¦³n§A¦A¥Î¤@Ó°j°é¡A§A§PÂ_¬O½è¼Æ©ñ¨ìarrªº®ÉÔ´Nn¶ë¨ì«e±- Sub Test1()
- Dim arr(1 To 100)
- Dim cnt As Long
-
- cnt = 0
- For i = 1 To 100
- If ¬O½è¼Æ(i) Then
- cnt = cnt + 1
- arr(cnt) = i
- End If
- Next
-
- ReDim Preserve arr(1 To cnt)
- End Sub
½Æ»s¥N½X |
|
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
¥»©«³Ì«á¥Ñ mlbolerud ©ó 2020-1-9 21:38 ½s¿è
stillfish00¤j¤j
«D±`·PÁ§A«Øijªº¤è¦¡ , ³o¬O«Ü¦nªº«Øij
¥Î³oӤ覡 , ½T¹ê´N¥i¥H¦b°j°é¶]§¹´N±o¨ì , °}¦C¼g¤Jªºªø«×
§Ú¥t¥~¦A½Ð±ÐÓ¤p°ÝÃD, ¦pªG§Úªº¤@ºû°}¦Cªø«×¤ñ¸ûªø, ¨Ò¦p10^5
§Úµo²{¼g¤JÀx¦s®æ®É·|¥X²{ "«¬ºA¤£²Å¦X" ªº¿ù»~
¦pªG°}¦Cµu¤@ÂI(<=65536) , ´N¥i¥H¼g¤J , §Ú¥Î¤°»ò¤è¦¡¥i¥H¸Ñ¨M³o°ÝÃD©O?
§Ú¸Õ¹L§â°}¦C«Å§i¦¨ªø¾ã¼Æ( Dim arr() As long ) ¨S¦³¥Î, ¦p¤U½d¨Ò
ÁÙ±æ¤j¤j¯à¤£§[½ç±Ð
·PÁ¤F
Sub test1()
Dim arr() As Variant
ReDim arr(1 To 10 ^ 5)
n = 1
Do
arr(n) = n
n = n + 1
Loop While n < 10 ^ 5 + 1
Sheets(2).Cells(1, 1).Resize(10 ^ 5, 1) = Application.Transpose(arr) ''''''''''' µLªk¼g¤J
End Sub |
|
MLB
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
¦³Ãö°}¦C¤Óªø(>65536) , µLªk¼g¤JÀx¦s®æªº°ÝÃD
¦³þ¦ì¤j¤j©Î«e½ú¥i¥HÀ°¦£¸Ñ´b¶Ü? ÁÙ¬O³oÃD¯uªºµL¸Ñ¤F?
ÁÂÁÂ~ |
|
MLB
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-12
|
¦^´_ 6# mlbolerud
¸ê®Æ¦æ¼Æ¤Ó¦h, 2003ª©, ³æÄæ©ñ¤£¤U, ¥i¥Î¦hÄæ~~ |
|
|
|
|
|
|
- ©«¤l
- 32
- ¥DÃD
- 13
- ºëµØ
- 0
- ¿n¤À
- 70
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW
- µù¥U®É¶¡
- 2019-4-28
- ³Ì«áµn¿ý
- 2021-7-6
|
|
MLB
|
|
|
|
|