GBKEE

¦^´_ 2# PKKO
¥i²²¤¨Ç

1. Private Sub CommandButton1_Click()
   
2. ' hide ¥¨¶°
   
3. ' ÁôÂÃA2-A9
   
4.     With Rows("2:9")
   
5.         .EntireRow.Hidden = IIf(.EntireRow.Hidden, False, True)
   
6.     End With
   
7. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# ShaoQiang

1. Private Sub CommandButton1_Click()
   
2.     Dim Msg As Boolean
   
3.     With Rows("25:41").EntireRow
   
4.         .Hidden = IIf(.Hidden, False, True)
   
5.         Msg = .Hidden
   
6.     End With
   
7.     With CommandButton1
   
8.         .Caption = IIf(Msg, "Åã¥Ü", "ÁôÂÃ")
   
9.         .BackColor = IIf(Msg, vbRed, vbBlue)
   
10.         .ForeColor = IIf(Msg, vbBlack, vbWhite)
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 9# fei6999


   

¤U¸ü (87.67 KB)

2014-11-25 13:45