麻辣家族討論版版 » Excel程式區 » 有關按鈕隱藏跟取消隱藏的問題

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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

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

樓主熱帖

收藏

中學生 Rank: 2

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

2^#

發表於 2014-11-21 18:56 | 顯示全部帖子

回復 2# PKKO

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

中學生 Rank: 2

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

3^#

發表於 2014-11-21 19:00 | 顯示全部帖子

回復 3# GBKEE

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

中學生 Rank: 2

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

4^#

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

中學生 Rank: 2

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

5^#

發表於 2014-11-22 17:42 | 顯示全部帖子

回復 7# GBKEE

感謝G大的回覆~

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

中學生 Rank: 2

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

6^#

發表於 2014-11-25 00:33 | 顯示全部帖子

回復 9# fei6999

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

中學生 Rank: 2

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

7^#

發表於 2014-11-25 16:55 | 顯示全部帖子

回復 11# GBKEE

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

中學生 Rank: 2

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

8^#

發表於 2014-12-6 00:52 | 顯示全部帖子

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

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

中學生 Rank: 2

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

9^#

發表於 2014-12-18 23:05 | 顯示全部帖子

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

中學生 Rank: 2

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

10^#

發表於 2014-12-21 06:11 | 顯示全部帖子

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

難道真的沒有救了嗎

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題