如题所述
要使用VBA编写程序以根据关键字从Excel工作簿中查找隐藏工作表中的数据并返回显示，可以按照以下步骤进行操作：
打开Excel工作簿，并按下Alt+F11进入VBA编辑器界面。
在VBA编辑器中，选择插入菜单中的模块，以创建一个新的VBA模块。
在新建的VBA模块中，编写以下代码：
vba
Copy code
Sub SearchHiddenSheets()
Dim ws As Worksheet
Dim cell As Range
Dim searchValue As String
searchValue = InputBox("请输入要搜索的关键字:")
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetHidden Then
For Each cell In ws.UsedRange
If InStr(1, cell.Value, searchValue, vbTextCompare) > 0 Then
cell.EntireRow.Hidden = False
cell.EntireColumn.Hidden = False
End If
Next cell
End If
Next ws
End Sub
关闭VBA编辑器界面，返回到Excel工作簿。
运行宏程序。按下Alt+F8，选择"SearchHiddenSheets"宏，并点击"运行"按钮。
输入要搜索的关键字，然后点击"确定"。
VBA程序将遍历工作簿中所有隐藏的工作表，并在每个工作表中搜索包含关键字的单元格。如果找到匹配项，将显示相应的行和列。
请注意，这只是一个简单的示例，您可以根据需要进行修改和扩展。例如，您可以将搜索结果存储在数组或另一个工作表中，或者将匹配项标记为特定的样式
打开Excel工作簿，并按下Alt+F11进入VBA编辑器界面。
在VBA编辑器中，选择插入菜单中的模块，以创建一个新的VBA模块。
在新建的VBA模块中，编写以下代码：
vba
Copy code
Sub SearchHiddenSheets()
Dim ws As Worksheet
Dim cell As Range
Dim searchValue As String
searchValue = InputBox("请输入要搜索的关键字:")
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetHidden Then
For Each cell In ws.UsedRange
If InStr(1, cell.Value, searchValue, vbTextCompare) > 0 Then
cell.EntireRow.Hidden = False
cell.EntireColumn.Hidden = False
End If
Next cell
End If
Next ws
End Sub
关闭VBA编辑器界面，返回到Excel工作簿。
运行宏程序。按下Alt+F8，选择"SearchHiddenSheets"宏，并点击"运行"按钮。
输入要搜索的关键字，然后点击"确定"。
VBA程序将遍历工作簿中所有隐藏的工作表，并在每个工作表中搜索包含关键字的单元格。如果找到匹配项，将显示相应的行和列。
请注意，这只是一个简单的示例，您可以根据需要进行修改和扩展。例如，您可以将搜索结果存储在数组或另一个工作表中，或者将匹配项标记为特定的样式
温馨提示：答案为网友推荐，仅供参考
第1个回答 2023-06-27
要通过VBA从Excel工作簿中查找并显示隐藏工作表中的数据，可以使用以下代码：
```vba
Sub FindAndShowData()
Dim wb As Workbook
Dim ws As Worksheet
Dim searchValue As String
' 设置要查找的关键字
searchValue = InputBox("请输入要查找的关键字：")
' 打开要搜索的工作簿
Set wb = ThisWorkbook ' 或者通过文件路径打开工作簿：Set wb = Workbooks.Open("C:\路径\工作簿名.xlsx")
' 遍历工作簿中所有的工作表
For Each ws In wb.Worksheets
' 检查工作表是否是隐藏的
If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
' 在隐藏的工作表中查找关键字
With ws.Cells
' 使用Find方法查找关键字
Dim foundCell As Range
Set foundCell = .Find(What:=searchValue, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
' 如果找到了关键字，则显示该工作表，并选中关键字所在的单元格
If Not foundCell Is Nothing Then
ws.Visible = xlSheetVisible
foundCell.Select
Exit Sub ' 完成搜索，退出Sub
End If
End With
End If
Next ws
' 如果没有找到关键字，给出提示
MsgBox "未找到匹配的数据", vbInformation
End Sub
```
将以上代码复制到VBA编辑器（按下`Alt`+`F11`打开）中的一个模块中，然后按下`F5`执行代码。在输入框中输入要查找的关键字，代码将在工作簿中搜索并显示包含该关键字的隐藏工作表，并选中第一个匹配的单元格。如果没有找到匹配的数据，将弹出一个消息框提示。
```vba
Sub FindAndShowData()
Dim wb As Workbook
Dim ws As Worksheet
Dim searchValue As String
' 设置要查找的关键字
searchValue = InputBox("请输入要查找的关键字：")
' 打开要搜索的工作簿
Set wb = ThisWorkbook ' 或者通过文件路径打开工作簿：Set wb = Workbooks.Open("C:\路径\工作簿名.xlsx")
' 遍历工作簿中所有的工作表
For Each ws In wb.Worksheets
' 检查工作表是否是隐藏的
If ws.Visible = xlSheetHidden Or ws.Visible = xlSheetVeryHidden Then
' 在隐藏的工作表中查找关键字
With ws.Cells
' 使用Find方法查找关键字
Dim foundCell As Range
Set foundCell = .Find(What:=searchValue, _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
' 如果找到了关键字，则显示该工作表，并选中关键字所在的单元格
If Not foundCell Is Nothing Then
ws.Visible = xlSheetVisible
foundCell.Select
Exit Sub ' 完成搜索，退出Sub
End If
End With
End If
Next ws
' 如果没有找到关键字，给出提示
MsgBox "未找到匹配的数据", vbInformation
End Sub
```
将以上代码复制到VBA编辑器（按下`Alt`+`F11`打开）中的一个模块中，然后按下`F5`执行代码。在输入框中输入要查找的关键字，代码将在工作簿中搜索并显示包含该关键字的隐藏工作表，并选中第一个匹配的单元格。如果没有找到匹配的数据，将弹出一个消息框提示。
第2个回答 2023-06-28
如果对隐藏的表格进行数据处理，根本不用选择啊。直接引用处理就行了，如worksheet(2).range=8848 ，如果确实需要激活并选择的话，可以把表格显示出来，处理完再隐藏。如果这个过程不想被展现，可以在这个阶段把屏幕更新关闭。
工作表隐藏属性:
worksheet(2).visibile
工作表隐藏属性:
worksheet(2).visibile
