ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¦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

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_  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.            Case "ka"
  11.              NewB
  12.          
  13.          End Select
  14.          
  15.       Case "F15"
  16.         If .Value <> [F14] Then PP1
  17.         
  18.     End Select
  19.   End With
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# luhpro
luhpro thanks

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD