~ 上傳‧分享‧網賺 ~
~ 免費上傳空間‧請即申請 Freak Share ~
~ 進入後請點選左上角 注冊 ! ~
~ 聲明事項 ~
如各位想把以下本文章轉貼 , 請記得要注明出處.
本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.
由於圖片製作需時, 所以更新會比較慢.
存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.
尋找資料這個問題不就是 CTRL + F 嘛 ~ 太簡單了 ~ 所以沒有什麼值的要故意再說一次的地方 但是嘛 … ( 要騙頁面顯示量就作別論了 ~ 哈哈 ~ 別 K 我 ~ 哈哈 )
==================
Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, MatchByte:=False, SearchFormat:=False).Activate
==================
這個程式碼當中 , 尋找的目標是一個英文字 “ A ” , 有看到放在程式碼那裡了嗎 ? 對 ~ 就在開始的地方 ~ What:="A" ~
What:="A" 當中的 A 就是要尋找的東西 , 只要把這個條件改 , 就可以用來尋找不同的東西了 ~
1 留言:
Set Result = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=True, SearchFormat:=False)
If Result Is Nothing Then MsgBox "Item not found" Else: Result.Activate
發佈留言