GBKEE

¦^´_ 1# gery
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Worksheet_Calculate()
   
3.     Dim xR As Range
   
4.     If [B2] <> [B3] Then
   
5.         [C2:D2].Insert
   
6.         [C2] = [B2]
   
7.         [d2] = Time
   
8.     End If
   
9.     If IsNumeric([d2]) And [d2] > 0 Then
   
10.         Do While [D65536].End(xlUp) + #12:05:00 AM# < [d2]
    
11.             [D65536].End(xlUp).Offset(, -1).Resize(, 2) = ""
    
12.         Loop
    
13.     End If
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# gery

¸Õ¸Õ¬Ý
    «O¯dx¤ÀÄÁ¤ºªº¸ê®Æ.zip (46.47 KB)

¤U¸ü¦¸¼Æ: 5

2017-7-18 20:12