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

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

register313

¦^´_ 9# myleoyes

¬Ý¤FÀÉ®×¹ê¦b¤£¤F¸Ñ§A­nªº¥\¯à
¬O¤£¬O¦A»¡©ú²M·¡