GBKEE

¦^´_ 1# StanleyVic
§A¥i¦b¨â¼gªk ³]¥ß¤@ÅܼƬ°Time,µ{¦¡µ²§ô«e   MsgBox    Time-ÅܼƠ ´ú¸Õ­þ¤@¼gªk§Ö
¥t´£¨Ñ¤@¤£¥Î°j°éªº¸Ñªk

1. Sub Ex()
   
2.     Dim Rng As Range, T As Date
   
3.     T = Time
   
4.     With Sheets("Status B Log")
   
5.         Set Rng = Range("D6", Range("D65536").End(xlUp))  'DÄæ¸ê®Æ½d³ò
   
6.         Rng.Offset(, 36) = ""                             'NÄæ²M°£ (±NDÄ檺½d³ò¦ì²¾¨ìNÄ檺½d³ò)
   
7.         Set Rng = Rng.SpecialCells(xlCellTypeConstants)   'DÄ榳¸ê®Æ½d³ò
   
8.         With Rng.Offset(, 36)                             'DÄ榳¸ê®Æ½d³ò¦ì²¾¨ìNÄ檺½d³ò
   
9.             .Value = "=Round(IF(RC[-36]<>"""",RC[-20]-RC[-5],""""),2)"
   
10.             .Value = .Value
    
11.         End With
    
12.     End With
    
13.     ThisWorkbook.Save
    
14.     MsgBox (" Quoted vs Invoice ( Variance ) - OK !" & Chr(10) & "¦@¥Î®É: " & Format(Time - T, "HH:MM:SS"))
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# oobird¶Wª©
¬O§Aªº§Ö ¥uµ¹¤@¦¸­È          .Cells(6, "AN").Resize(UBound(d), 1) = arr
§Úªºµ{¦¡µ¹¤F¤G¦¸­È           .Value = "=Round(IF(RC[-36]<>"""",RC[-20]-RC[-5],""""),2)"
                                                  .Value = .Value
©ó§ÚªºPC¬ùºC¤F 0.078¬í   
PS : 2003 ¥Î Rows.Count ´ú¸Õ

GBKEE

¦^´_ 6# StanleyVic    ¦^´_ 7# StanleyVic
§AªººÃ°Ý½×¾Â¤w´£°Ý«Ü¦h¤F, ¤£¬O¤£¦^µª§A.«Øij§A¦h¬Ý ½×¾Â¸Ìªºµo°Ý.
´Á«Ý§A»¡:"§Ú¤F¸Ñ°Õ"

format ¬O¦p¦ó¼g¤~¯àºâ¥X ²@¬í ?
Timer (±q«e¤@­Ó¤È©]ºâ°_¨ì²{¦b©Ò¸g¹Lªº¬í¼Æ¬í¼Æ) »P Time(¨t²Î®É¶¡)   ¦³®t§O