´î¤Æµ{¦¡

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!!

myleoyes

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

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!!

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!!

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!!

myleoyes

¦^´_ 10# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ!¯uªº«Ü¨¯­W§A...«D±`ªº¥Ì·Å!!ÁÂÁ¦A¤T!!