隐藏和取消隐藏列

2024-06-30 06:11| 来源: 网络整理| 查看: 265

隐藏和取消隐藏列项目01/17/2024

此示例查找包含常数“X”的前四列中的所有单元格，并隐藏包含 X 的列。

示例代码提供者：Dennis Wallentin，VSTO & .NET & Excel

Sub Hide_Columns() 'Excel objects. Dim m_wbBook As Workbook Dim m_wsSheet As Worksheet Dim m_rnCheck As Range Dim m_rnFind As Range Dim m_stAddress As String 'Initialize the Excel objects. Set m_wbBook = ThisWorkbook Set m_wsSheet = m_wbBook.Worksheets("Sheet1") 'Search the four columns for any constants. Set m_rnCheck = m_wsSheet.Range("A1:D1").SpecialCells(xlCellTypeConstants) 'Retrieve all columns that contain an X. If there is at least one, begin the DO/WHILE loop. With m_rnCheck Set m_rnFind = .Find(What:="X") If Not m_rnFind Is Nothing Then m_stAddress = m_rnFind.Address 'Hide the column, and then find the next X. Do m_rnFind.EntireColumn.Hidden = True Set m_rnFind = .FindNext(m_rnFind) Loop While Not m_rnFind Is Nothing And m_rnFind.Address m_stAddress End If End With End Sub

此示例查找包含常数“X”的前四列中的所有单元格，并取消隐藏包含 X 的列。

Sub Unhide_Columns() 'Excel objects. Dim m_wbBook As Workbook Dim m_wsSheet As Worksheet Dim m_rnCheck As Range Dim m_rnFind As Range Dim m_stAddress As String 'Initialize the Excel objects. Set m_wbBook = ThisWorkbook Set m_wsSheet = m_wbBook.Worksheets("Sheet1") 'Search the four columns for any constants. Set m_rnCheck = m_wsSheet.Range("A1:D1").SpecialCells(xlCellTypeConstants) 'Retrieve all columns that contain X. If there is at least one, begin the DO/WHILE loop. With m_rnCheck Set m_rnFind = .Find(What:="X", LookIn:=xlFormulas) If Not m_rnFind Is Nothing Then m_stAddress = m_rnFind.Address 'Unhide the column, and then find the next X. Do m_rnFind.EntireColumn.Hidden = False Set m_rnFind = .FindNext(m_rnFind) Loop While Not m_rnFind Is Nothing And m_rnFind.Address m_stAddress End If End With End Sub 关于参与者

Dennis Wallentin 是 VSTO & .NET & Excel 的作者，该博客专注于适用于 Excel 和 Excel Services 的 .NET Framework 解决方案。 Dennis 已经从事 Excel 解决方案开发超过 20 年，同时也是“专业 Excel 开发：使用 Microsoft Excel、VBA 和 .NET 开发应用程序的权威指南（第 2 版）”的合著者。

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。

【本文地址】

隐藏和取消隐藏列

隐藏和取消隐藏列

今日新闻

推荐新闻