GBKEE

¦^´_ 1# newlink
³o¤u§@ªí¼Ò²Õ¹w³]ªºÄ²°Êµ{¦¡½X

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     'Change : ¤u§@ªí¸ê®Æ¦³ÅܰʮɩÒIJµoªºµ{§Ç
   
4.     Application.EnableEvents = False
   
5.     Select Case Target(1).Column
   
6.     Case 1
   
7.         '·íA2¿ï¾Ü«O¥~or¤H¬°¡AB2¦Û°Ê¶ñ¤W¡¨¶ñª÷ÃB¡¨°µ¬°´£¿ô¡A
   
8.         If Target(1) = "«O¥~" Or Target(1) = "¤H¬°" Then Cells(Target(1).Row, "B") = "¶ñª÷ÃB"
   
9.         
   
10.     Case 2
    
11.         '·íB2§ï¶ñ¤W³ø»ùª÷ÃB®É , C2¦Û°Ê¶ñ¤WTODAY¤é´Á
    
12.         If IsNumeric(Target(1)) And Target(1) > 0 Then
    
13.             Cells(Target(1).Row, "C") = Date
    
14.         Else            '¤£¬O¼Æ¦r¥B<0
    
15.             Target(1) = "¶ñª÷ÃB"
    
16.             Cells(Target(1).Row, "C") = ""
    
17.         End If
    
18.     End Select
    
19.     Application.EnableEvents = True
    
20. End Sub
    
21. 
    
22. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
23.     'SelectionChange :¤u§@ªíÀx¦s®æ ¦³²¾°Ê®É©ÒIJµoªºµ{§Ç
    
24.     If Not Application.Intersect(Range("a:a"), Target) Is Nothing Then  'Àx¦s®æ²¾°Ê¨ìAÄæ®É
    
25.         Range("a:a").Validation.Delete
    
26.         Target(1).Validation.Add xlValidateList, , , "«O¤º,¤G­×,«O¥~,¤H¬°"
    
27.         'Validation ª«¥ó¡A¸Óª«¥ó¥Nªí«ü©w½d³ò¤ºªº¸ê®ÆÅçÃÒ(¿é¤Jªº¸ê®Æ­n²Å¦X«ü©wªº¸ê®Æ)
    
28.         'AÄ榳¤U©Ô¿ï³æ¡A¤À§O¬O¡G«O¤º¡B¤G­×¡B«O¥~¡B¤H¬°
    
29.     End If
    
30. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# yen956
¤£­n¶K¦b¤@¯ë¼Ò²Õ

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.                 '***SelectionChange :¤u§@ªíÀx¦s®æ ¦³²¾°Ê®É©ÒIJµoªºµ{§Ç ****
   
3.                 '¦³²¾°Ê¤~¦³Ä²µo½Ð->,¥ý²¾°ÊÀx¦s®æ¦bAÄ椧¥~,¦A²¾°ÊÀx¦s®æ¨ìAÄ椺¬Ý¬Ý

½Æ»s¥N½X

GBKEE

¦^´_ 9# yen956

1. Option Explicit
   
2. Sub Ex()  '°õ¦æ¦¹µ{¦¡·|IJ°Ê Worksheet_SelectionChange(ByVal Target As Range)
   
3.     [D5:E6].Select
   
4. End Sub
   
5. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   'Target-> [D5:D6]
   
6.     Dim i
   
7.     MsgBox Target.Address
   
8.     For i = 1 To Target.Count
   
9.         MsgBox "Target.Cells(" & i & ") ->" & Target.Cells(i).Address '=> MsgBox Target.(i).Address
   
10.     Next
    
11.     [B6].Select
    
12. End Sub

½Æ»s¥N½X