[發問] 有關按鈕隱藏跟取消隱藏的問題

ShaoQiang

請問一下
我想做個按鈕按下去後可以把A2-A9隱藏，再按一次會取消隱藏
目前我可以做出兩個按鈕出來，一個是隱藏，另一個是取消隱藏
請問要怎麼把這兩個按鈕合併成一個呢? 也就是按下去後可以把A2-A9隱藏，再按一次會取消隱藏

Private Sub CommandButton1_Click()
' hide 巨集
' 隱藏A2-A9
    Rows("2:9").Select
    Selection.EntireRow.Hidden = True
End Sub

Private Sub CommandButton2_Click()
'nohide 巨集
' 取消隱藏A2-A9
  Rows("1:10").Select
  Selection.EntireRow.Hidden = False
End Sub

以上這個個怎麼把它放在同一個按鈕內呢?
感謝

PKKO

回復 1# ShaoQiang

試試看

1. Sub test()
   
2. 
   
3. ' hide 巨集
   
4. 
   
5.     If Rows("2:9").EntireRow.Hidden = True Then
   
6.         Rows("2:9").EntireRow.Hidden = False ' 取消隱藏A2-A9
   
7.     Else
   
8.         Rows("2:9").EntireRow.Hidden = True ' 隱藏A2-A9
   
9.     End If
   
10. End Sub

複製代碼

GBKEE

回復 2# PKKO
可簡略些

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

複製代碼

ShaoQiang

回復 2# PKKO

OK成功了~~
那如果在還沒隱藏時他的按鈕會顯示"隱藏"~~點選隱藏後按鈕會顯示"取消隱藏"
這樣要怎麼改呢?

ShaoQiang

回復 3# GBKEE

GBKEE大的語法也成功可以使用~非常感謝~:D

ShaoQiang

我已經找到答案了，用以下這樣寫就可以了，或用GBKEE大大的語法可以更精簡
但請問一下要怎麼改按鍵的顏色呢?
例如我要灰色或其它顏色~要去哪邊找語法? (以下的案例是紅色跟藍色)

Private Sub CommandButton1_Click()
' hide 巨集
    If Rows("25:41").EntireRow.Hidden = True Then
    CommandButton1.Caption = "隱藏"
    CommandButton1.BackColor = vbBlue
        Rows("25:41").EntireRow.Hidden = False ' 取消隱藏A2-A9      
    Else
    CommandButton1.Caption = "顯示"
    CommandButton1.BackColor = vbRed
        Rows("25:41").EntireRow.Hidden = True ' 隱藏A2-A9
    End If
End Sub

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

複製代碼

ShaoQiang

回復 7# GBKEE

感謝G大的回覆~

請問G大如果我要改顏色的話要怎麼改呢? 有顏色的語法可以查詢嗎?
例如我要淺灰色跟淺藍色

fei6999

請問以上程序是指定ActiveX控制項的命令按鈕.是否可以在列印時不印出來,若用表單控制項按鈕可以嗎?

ShaoQiang

回復 9# fei6999

這問題可能要請GBKEE大回覆一下