GBKEE

¦^´_ 4# myleoyes
¦ýÀ³ÀÉ®×­n°õ¦æªºµ{¦¡«Ü¦h , ©Ò¥H«ö¶s¤]¤£¤Ö¦]¦¹¤p§Ì¥H¤U¦C¤è¦¡¨ú¥N«ö¶s
À³ªþÀɤW¨Ó¬Ý¬Ýµ{¦¡ªº³W«ß¦b­þ¸Ì!!

register313

¦^´_ 4# myleoyes
    ¬O³o¼Ë¶Ü?

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.    Select Case T.Address
   
3.      Case "$A$2"
   
4.            Call ¤ÀªR
   
5.      Case "$B$2"
   
6.            Call ÁôÂÃ
   
7.      Case "$C$2"
   
8.            Call ¨ú®øÁôÂÃ
   
9.      Case Else
   
10.   End Select
    
11. End Sub

½Æ»s¥N½X

1. Sub ¤ÀªR()
   
2.     MsgBox "°õ¦æ¤ÀªRµ{¦¡"
   
3. End Sub
   
4. Sub ÁôÂÃ()
   
5.     [Z:AT].EntireColumn.Hidden = True
   
6. End Sub
   
7. Sub ¨ú®øÁôÂÃ()
   
8.    [Z:AT].EntireColumn.Hidden = False
   
9. End Sub

½Æ»s¥N½X

Book1.zip (7.79 KB)

¤U¸ü¦¸¼Æ: 4

2011-12-21 23:05

myleoyes

¦^´_ 3# register313
«e½ú!«D±`ªºÁÂÁÂ!!µ{¦¡¥i¥H
        ¦ýÀ³ÀÉ®×­n°õ¦æªºµ{¦¡«Ü¦h
        ©Ò¥H«ö¶s¤]¤£¤Ö¦]¦¹¤p§Ì¥H¤U¦C¤è¦¡¨ú¥N«ö¶s
        Private Sub Worksheet_SelectionChange(ByVal T As Range)
           Select Case T(1).Address(0, 0)
            Case "A2"
                 ¤ÀªR
            Case "B2"
                  ÁôÂûP¨ú®ø(AA¶s)     
          End Select
          End Sub
          ¦]¦¹«e½ú©Ò±Ðªº¤è¦¡Áö¦n,
          ¥i¬O·|¯}Ãa­ìÀɮתº§¹¾ã©Ê
          ¬O§_½Ð«e½ú¨Ì¤W³¯¦C¤è¦¡
          ±Ð¾ÉAA¶s©O?µL²zªº­n¨D¯u¬O¤£¦n·N«ä
          ½Ð¦A¨¯­W§AÅo!ÁÂÁ¦A¤T!!

register313

¦^´_ 2# myleoyes
   ¥ÎCheckBox¤Ä¿ï

1. Private Sub CheckBox1_Click()
   
2. 
   
3.    If CheckBox1 = True Then
   
4.       [Z:AT].EntireColumn.Hidden = False
   
5.       Else: [Z:AT].EntireColumn.Hidden = True
   
6.    End If
   
7.    [B7].Select
   
8. 
   
9. End Sub

½Æ»s¥N½X

Book2.zip (7.92 KB)

¤U¸ü¦¸¼Æ: 6

2011-12-20 22:44

myleoyes

¦^´_ 1# myleoyes
¬p¶Õ°Õ!§Ñ¤Fªþµ{¦¡
Sub AA()
       If [AE3] = "" Then
       : [Z:AT].EntireColumn.Hidden = False : [AE3] = 1
       ElseIf [AE3] = 1 Then [AE3] = "": [Z:AT].EntireColumn.Hidden = True
       End If
       [B7].Select
End Sub