設定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 |
|
|
|
|
|
|
|
- 帖子
- 10
- 主題
- 3
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- service pack 1
- 閱讀權限
- 10
- 註冊時間
- 2014-11-21
- 最後登錄
- 2019-12-26
|
|
|
|
|
|
|
|
發表於 2015-3-6 10:29
| 
