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表查詢結果！