excelvba查找工作簿

『壹』 excel 指定查找工作簿 三条件查找

你的图我看不明白，但是感觉如果仅仅是跨表的使用indirect函数引用一下你A列的表名专就可以了
如果属真想得到解答请把你的AAA，XXX表表头改变一下，那么多列到底是取哪一列逻辑关系我搞不懂，所以没有给你具体公式

『贰』 Excel 如何通过vba代码知道当前工作簿为第几个工作簿

要做一个跨工抄作簿的查找袭，现在呢，我查找和被查找的两个工作簿的切换是靠"Workbooks(1)"和"Workbooks(2)”来切换的，workbooks(1)就代表第一个工作表，workbook(2)代表通过"Application.GetOpenFilename”方法打开的第二个工作表。
现在问题是，我运行的时候只能在一个工作簿的情况下才能正常运行，否则就会出错。所以我需要知道当前工作簿排在第几个~
Sub test()
Dim a As String
a = Application.GetOpenFilename
Set wb1 = Workbooks.Open(a)
wb1.Worksheets(1).Range("a1").Value = "haha"
End Sub

『叁』 求Excel VBA代码，要求如下，查找当前系统有没有打开一个工作簿(打印.xls)，如果有，侧选

最简单的方式, 不需要创建VBA代码, 只需要创建一个超级链接就可以了
超级链接在文件打开的时候, 会直接跳转, 未打开状态会打开文件后跳转

『肆』 关于用VBA查找整个工作表的问题！

Suba()
DimshtAsWorksheet,rAsRange

ForEachshtInSheets
Setr=sht.Cells.Find(What:="a")'在工作表中查找
IfNotrIsNothingThen'如果找到
sht.Visible=xlSheetVisible'取消工作表隐藏
sht.Activate'激活工作表
r.Activate'使查到的单元内格容成为活动单元格
ExitFor'不再继续查找
EndIf
Next
EndSub

『伍』 EXCEL VBA查询工作表名称

利用主EXCEL 是可以打开其他 EXCEL 文件的，
Workbooks.Open Filename:=f_namm 后面是文件名内
然后容你还可以利用
Windows(work_fro).Activate 括号中是文件名 利用它可以在两个 EXCEL 文件之间切换活动窗口
Worksheets(fro_num).Activate 括号中可以用 SHEET 的名称 也可以用序号 切换活动的 SHEET
其他的怎么用，你应该知道一点吧。还有问题可以去我博客给我留言。

『陆』 Excel vba 模糊查找工作表名,并选中工作表

SubSelSht()'工作表查找
DimShtAsString
DimstrAsString
DimstasWorkSheet
Sht=Application.InputBox(prompt:="请输入要查找的值：",Title:="模糊查找",Type:=2)
str=""
foreachstinsheets
ifst.namelike"*"&sht&"*"then
st.activate
st.select
str="ok"
exitfor
endif
nestst
Ifstr<>"ok"Then
MsgBox"不存在回或名称输入有误答！"
EndIf
EndSub

『柒』 求高手指教EXCEL如何用VBA在工作簿中查找包含某字段的行

代码如下：

SubErCiShangXianFenLei()
DimiAsLong,arr,mAsInteger,nAsInteger
arr=Array("ASP","SW","S29","SP","BWS","CWS","JPP","QSP")

WithSheets("Sheet1")
.[a1].Resize(,8).CopySheets("Sheet2").[a1]
Fori=2To.[a65536].End(3).Row
Form=0ToUBound(arr)
If.Cells(i,"D")Like"*"&arr(m)&"*"Then
GoSubexitM
ExitFor
EndIf
Next
Next
ExitSub
exitM:
If.Cells(i,"D").Interior.Color<>vbYellowThen
n=Sheets("Sheet2").[a65536].End(3).Row+1
.Cells(i,"A").Resize(,8).CopySheets("Sheet2").Cells(n,"A")
EndIf
Return
EndWith
EndSub

可以点击附件中的“点我”按钮，然后到Sheet2表查询结果！