GBKEE

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

1. '¦Û¿ïªÑ ¤u§@ªí¼Ò²Õ
   
2. Option Explicit
   
3. Private Sub Worksheet_Calculate()
   
4.     Dim Rng As Range, E As Range
   
5.     Set Rng = Range("A2", Range("A2").End(xlDown)).Columns("H") 'HÄæ(²Ä¤@µ§¶q)ªº¦ì¸m
   
6.     If Time < #9:00:00 AM# Then
   
7.         Rng = ""      '²MªÅHÄ檺²Ä¤@µ§¶q
   
8.     ElseIf Time >= #9:00:00 AM# And Rng.Count <> Application.Count(Rng) Then
   
9.          'HÄ檺­Ó¼Æ<>HÄ榳¼Æ¦rªº­Ó¼Æ,ÁÙ¦³ªÑ²¼²Ä¤@µ§¶q¨S¦³¿é¤J
   
10.         For Each E In Rng.Cells
    
11.             If E = "" And E.Cells(1, 2) > 0 Then E = E.Cells(1, 2)
    
12.         Next
    
13.     End If
    
14. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# ken2192

§A´ú¸Õ¬Ý¬Ý
   Ex.rar (9.33 KB)

¤U¸ü¦¸¼Æ: 13

2015-9-24 09:12

GBKEE

¦^´_ 6# ken2192

©êºpªþÀɤF¤@­ÓA

1. '¦Û¿ïªÑ ¤u§@ªí¼Ò²Õ
   
2. Private Sub Worksheet_Calculate()

½Æ»s¥N½X

½Ð­×§ï¦A¸Õ¸Õ¬Ý