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

excelªº¹Bºâ³t«×~

excelªº¹Bºâ³t«×~

§Ú·Q¤ñ¸û¨â¥x¹q¸£ªº®t²§©Ê~
¦³¤°»ò¤èªk¥i¥H´ú¸Õ¥D¾÷¶]excel¸Õºâªíªº³B²z³t«×¶Ü?
¦³¤H¥i¥H¤À¨É¶Ü?

¥»©«³Ì«á¥Ñ cdkee ©ó 2010-11-5 02:34 ½s¿è

¦^´_ 1# ms2001

¤£ª¾¬O§_¤j¤j·Q­nªº¡A¬O¤p½ú¥H©¹§ä¨ìªº¡A¦ý§Ñ¤F¥X³B...
    Sub ¶}©l´ú³t()

    x = Timer

    cs = [B1]

    For y = 1 To cs

        Z = Z + 1

    Next y

    [B2] = Application.Text(Timer - x, "0.00000") & "¬í"

    [B3] = "¨C¬í " & Application.Text(Z / (Timer - x), "0") & " ¦¸"

End Sub

TOP

runªºµ²ªG¬O·¸¦ì­C

TOP

b1¿é¤J10000000¡A¦A°õ¦æ¡C

TOP

­n¤ñ¸û¹q¸£ªº®t²§©Ê ¥ÎExcel¤ñ¸û¤£«ÈÆ[§a~
§{¶¡¤£¬O¦³«Ü¦hµwÅé´ú³tªº¤u¨ã...
¥ÎExcel ¤p§Ì»{¬°Åܲ§¤Ó¤j¤F...
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

ªø±o¤Ó«Óªºª©¥D¦n¹³¦n¤[¨SÅS­±¤F¡I

TOP

¨þ¨þ¨þ~ ¯u¤£¦n·N«ä! ³o¤@°}¤l¦n¦£¨¯­W¦U¦ì¤F^^"
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD