[問題] EXCEL VBA 收尋
軟體:
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
推
09/04 22:23, , 1F
09/04 22:23, 1F
→
09/04 22:24, , 2F
09/04 22:24, 2F
→
09/04 22:25, , 3F
09/04 22:25, 3F
→
09/04 22:25, , 4F
09/04 22:25, 4F
→
09/04 22:56, , 5F
09/04 22:56, 5F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
