ShaoQiang

回復 7# GBKEE

感謝G大的回覆~

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

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

我已經找到答案了，用以下這樣寫就可以了，或用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

ShaoQiang

回復 3# GBKEE

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

ShaoQiang

回復 2# PKKO

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

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

複製代碼

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

複製代碼