我有一個資料輸入用戶表單，可以將資料發送到不同的資料庫（作業表）。由于在 Excel 檔案中有多個非資料庫作業表，我想知道是否可以過濾掉并只顯示名稱為“資料庫”的作業表（很有用，所以我不必每次都修改來添加一個新的資料庫）。
無法上傳圖片，因為這是我的第一個問題，
代碼：
Private Sub ListBox1_Click()
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm1.ListBox1.Selected(i) = True Then
Worksheets(UserForm1.ListBox1.List(i)).Activate
End If
Next i
End Sub
謝謝你。
uj5u.com熱心網友回復：
我用前導下劃線隱藏不可見的作業表。這使我可以回圈所有作業表并輕松隱藏它們。您可以使用相同/相似的方法來隱藏/顯示/激活您想要顯示的一張或多張紙。
For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = Me.ListBox1.Caption Then
ws.Visible = xlSheetVeryHidden
ElseIf ws.Name = Me.ListBox1.Caption Then
ws.Visible = xlSheetvisible
ws.Activate
End If
Next ws
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/519601.html
下一篇：加快VBA中的按鈕格式化