´î¤Æµ{¦¡

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      ¦U¦ì«e½ú!³oµ{¦¡¦p¦ó´î¤Æ¥¦?
           Private Sub Worksheet_SelectionChange(ByVal Target As Range)
              Select Case Target(1).Address(0, 0)
                Case "A3"
                 If Target(1) <> "" And [A3] = "³sµ²¥»¦~«×" Then ¹Ú·Q
                Case "F3"
                 If Target(1) <> "" And [F3] = "³sµ²¥»¦~«×" Then ¦¨¯u
                Case "A4"
                 If Target(1) <> "" And [A4] = "³sµ²99¦~«×" Then ¹Ú·Q99
                Case "F4"
                 If Target(1) <> "" And [F4] = "³sµ²99¦~«×" Then ¦¨¯u99
                Case "A5"
                 If Target(1) <> "" And [A5] = "³sµ²100¦~«×" Then ¹Ú·Q100
                Case "F5"
                 If Target(1) <> "" And [F5] = "³sµ²100¦~«×" Then ¦¨¯u100
                 ¦Ü
                Case "A50"
                 If Target(1) <> "" And [A50] = "³sµ²145¦~«×" Then ¹Ú·Q145
                Case "F50"
                 If Target(1) <> "" And [F50] = "³sµ²145¦~«×" Then ¦¨¯u145
            ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

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

myleoyes

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¤ï¶Õ¤£¦æ­C½Ð³Â·Ð¬Ý¬Ý
         ªþÀÉ®×Leov24,ªþÀÉ®×Leov24-1¬O
         ¥»¨Óªº§@ªkÁÂÁ¦A¤T!!

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

myleoyes

¦^´_ 4# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¤ï¶Õ!!¹ï©ó²@µL°ò¦ªº¤p§Ì
         ¹ê¦b¯u¬O¨¯­W§A....¯u¬O¥Ì·Å
         ¥t¤@°ÝÃD¦pªþÀɮתº¦¨¯u¼Ò²Õ»P¹Ú·Q¼Ò²Õ
         Sub ¦¨¯u()
             Sheet6.Select
             Range("A1").Select
          End Sub
         Sub ¦¨¯u99()
            Sheet8.Select
            Range("A1").Select
          End Sub
         Sub ¹Ú·Q()
            Sheet7.Select
            Range("A1").Select
          End Sub
         Sub ¹Ú·Q99()
            Sheet9.Select
            Range("A1").Select
         End Sub
         µ¥µ¥³o¼Ë·Ð¦hªºµ{¦¡¥i§_¦p«eµ{¦¡¤@¼Ëªº´î¤Æ¥¦
         ½Ð¤£¥t¦A½ç±ÐÁÂÁ¦A¤T!!

GBKEE

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


re-Leov24.rar (18.68 KB)

¤U¸ü¦¸¼Æ: 9

2010-8-12 07:35

myleoyes

¦^´_ 6# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!«z!«Ó§bÅo!!«¢«¢!!
           Ægªü!!¨}®v¯u¬O¼F®`!!
           ¤p§Ì¤@©w­n¦n¦n¬ã¨s..
           ¤£¹L¤ï¶Õ!!¦A½Ð±Ð
        Sub ÁôÂêí()
            Sheets(Array("102¦~«×¹Ú·Q", "102¦~«×¦¨¯u", "101¦~«×¹Ú·Q", "101¦~«×¦¨¯u", "100¦~«×¹Ú      
                ·Q", "100¦~«×¦¨¯u", _"99¦~«×¹Ú·Q", "99¦~«×¦¨¯u")).Select
            Sheets("99¦~«×¦¨¯u").Activate
            ActiveWindow.SelectedSheets.Visible = False
            Sheets("­º­¶").Select
            Range("A1").Select
        End Sub
        Sub ®i¶}ªí()
            Sheets("102¦~«×¹Ú·Q").Visible = True
            Sheets("102¦~«×¦¨¯u").Visible = True
            Sheets("101¦~«×¹Ú·Q").Visible = True
            Sheets("101¦~«×¦¨¯u").Visible = True
            Sheets("100¦~«×¹Ú·Q").Visible = True
            Sheets("100¦~«×¦¨¯u").Visible = True
            Sheets("99¦~«×¹Ú·Q").Visible = True
            Sheets("99¦~«×¦¨¯u").Visible = True
            Sheets("­º­¶").Select
            Range("A1").Select
        End Sub
            ³o¨â­Óµ{¦¡¦p¦ó´î¤Æ¥¦
            ¤×¨ä¬OÁôÂêíµ{¦¡¬O§_¯à¥HB4°µ¬°°Ñ·Ó°ò¦
            ·í«öÁôÂêí¶s®É,µ{¦¡±oª¾²{¦bB4=103¦~«×¹Ú·Q
            µ{¦¡´N±q103¦~«×¹Ú·Q¤§«á¶}©lÁôÂäu§@ªí
            ¦A¨¯­W§AÅo....!!ÁÂÁ¦A¤T!!

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

myleoyes

¦^´_ 8# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!¬°¤F§ËÀ´
       Sheet1¬Oµ{§Ç  ¹Ú·Q or  ¦¨¯u ©Ò¦bªº¼Ò²Õ
        ¤p²Ä­«°µÀɮ׫oµo²{µLªk¦^­º­¶
         ¦h¦¸­×§ïÁÙ¬O§ä¤£¨ì°ÝÃD©Ò¦b
          ¤ï¶Õ!!¥u¦n¦A¨¯­W¨}®v!
           ¯uªº¦n©êºp...!!ÁÂÁ¦A¤T!!

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