EXCEL中建立查詢系統?

2016-11-07 4:55 am
我的是 Excel 2003
麻煩看一下哪裡出錯
都出現 應用程式或物件定義上的錯誤
Sub 車號()
'X = InputBox("請輸入車號")
Range("B1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$H$145").AutoFilter Field:=2, Criteria1:="=*" & X & "*", Operator:=xlAnd
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = X
Range("A1").Select
ActiveSheet.Paste
Columns("A:H").Select

Selection.Columns.AutoFit

Range("A1").Select

Sheets("行車紀錄器").Select

Application.CutCopyMode = False

Selection.AutoFilter

Range("B1").Select

End Sub
更新1:

目前出現 Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = X 應用程式或物件定義上的錯誤

更新2:

Sub 搜尋車號() Sheets("查詢").Select ActiveSheet.Cells.Clear CarN = InputBox("請輸入搜尋車號關鍵字", "查詢車號") CarNum = "*" & CarN & "*" With Sheets("行車紀錄器") .AutoFilterMode = False .UsedRange.AutoFilter Field:=2, Criteria1:=CarNum .UsedRange.Copy Sheets("查詢").Cells(1, 1) .AutoFilterMode = False End With End Sub 以上運行都可以!! 那我想要一次收尋兩個工作表 例如: 行車紀錄器A 行車紀錄器B 有重複資料也可以列出 要怎麼修改??

回答 (1)

2016-11-07 12:26 pm
✔ 最佳答案
建立工作表"查詢"來替代每次新增X(避免新增同樣名稱工作表)
Sub 搜尋車號()
Sheets("查詢").Select
ActiveSheet.Cells.Clear
CarN = InputBox("請輸入搜尋車號關鍵字", "查詢車號")
CarNum = "*" & CarN & "*"
With Sheets("行車紀錄器")
.AutoFilterMode = False
.UsedRange.AutoFilter Field:=2, Criteria1:=CarNum
.UsedRange.Copy Sheets("查詢").Cells(1, 1)
.AutoFilterMode = False
End With
End Sub


收錄日期: 2021-05-03 13:51:19
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20161106205521AAwciRQ

檢視 Wayback Machine 備份