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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

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

複製代碼

PKKO

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兔年全勤獎章

3^#

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

複製代碼

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

TOP

ShaoQiang

中學生 Rank: 2

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

4^#

發表於 2014-11-21 18:56 | 只看該作者

回復 2# PKKO

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

TOP

ShaoQiang

中學生 Rank: 2

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

5^#

發表於 2014-11-21 19:00 | 只看該作者

回復 3# GBKEE

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

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

GBKEE