hugh0620

¦^´_ 4# e123chen

     ¼Ó¥D ¤U­z¬°¨Ì±z­nªºµ²ªG³]­p~   ¶È¨Ñ°Ñ¦Ò~
     ³o¤£¬O¤@­Ó¦nªº¤è¦¡(°w¹ï¥«»P°Ïµ²¦X¦hªº®É­Ô®É,·|¼g«Ü±`)
     ½Ð±Nµ{¦¡½X¶K¨ì§A»Ý­nªºsheet¤¤~
     select ªº case ¨Ì±z»Ý­nªºÖѾã~

Private Sub Worksheet_Change(ByVal ÅÜ¼Æ As Range)
If ÅܼÆ.Row = 1 And ÅܼÆ.Column = 3 And ÅÜ¼Æ <> "" And ÅܼÆ.Offset(1, 0) <> "" Then
   A = ÅÜ¼Æ & ÅܼÆ.Offset(1, 0)
ElseIf ÅܼÆ.Row = 2 And ÅܼÆ.Column = 3 And ÅÜ¼Æ <> "" And ÅܼÆ.Offset(-1, 0) <> "" Then
   A = ÅܼÆ.Offset(-1, 0) & ÅܼÆ
Else
   Exit Sub
End If
    Select Case A   
    Case "¥x«n¥«¤¤¦è°Ï"
         UserForm1.Show
    Case "¥x«n¥«ªF°Ï"
         UserForm2.Show
    Case "¥x«n¥««n°Ï"
         UserForm3.Show
    End Select
End Sub