Excel巨集巨集巨集如何實現以下搜尋

巨集工作正常。

能夠執行您被要求執行的任務。

您考慮其他因素。

例如，文字是否正確。

比如安全等等。

請嘗試以下**，看看您的需求是否得到滿足：

為了找到名稱的位置而編寫巨集有點大驚小怪，直接查詢或過濾或返回公式不是更容易嗎？

直接使用系統ctrl+f找到它不是更簡單嗎？

您將使用對話方塊來查詢它。

我真的不明白你的意思，截圖，我可以幫你寫vbe**。

你給的**不完整，你給的資訊不充分。 以下是按照空全刪（）的要求編寫的子。

dim a, b, c

for a = 2 to

for c = 1 to 10 step 3for b = 7 to

if , 1) = , c) then

c + 1) = ""

c + 2) = now()

end if

nextnext

nextfor a = 2 to

for c = 1 to 10 step 3for b = 7 to

if , 4) = , c) then

c + 1) = , 4)

c + 2) = now()

end if

nextnext

nextend sub

預設情況下，第乙個表位於“sheet1”中，第二個表位於“sheet2”中，表 2 中有 4 列資料。

讓我們使用以下 **。

子 lookup（）。

t =sheets("sheet2").selectfor each a in

b = format(

if format( = t then : exit subnext

sheets("sheet3").selectfor each a in

b = format(

if format( = t then : exit subnext

sheets("sheet1").selectmsgbox "沒有找到"

end sub

sub 開啟檔案（）。

chdir "d:\text\"

filename:="d:\" & range("a1")end sub

這個 ** 固定資料夾是指 D 盤下的測試目錄。

要輸入檔名的單元格是，當前工作表的 A1 單元格需要輸入完整的檔名，即包括副檔名。 比如。

如果它是乙個固定的 excel 檔案。 您可以將其修改為：

sub 開啟檔案（）。

chdir "d:\text\"

filename:="d:\" & range("a1")&".xls"

end sub

在這種情況下，您輸入的檔名可以是 aaa 以建立指定為此巨集的窗體按鈕。

具體來說，看看建築物主要在尋找什麼。

通常，您可以記錄乙個搜尋巨集，即查詢相關內容，然後根據需要進行修改。

或者用於迴圈遍歷，如果語句判斷，則使用 instr、like 等。

你沒有看到任何問題......

在此表中插入乙個窗體命令按鈕，然後將以下 ** 分配給此按鈕。

sub hint（）。

if not range("a:a").find("快遞運輸") is nothing then

msgbox "注意"

end if

end sub