Note: The other languages of the website are Google-translated. Back to English

如何使用複選框在Excel中隱藏/取消隱藏行或列?

假設您需要使用複選框來隱藏或取消隱藏某些行或列。 例如,當選中“ Active X控件”複選框時,將顯示某些行或列,否則它們將被隱藏。 本文向您展示瞭如何使用複選框來隱藏/取消隱藏Excel中行或列的詳細信息。

使用複選框使用VBA代碼隱藏/取消隱藏行或列


使用複選框使用VBA代碼隱藏/取消隱藏行或列

以下VBA代碼可以幫助您使用複選框隱藏/取消隱藏某些行或列。

1.將Active X Control複選框插入工作表後,右鍵單擊該複選框,然後選擇 查看代碼 從右鍵單擊菜單中。 看截圖:

2。 在裡面 Microsoft Visual Basic for Applications 窗口,將以下VBA代碼複製並粘貼到“代碼”窗口中。

VBA代碼:使用複選框隱藏/取消隱藏行或列

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

筆記:

1.在VBA代碼中, [光盤]。 整列 表示通過選中或取消選中相應的複選框,可以隱藏或取消隱藏列C和D。

2.要隱藏或顯示某些行(例如第6:9行),請更改[光盤]。 整列[6:9]。 整行 在VBA代碼中

3。 按 其他 + Q 同時關閉按鍵 Microsoft Visual Basic for Applications 窗口。

4.現在請關閉 設計模式開發人員 標籤,如下圖所示:

從現在開始,選中該複選框時,將顯示指定的行或列。 取消選中時,指定的行或列將被隱藏。


相關文章:


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (26)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
有沒有辦法在受保護的工作表上使用“使用複選框來隱藏/取消隱藏帶有 VBA 代碼的行或列”?
網站主持人對此評論進行了最小化
@韋恩:

Private Sub CheckBox1_Click()
ActiveSheet.Unprotect 密碼:="xxxxx"
Rows("284:351").EntireRow.Hidden = 不是 CheckBox1
ActiveSheet.Protect 密碼:="xxxx"
END SUB
網站主持人對此評論進行了最小化
似乎這段代碼只會去一個方向,即點擊時只隱藏而不是取消隱藏。 有沒有辦法糾正這個問題?
網站主持人對此評論進行了最小化
我們有同樣的問題,但我發現我們使用的是表單控件而不是 ActiveX 控件。 該代碼在 ActiveX 控件複選框按鈕中完美運行。 只需關閉設計模式,您就可以單擊選中復選框。
網站主持人對此評論進行了最小化
我們有同樣的問題,但想辦法讓它工作。 請使用 ActiveX 控件複選框,而不是表單控件複選框。 該代碼與 ActiveX 複選框完美配合。


Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = 不是 CheckBox1
END SUB
網站主持人對此評論進行了最小化
你好,

我正在嘗試使用此代碼在復選框的單獨工作表上隱藏/取消隱藏。 我必須添加什麼才能完成這項工作? 提前致謝。

Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = 不是 CheckBox1
END SUB
網站主持人對此評論進行了最小化
美好的一天,
如以下代碼所示,請將“Sheet4”替換為您單獨的工作表名稱。

Private Sub CheckBox1_Click()
[Sheet4!C:D].EntireColumn.Hidden = 不是 CheckBox1
END SUB
網站主持人對此評論進行了最小化
嗨,

嗨,我已經完成了代碼,它工作得很好,但是當我嘗試在同一張表上的多個複選框中進行相同操作時,它們“一起”工作,只有在選中所有三個複選框時才隱藏或取消隱藏行。
我試圖讓這三個複選框相互獨立。 並讓用戶一次只標記一個框。
網站主持人對此評論進行了最小化
嗨,婁,
請確保您創建的複選框是 ActiveX 控件複選框。 這些複選框在您的工作表中獨立工作。
謝謝你的評論。
網站主持人對此評論進行了最小化
你好,

有沒有辦法只隱藏一行。 如果我把 6:9 所有行都隱藏了,但如果我只放 6,它就會出現錯誤。 非常感謝您的幫助,謝謝!
網站主持人對此評論進行了最小化
嗨,
請將代碼中的第二行更改為:
[6:6].EntireRow.Hidden = 不是 CheckBox1。
感謝您的評論。
網站主持人對此評論進行了最小化
我試圖取消隱藏前三個角色,但它不起作用。我該怎麼做,我知道向我發送該文件的人想知道我的技能我能解決與否。
網站主持人對此評論進行了最小化
嗨,梅,
對不起,我沒有明白你的意思。
網站主持人對此評論進行了最小化
它起作用了,但是當我保存文件並重新打開它時不起作用。 我嘗試將其保存為宏 Excel 工作表和常規工作簿。 我做錯了什麼? 我想把它交給別人使用,不想讓他們感到困惑。
網站主持人對此評論進行了最小化
嗨安吉拉,將代碼添加到工作簿後,請單擊文件>另存為,選擇保存文件的位置,在另存為對話框中,從保存類型下拉列表中選擇 Excel 啟用宏的工作簿 (*.xlsm) ,最後點擊保存。 然後將此 Excel 啟用宏的工作簿發送給其他人。
網站主持人對此評論進行了最小化
非常有用,但是如何使用它來隱藏電子表格的一部分? 我的意思是例如單元格 B2:B11,如何結合這兩個功能? 謝謝。
網站主持人對此評論進行了最小化
如果我想使用 3 個不同的複選框並希望它們分別切換隱藏不同的行組怎麼辦? 我已經嘗試過並查看了所有內容。 當我嘗試修改此代碼時,複選框似乎相互干擾。
網站主持人對此評論進行了最小化
如果我想使用 3 個不同的複選框並希望它們分別切換隱藏不同的行組怎麼辦? 我已經嘗試過並查看了所有內容。 當我嘗試修改此代碼時,複選框似乎相互干擾。
網站主持人對此評論進行了最小化
Esse código oculta, mas não executa a reexibição quando desmarcar。

Alguém pod 是互補的嗎? Preciso de um código para ocultar e reexibir colunas indicadas。

Private Sub CheckBox1_Click()
[C:D].EntireColumn.Hidden = 不是 CheckBox1
END SUB

Obrigado
網站主持人對此評論進行了最小化
嗨,威靈頓梅斯基塔,
此 VBA 代碼可以實現:
當checkbox1被勾選時,顯示C:D列;
取消選中時,C:D 列被隱藏。
該代碼在我的情況下運行良好。 您使用的是哪個 Excel 版本?
網站主持人對此評論進行了最小化
早上好!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizando o Control ActiveX quando solecionado o item。

示例: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário。 Selecionar somente a coluna Realizado e Variação, mesmo não estando na sequencia。

Desde já agradeço,
威靈頓
網站主持人對此評論進行了最小化
嗨,
對不起,我不明白你的意思。 您介意提供數據的屏幕截圖嗎?
您可能需要附上屏幕截圖或示例文件以更清楚地描述您遇到的問題。
網站主持人對此評論進行了最小化
E para ocultar colunas não sequências?
示例:A e C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click privada()
[C:D].EntireColumn.Hidden = Não CheckBox1
結束子”
網站主持人對此評論進行了最小化
嗨,
下面的 VBA 代碼可以幫你一個忙。 請試一試。
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
網站主持人對此評論進行了最小化
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist。

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein。
幫助....
網站主持人對此評論進行了最小化
嗨玫瑰,
以下 VBA 代碼可以提供幫助。
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護