熱門Ptt文章

[爆卦]excel按鈕輸入是什麼？優點缺點精華區懶人包

為什麼這篇excel按鈕輸入鄉民發文收入到精華區：因為在excel按鈕輸入這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者HILLFLY (假如時光倒流)站內Office標題[問題] EXCEL VBA 收尋時間Mon...

作者HILLFLY (假如時光倒流)
站內Office
標題[問題] EXCEL VBA 收尋
時間Mon Sep 3 22:47:33 2012

軟體:
2010 EXCEL
版本:

如題 小弟想做一個 EXCEL VBA 程式

一開始是用 錄製的 按按鈕收尋XXX 然後按下一筆 錄製程式碼

Sub 巨集1()


Cells.Find(What:="XXX", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate --->收尋

Cells.FindNext(After:=ActiveCell).Activate ----->尋找下一筆

End Sub




然後我想做兩個按鈕讓它可以收尋 一個是輸入資料的按鈕 一個是下一筆的按鈕



Sub 巨集3()



Dim myValue As Range

myValue = InputBox("請輸入你要搜尋之關鍵字!!", "**** 輸入關鍵字 ****", "", 1)

Cells.Find(What:="myValue", After:=ActiveCell, LookIn:=xlFormulas,
LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub





Sub 巨集4()

Cells.FindNext(After:=ActiveCell).Activate

End Sub




巨集3出現錯誤 沒有設定物件變數或 with區塊變數


有大大可以跟我講 我巨集 三 哪裡出現錯誤嗎?

變數我有設定 dim




感謝........Orz









--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.126.27.219
推 olycats:應該是搜尋不是收尋吧= = 09/04 22:23
→ olycats:Dim myValue As Range => Dim myValue As String 09/04 22:24
→ olycats:Cells.Find(What:="myValue" => Cells.Find(What:=myValue 09/04 22:25
→ olycats:試試看把這兩個地方改過來~ 09/04 22:25
→ HILLFLY:成功啦 09/04 22:56

你可能也想看看

搜尋相關網站