亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標(biāo)——亞洲寵物展覽會深度解析
343
2023-12-31
如何根據(jù) Excel 中的用戶輸入實時隱藏列？
如何根據(jù) Excel 中的用戶輸入實時隱藏列？
對于我們大多數(shù)人來說，隱藏 Excel 中的列可能是一項常見任務(wù)，但是，您是否嘗試過根據(jù)某些特定的輸入值自動隱藏列？ 例如，當(dāng)我在單元格中輸入文本“AA”時，A 列被隱藏； 當(dāng)我輸入“BB”時，B列和C列被隱藏； 輸入“CC”時，D列和E列被隱藏； 輸入“DD”時，F(xiàn) 列被隱藏，如下圖所示。 本文將創(chuàng)建一個 VBA 代碼以在 Excel 中解決它。
根據(jù)使用 VBA 代碼的用戶輸入實時隱藏或取消隱藏列
隱藏或取消隱藏列以使用 VBA 代碼根據(jù)用戶輸入過濾數(shù)據(jù)
根據(jù)使用 VBA 代碼的用戶輸入實時隱藏或取消隱藏列要根據(jù)輸入值實時隱藏特定列，請應(yīng)用以下 VBA 代碼：
1. 在要隱藏列的工作表中，右鍵單擊工作表選項卡，然后單擊 查看代碼 從上下文菜單中，查看屏幕截圖
2。 在開 Microsoft Visual Basic應(yīng)用程序 窗口中，將以下 VBA 代碼復(fù)制并粘貼到 表（代碼） 窗口。
VBA 代碼：根據(jù)用戶輸入實時隱藏列
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
Copy
備注：在上面的代碼中， K1
是您輸入特定文本的單元格，您應(yīng)該根據(jù)需要更改文本和列名。 此外，您只需添加以下腳本即可添加其他新條件：
案例“AA”：Columns("A").EntireColumn.Hidden = False Columns("A").EntireColumn.Hidden = True3. 然后，關(guān)閉代碼窗口。 現(xiàn)在，當(dāng)在單元格 K1 中輸入“AA”時，然后按 輸入 鍵，A列被隱藏； 輸入“BB”時，按 輸入 鍵，B 列和 C 列被隱藏，依此類推。 如果您輸入任何其他值或刪除內(nèi)容，隱藏的列將立即顯示，請參見下面的演示：
隱藏或取消隱藏列以使用 VBA 代碼根據(jù)用戶輸入過濾數(shù)據(jù)在此示例中，我將根據(jù)輸入的產(chǎn)品名稱過濾數(shù)據(jù)范圍。 當(dāng)我輸入“Hoodie”時，只顯示Hoodie信息，其他欄目會立即隱藏； 當(dāng)我輸入“All”時，所有列將顯示如下演示所示：
1. 在要隱藏列的工作表中，右鍵單擊工作表選項卡，然后單擊 查看代碼 從上下文菜單中，查看屏幕截圖：
2。 在開 Microsoft Visual Basic應(yīng)用程序 窗口中，將以下 VBA 代碼復(fù)制并粘貼到 表（代碼） 窗口。
VBA 代碼：隱藏或取消隱藏列以根據(jù)用戶輸入過濾數(shù)據(jù)
Private Sub Worksheet_Change(ByVal Target As Range)
Updateby ExtendOffice
Dim x As Variant, y As String
If Target.Address = "$K$1" Then
y = Target.Value
With Range("B1:H1")
Application.ScreenUpdating = False
.EntireColumn.Hidden = (y <> "All")
If y <> "All" Then
For Each x In .Cells
If x = y Then x.EntireColumn.Hidden = False
Next
End If
Application.ScreenUpdating = True
End With
End If
End Sub
Copy
備注：在上面的代碼中， K1 是您輸入特定文本的單元格， B1：H1 是包含要過濾的產(chǎn)品名稱的行標(biāo)題。
3. 然后，關(guān)閉代碼窗口。 現(xiàn)在，如果您在單元格K1中輸入產(chǎn)品名稱，則只會顯示相應(yīng)的列，其他列將被隱藏； 如果您輸入文本“All”，所有列將顯示如下演示所示：
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準(zhǔn)備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當(dāng)你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導(dǎo)航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標(biāo)單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
