[問題] EXCEL VBA 收尋

[HILLFLY (假如時光倒流)]

軟體:
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:應該是搜尋不是收尋吧= =
→ olycats:Dim myValue As Range => Dim myValue As String
→ olycats:Cells.Find(What:="myValue" => Cells.Find(What:=myValue
→ olycats:試試看把這兩個地方改過來~
→ HILLFLY:成功啦