麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 有關按鈕隱藏跟取消隱藏的問題 [打印本頁]

作者: ShaoQiang 時間: 2014-11-21 00:52 標題: 有關按鈕隱藏跟取消隱藏的問題

請問一下
我想做個按鈕按下去後可以把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 時間: 2014-11-21 05:59

回復 1# ShaoQiang

試試看

Sub test()
' hide 巨集
If Rows("2:9").EntireRow.Hidden = True Then
Rows("2:9").EntireRow.Hidden = False ' 取消隱藏A2-A9
Else
Rows("2:9").EntireRow.Hidden = True ' 隱藏A2-A9
End If
End Sub

複製代碼

作者: GBKEE 時間: 2014-11-21 17:13

回復 2# PKKO
可簡略些

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

複製代碼

作者: ShaoQiang 時間: 2014-11-21 18:56

回復 2# PKKO

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

作者: ShaoQiang 時間: 2014-11-21 19:00

回復 3# GBKEE

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

作者: ShaoQiang 時間: 2014-11-22 00:14

本帖最後由 ShaoQiang 於 2014-11-22 00:15 編輯

我已經找到答案了，用以下這樣寫就可以了，或用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 時間: 2014-11-22 16:04

回復 6# ShaoQiang

Private Sub CommandButton1_Click()
Dim Msg As Boolean
With Rows("25:41").EntireRow
.Hidden = IIf(.Hidden, False, True)
Msg = .Hidden
End With
With CommandButton1
.Caption = IIf(Msg, "顯示", "隱藏")
.BackColor = IIf(Msg, vbRed, vbBlue)
.ForeColor = IIf(Msg, vbBlack, vbWhite)
End With
End Sub

複製代碼

作者: ShaoQiang 時間: 2014-11-22 17:42

回復 7# GBKEE

感謝G大的回覆~

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

作者: fei6999 時間: 2014-11-22 19:05

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

作者: ShaoQiang 時間: 2014-11-25 00:33

回復 9# fei6999

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

作者: GBKEE 時間: 2014-11-25 13:46

回復 9# fei6999

[attach]19658[/attach]

作者: ShaoQiang 時間: 2014-11-25 16:55

回復 11# GBKEE

又學到一招了，感謝G大用心的回復:D

作者: james1912 時間: 2014-12-2 10:51

請問如果我要將他2:9隱藏改為C~F該如何修改

作者: ShaoQiang 時間: 2014-12-6 00:52

請問如果我要將他2:9隱藏改為C~F該如何修改
james1912 發表於 2014-12-2 10:51

我也很想知道上面C~F要如何修改
不知道有大大知道的嗎?

作者: luhpro 時間: 2014-12-6 01:06

請問如果我要將他2:9隱藏改為C~F該如何修改
james1912 發表於 2014-12-2 10:51

Columns("C:F")

作者: ShaoQiang 時間: 2014-12-18 23:05

求救~~
今天在我的某一台電腦，這隱藏跟顯示的按鈕突然無法按，會沒反應(但別台電腦可以)
點選插入物件會顯示無法插入物件，請問這是甚麼問題呢?

作者: ShaoQiang 時間: 2014-12-21 06:11

求救~~
今天在我的某一台電腦，這隱藏跟顯示的按鈕突然無法按，會沒反應(但別台電腦可以)
點選插入物件會 ...
ShaoQiang 發表於 2014-12-18 23:05

難道真的沒有救了嗎

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)