EXCEL 資料查詢的巨集使用

匿名

EXCEL 資料查詢的巨集使用

目的:希望能建立一個巨集能從客戶資料中快速搜尋訂單

資料庫大致如下

希望建立的巨集如下 /輸入月跟日能把當天需要出貨的訂單整列拉出來

資料庫會一直更新資料

我有嘗試使用錄製巨集卻不適合我想要的模式 (因為資料會一值更新 )

圈起來兩處是我認為資料更新無法克服的地方

希望能有人幫我解惑

1.如何創出我需要的巨集

2.我錄製的巨集能怎麼做修正

萬分感謝

鎖定的問題。此問題已從 Microsoft 支援服務社群移轉。您可以對其是否有幫助進行投票，但無法對問題新增註解或回覆，或進行追蹤。

0 則留言

16 個回答

匿名

2023-05-20T10:59:03+00:00

感謝你過程中的協助後來問題已經解決再次感謝你願意花時間幫我看謝謝 :D
此回答有幫助嗎？

0 則留言沒有留言
匿名

2023-05-17T19:49:17+00:00

嗨，大頭陳！

很抱歉，很遺憾，我沒有任何進一步的故障排除可以提供。

論壇上有許多知識淵博的使用者，我希望其他人可以對您的問題提供進一步的見解。

親切問候沙基魯

這回覆已被自動翻譯，因此，可能出現文法錯誤或表達不當。
此回答有幫助嗎？

0 則留言沒有留言

匿名

謝謝大神

之前你提點的我有去研究但因為入門門檻太高我短時間還不能了解

後來我在資料庫多建立了一欄日期欄後有成功創出一套巨集是可行的

但套用在真正要使用的資料庫上就又出現錯誤心好累哈哈哈哈

這是我後來修正後的CODE

Public Sub MyFilter()

Dim lngStart As Long, lngEnd As Long 

    Sheets("訂單整理").Select 

lngStart = Range("I6").Value 'assume this is the start date 

lngEnd = Range("I7").Value 'assume this is the end date 

Range("P1:P3000").AutoFilter Field:=1, \_ 

    Criteria1:="&gt;=" & lngStart, \_ 

    Operator:=xlAnd, Criteria2:="&lt;=" & lngEnd 

Range("A1:O3000").Select 

Selection.Copy 

Sheets.Add After:=Sheets(Sheet.Count) 

Sheets(Sheets.Count).Name = Range("I6").Value 

Range("A1").Select

ActiveSheet.Paste

Selection.Columns.AutoFit 

Sheets("訂單整理").Select 

ActiveSheet.Range("$P$2:$P$9").AutoFilter Field:=1 

Sheets("查詢").Select 

Range("R5").Select 

Application.CutCopyMode = False 

ActiveCell.FormulaR1C1 = "ok" 

Range("R5").Select

End Sub

這是我的資料庫

再次感謝你花時間替我想辦法謝謝

0 則留言

匿名

這是我後來的版本在當初創建的時候是可以成功運行的

但後來套到我的資料庫就又出現錯誤請問你能看得出是哪邊出錯了嗎?

Public Sub MyFilter()

Dim lngStart As Long, lngEnd As Long 

    Sheets("訂單整理").Select 

lngStart = Range("I6").Value 'assume this is the start date 

lngEnd = Range("I7").Value 'assume this is the end date 

Range("P1:P3000").AutoFilter Field:=1, \_ 

    Criteria1:="&gt;=" & lngStart, \_ 

    Operator:=xlAnd, Criteria2:="&lt;=" & lngEnd 

Range("A1:O3000").Select 

Selection.Copy 

Sheets.Add After:=Sheets(Sheet.Count) 

Sheets(Sheets.Count).Name = Range("I6").Value 

Range("A1").Select

ActiveSheet.Paste

Selection.Columns.AutoFit 

Sheets("訂單整理").Select 

ActiveSheet.Range("$P$2:$P$9").AutoFilter Field:=1 

Sheets("查詢").Select 

Range("R5").Select 

Application.CutCopyMode = False 

ActiveCell.FormulaR1C1 = "ok" 

Range("R5").Select

End Sub

系統標註這行是錯誤的