quickfixer

¦^´_ 1# dou10801


    ÁÙ¦³¤@ºØ¤£¦P,2­Ó¼gªk³t«×®t¶W«Ü¦hªº
¦b¾Ç²ß¦U¦ì°ª¤âªºµ{¦¡½Xµo²{,01ªº¤å³¹³£¥Îcell()¤ñ¸û¦h,³o¸Ì¤j®a³£·R¥Î[]
¥Î[]¥u¬Oµ{¦¡½Xº}«G,¤£ºÞ¼g¤JÁÙ¬OŪ¨ú³£ºC
¯u·d¤£À´¬°¤°»ò¤j®a³£·R¥ÎºCªº:(

¸Õ¸Õ¬Ý,+rnd(),¬OÁקK§Ö¨ú¼vÅTµ²ªG
Sub Ū()

Dim rr As Double
Dim s As Double
Dim cc As Double

Range("a1") = 1

s = Timer
For rr = 1 To 99999
   cc = Cells(1, 1) + Rnd(Timer)
Next rr

MsgBox "Ūcells(1,1)=" & Timer - s

s = Timer
For rr = 1 To 99999
  cc = [a1] + Rnd(Timer)
Next rr
MsgBox "Ū[a1]=" & Timer - s


End Sub


Sub ¼g()

Dim rr As Double
Dim s As Double

Application.ScreenUpdating = False
s = Timer
For rr = 1 To 99999
   Cells(1, 1) = rr + Rnd(Timer)
Next rr
Application.ScreenUpdating = True

MsgBox "¼gcells(1,1)=" & Timer - s

Application.ScreenUpdating = False
s = Timer
For rr = 1 To 99999
   [a1] = rr + Rnd(Timer)
Next rr
Application.ScreenUpdating = True
MsgBox "¼g[a1]=" & Timer - s


End Sub