luhpro

回復  stillfish00
stillfish00對不起
應該是
     If ActiveSheet.Range("$q$5").Cells = "kk" Then
...
jim 發表於 2014-9-4 12:42

可以改成底下這樣 : (善用 With 可以少打很多字, 當條件超過兩個時, 可以考慮用 Select Case 函數, Run 是用在須傳回 Range 時, 必要時可以省略)

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   
   
3.   With Target
   
4.     Select Case .Address(False, False)
   
5.       Case "Q5"
   
6.          Select Case .Value
   
7.            
   
8.            Case "kk"
   
9.              NewA
   
10. 
    
11.            Case "ka"
    
12.              NewB
    
13.          
    
14.          End Select
    
15.          
    
16.       Case "F15"
    
17.         If .Value <> [F14] Then PP1
    
18.         
    
19.     End Select
    
20.   End With
    
21. End Sub

複製代碼