標題: [發問] find 為何 nothing ?? [打印本頁]

---

作者: t8899    時間: 2014-4-29 20:09     標題: find 為何 nothing ??

find 為何 nothing ??[attach]18193[/attach]

---

作者: Hsieh    時間: 2014-4-30 09:43

本帖最後由 Hsieh 於 2014-4-30 23:47 編輯

回復 1# t8899

    試著取出H121值的資料型態看看
這問題你之前應該已經問過
用Application.Match就能找到該位置
若一定要用FIND就用值來找

1. Sub test()
   
2. Dim ang As Range, a$
   
3. [H21:H350] = [H21:H350].Value '儲存格內寫入值(去公式)
   
4.     a = Application.Large(Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250"), 1)
   
5.     [a11] = TypeName(a)
   
6.      [a10] = a
   
7. Set ang = Workbooks("good.xls").Sheets("She5555555555555et6").Range("h21:h250").Find(What:=a, LookAt:=xlWhole, LookIn:=xlFormulas, SearchOrder:=xlByColumns)
   
8. [a12] = TypeName(ang)
   
9. [H21:H350] = "=IF(RC[3]="""","""",RC[4]-RC[3])" '還原公式
   
10. End Sub

複製代碼

---

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