¦X¨Öµ{¦¡°ÝÃD

jim

¦U¦ì«e½ú  ¦p¤Uµ{¦¡À³¦p¦ó¦X¨Ö¤~¥i°õ¦æ  ÁÂÁÂ!
    Sub Worksheet_change(ByVal T As Range)
  Aµ{¦¡  
  If T.Address <> "$Q$5" Then Exit Sub
       If ActiveSheet.Range("$q$5").Cells = "kk" Then
          Run "NewB"
       ElseIf ActiveSheet.Range("$q$5").Cells = "ka" Then
          Run "NewB"
     Else
     End If

  Bµ{¦¡
    If T.Address <> "$F$15" Then Exit Sub
       If ActiveSheet.Range("$F$15").Cells <> ActiveSheet.Range("$F$14").Cells Then
          Run "PP1"
     End If

stillfish00

¦^´_ 1# jim

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.   Select Case Target.Address(False, False)
   
3.   Case "Q5"
   
4.     If Target.Value = "kk" Or Target.Value = "ka" Then Run "NewB"
   
5.   Case "F15"
   
6.     If Target.Value <> Range("F14").Value Then Run "PP1"
   
7.   End Select
   
8. End Sub

½Æ»s¥N½X

jim

¦^´_ 2# stillfish00
stillfish00¹ï¤£°_
À³¸Ó¬O
     If ActiveSheet.Range("$q$5").Cells = "kk" Then
          Run "NewA"
       ElseIf ActiveSheet.Range("$q$5").Cells = "ka" Then
          Run "NewB"
µ{¦¡¬O§_¥i¥H³o¼Ë¼g  ½Ð«ü¥¿
  If Target.Value="kk" then
     Run "NewA
ElseIf Target.Value="ka" then
  run "NewB"
else

End if

luhpro

¦^´_  stillfish00
stillfish00¹ï¤£°_
À³¸Ó¬O
     If ActiveSheet.Range("$q$5").Cells = "kk" Then
...
jim µoªí©ó 2014-9-4 12:42

¥i¥H§ï¦¨©³¤U³o¼Ë : (µ½¥Î With ¥i¥H¤Ö¥´«Ü¦h¦r, ·í±ø¥ó¶W¹L¨â­Ó®É, ¥i¥H¦Ò¼{¥Î Select Case ¨ç¼Æ, Run ¬O¥Î¦b¶·¶Ç¦^ Range ®É, ¥²­n®É¥i¥H¬Ù²¤)

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

½Æ»s¥N½X

jim

¦^´_ 4# luhpro
luhpro thanks