GBKEE

¦^´_ 1# mei27

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Static T  As Date
   
4.     If Time - #12:00:10 AM# >= T Then   
   
5.         T = Time
   
6.         Sheet1.Range("A:C").Sort Key1:=Range("A1"), Order1:=xlDescending
   
7.     End If
   
8. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# mei27
#12:00:10 AM# ->¶Z­â±á:10¬íÄÁ,¥iÃþ±À.