標題: 設定VBA CommandButton切換隱藏列修改為隱藏欄 [打印本頁]

---

作者: james1912    時間: 2015-3-6 10:29     標題: 設定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

---

作者: GBKEE    時間: 2015-3-6 12:13

回復 1# james1912
許多程式碼可用錄製新巨集取得.
練習一下操作欄的隱藏程式碼,帶入你的程式碼試試看.

---

作者: james1912    時間: 2015-3-6 13:33

回復 2# GBKEE


    感謝您!我已研究出來了

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)