有關按鈕隱藏跟取消隱藏的問題 - Excel程式區

ShaoQiang

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

8^# 跳轉到 »

發表於 2014-11-22 17:42 | 只看該作者

回復 7# GBKEE

感謝G大的回覆~

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

ShaoQiang

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

6^#

發表於 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

TOP

ShaoQiang