設定VBA CommandButton切換隱藏列修改為隱藏欄
- 帖子
- 10
- 主題
- 3
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- service pack 1
- 閱讀權限
- 10
- 註冊時間
- 2014-11-21
- 最後登錄
- 2019-12-26
|
設定VBA CommandButton切換隱藏列修改為隱藏欄
各位新進請教一下我使用下列語法執行CommandButton控制隱藏了8~15列
如我要修改成CommandButton1隱藏E~H及CommandButton2 隱藏 N~S
請問該語法該如何修正
Private Sub CommandButton1_Click()
With Rows("8:15")
.EntireRow.Hidden = IIf(.EntireRow.Hidden, False, True)
Dim Msg As Boolean
End With
With CommandButton1
.Caption = IIf(Msg, "顯示", "隱藏")
.BackColor = IIf(Msg, vbRed, vbBlue)
.ForeColor = IIf(Msg, vbBlack, vbWhite)
End With
End Sub |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2015-3-6 12:13
| 只看該作者
回復 1# james1912
許多程式碼可用錄製新巨集取得.
練習一下操作欄的隱藏程式碼,帶入你的程式碼試試看. |
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 3
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- service pack 1
- 閱讀權限
- 10
- 註冊時間
- 2014-11-21
- 最後登錄
- 2019-12-26
|
3#
發表於 2015-3-6 13:33
| 只看該作者
|
|
|
|
|
|
|
