¦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

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

jim

¦^´_ 4# luhpro
luhpro thanks