Hsieh

¦^´_ 5# united7878


    ³oÀ³¸Ó¤£¬O¦Û°Ê¨ú¥N¥\¯à
§AÀ³¸Ó¦³­Ó¹ï·Óªí
§Q¥Îchang¨Æ¥ó¨Ó¶ñ¼gn3ªº¤º®e§Y¥i
thisworkbook¼Ò²Õ

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. With Sh
   
3. If Target.Address = "$F$2" And IsDate(Target) Then
   
4. Application.EnableEvents = False
   
5. Select Case Format(.[F2], "m/d")
   
6. Case "1/1"
   
7. x = "¤ý¤p©ú"
   
8. Case "1/2"
   
9. x = "§õ¤pµØ"
   
10. Case "1/3"
    
11. x = "±i¤p¬ü"
    
12. End Select
    
13. .[N3] = x
    
14. Application.EnableEvents = True
    
15. End If
    
16. End With
    
17. End Sub

½Æ»s¥N½X

Hsieh

°õ¦æ
Sub XX()
Application.EnableEvents = True
End Sub

Hsieh

¦^´_ 9# united7878
¥ý°õ¦æ

1. Sub xx()
   
2. Application.EnableEvents = True
   
3. End Sub

½Æ»s¥N½X

1. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   
2. With Sh
   
3. If Target.Address = "$F$2" And IsDate(Target) Then
   
4. Sh.Unprotect "0000"
   
5. Application.EnableEvents = False
   
6. Select Case Format(.[F2], "m/d")
   
7. Case "1/1"
   
8. x = "¤ý¤p©ú"
   
9. Case "1/2"
   
10. x = "§õ¤pµØ"
    
11. Case "1/3"
    
12. x = "±i¤p¬ü"
    
13. End Select
    
14. .[N3] = x
    
15. Application.EnableEvents = True
    
16. Sh.Protect "0000"
    
17. End If
    
18. End With
    
19. End Sub

½Æ»s¥N½X