GBKEE

¦^´_ 1# myleoyes

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.    'Sheet1 ¬Oµ{§Ç  ¹Ú·Q or  ¦¨¯u ©Ò¦bªº¼Ò²Õ ½Ð¦Û¦æ­×§ï ; 'Target(1).Column = 1 AÄæ   ;     'Target(1).Column = 6 FÄæ
   
3.     Dim Msg%
   
4.     If (Target(1).Column = 1 Or Target(1).Column = 6) And Target(1) Like "³sµ²*¦~«×" Then
   
5.         Msg = Val(Replace(Replace(Target(1), "³sµ²", ""), "¦~«×", ""))
   
6.         If Msg > 0 Then
   
7.             If Target(1).Column = 1 Then Run "Sheet1.¹Ú·Q" & Msg Else Run "Sheet1.¦¨¯u" & Msg
   
8.          Else
   
9.             If Target(1).Column = 1 Then ¹Ú·Q Else ¦¨¯u
   
10.         End If
    
11.     End If
    
12. End Sub

½Æ»s¥N½X