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

GBKEE

¦^´_ 3# myleoyes
Sheet1 ¬Oµ{§Ç  ¹Ú·Q or  ¦¨¯u ©Ò¦bªº¼Ò²Õ ½Ð¦Û¦æ­×§ï
³o­Ó·N«ä¬O Run "Sheet1.¹Ú·Q" & Msg   ªº Sheet1 ¬O¤u§@ªíª«¥ó¼Ò²Õ¤¤ªºµ{§Ç   "¹Ú·Q" & Msg ©Ò¦b
¦p µ{§Ç "¹Ú·Q" & Msg  §ï©ñ§Oªºª«¥ó¼Ò²Õ´N ½Ð§A­n¦Û¦æ­×§ï   
¦p¤µ§AªºªþÀɤÀ§O ©ñ¦b¤@¯ë¼Ò²Õ  (¦¨¯u¼Ò²Õ , ¹Ú·Q¼Ò²Õ)  ¥Bµ{§Ç¬O ¤½¥Îµ{§Ç  ´N¤£¥[¤W¼Ò²Õªº¦WºÙ¤F

1. If Msg > 0 Then
   
2. If Target(1).Column = 1 Then Run "¹Ú·Q" & Msg Else Run "¦¨¯u" & Msg
   
3. Else
   
4. If Target(1).Column = 1 Then ¹Ú·Q Else ¦¨¯u
   
5. End If

½Æ»s¥N½X

GBKEE

¦^´_ 5# myleoyes
¸Õ¸Õ¬Ý


re-Leov24.rar (18.68 KB)

¤U¸ü¦¸¼Æ: 9

2010-8-12 07:35

GBKEE

¦^´_ 7# myleoyes

1. Sub ÁôÂêí()
   
2.     Dim E As Range
   
3.     If Range("B4").End(xlDown).Row = Rows.Count Then Exit Sub
   
4.     For Each E In Range("B5:B" & Range("B4").End(xlDown).Row)
   
5.         Sheets(E.Value).Visible = False
   
6.     Next
   
7.     Range("A1").Select
   
8. End Sub
   
9. Sub ®i¶}ªí()
   
10.     Dim Sh As Worksheet
    
11.     For Each Sh In Sheets
    
12.     Sh.Visible = True
    
13.     Next
    
14.     Range("A1").Select
    
15. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# myleoyes
Sorry  *  ÂI¿ùÃä  If Sh.Name Like "¦¨¯u*" Or Sh.Name Like "¹Ú·Q*" Then   
                 §ï¦¨  If Sh.Name Like "*¦¨¯u" Or Sh.Name Like "*¹Ú·Q" Then