EXCEL 資料查詢的巨集使用

嗨，大頭陳！

請您嘗試在此處粘貼您的 VBA 代碼嗎？

但是，您可以嘗試編輯以下VBA代碼： Sub SearchOrdersByDate（） 暗淡搜索日期為日期 暗淡順序範圍作為範圍 將順序暗淡為範圍

' 提示使用者輸入搜尋日期 搜尋日期 = 輸入框（“輸入要搜索的日期 （月/日/年）：”， “搜索訂單”）

' 設置包含訂單數據的範圍 ' 根據您的資料庫佈局更新範圍位址和工作表名稱 設置訂單範圍 = 工作表（“工作表 1”）。範圍（“A2：E100”）

' 清除任何以前的搜尋結果 工作表（“工作表2”）。使用範圍.清除內容

' 迴圈遍曆每個訂單並將匹配的訂單複製到新工作表 對於每個訂單 在訂單範圍中。行 如果訂購。細胞（1，1）。值 = 搜索日期然後 次序。複製目的地：=工作表（“工作表2”）。範圍（“A”和行.計數）。結束（xlUp）。偏移（1） 結束如果 下一個訂單

' 結果工作表中的自動調整列 工作表（“工作表2”）。UsedRange.Columns.AutoFit

' 通知使用者搜尋完成 消息框“搜索完成。找到“ & Worksheets（”Sheet2“）。UsedRange.Rows.Count - 1 & “ orders.” 結束子

該宏將提示您輸入日期（月/日/年格式）以搜索訂單。然後，它會將匹配的訂單複製到名為“Sheet2”的新工作表中。結果表將自動調整列寬，消息框將顯示找到的訂單數。

關於更正錄製的宏，如果您提供有關錄製過程中遇到的問題或錯誤的更具體的詳細資訊以及錄製的代碼本身，將會很有説明。這將使我們能夠識別問題並對錄製的宏提出更正或改進建議。

如果您需要其他説明，請告訴我，我將很樂意為您提供進一步的説明。

此致敬意 沙基魯

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