標題: [發問] 關於：Find & IsError 使用上的問題 [打印本頁]

---

作者: play9091    時間: 2012-4-8 21:57     標題: 關於：Find & IsError 使用上的問題

本帖最後由 play9091 於 2012-4-8 22:06 編輯

假設：在 "sheets" 中並沒有，11152D，這個數值。那麼

range("A:A").find(what:=11152D)

就會出現錯誤。

那我要使用這樣子的錯誤來搭配 "IsError" 來形成判斷語句

If IsError(range("A:A").find(what:=11152D))=true then

這個時候卻跳出「執行階段錯誤 '91' :」。

請教各位先進。這是什麼問題引起的呢？有沒有什麼解決的方法？？

---

作者: register313    時間: 2012-4-8 22:27

回復 1# play9091


If Range("A:A").Find("11152D") Is Nothing Then

---

作者: play9091    時間: 2012-4-8 23:12

回復 2# register313


好像不行也，因為它本身在 Range("A:A").Find("11152D") 就會跳錯誤了……沒有辦法對它做 Is Nothing 的判斷！

---

作者: register313    時間: 2012-4-8 23:19

回復 3# play9091

請附上excel壓縮檔(內有完整程式碼)
供作檢測

---

作者: Hsieh    時間: 2012-4-8 23:27

回復 3# play9091


   Set Rng= Range("A:A").Find("11152D")
If Rng Is Nothing Then  '找不到就執行
If Not Rng Is Nothing Then  '找到就執行

---

作者: play9091    時間: 2012-4-8 23:42

回復 4# register313


    附檔……

回復 5# Hsieh


    Hsieh超版的方法也不行也……

---

作者: register313    時間: 2012-4-9 00:02

回復 6# play9091


If Sheets("Swap Cell DB").Range("B:B").Find(what:=TF2) Is Nothing Then
    RowX = Sheets("Swap Cell DB").Range("B:B").Find(what:=TF2).Row   

1.既然是Is Nothing(找不到該值之儲存格),又如何傳回該儲存格之列號
2.變數不能用Row

---

作者: play9091    時間: 2012-4-9 07:34

回復 7# register313


    昨天晚上真的是寫到昏掉了，沒有看清楚是用 "……Is Nothing" 還是 "Not……Is Nothing" ，感謝二位的幫忙！

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)