請問這個字串為什麼用Find方式無法找到, 用循還環方式就找到
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
請問這個字串為什麼用Find方式無法找到, 用循還環方式就找到
請問為什麼用Find方式無法找到, 用循還環方式就找到
TestItem = "Tube-Oil(1D;3.5~4Hrs)"
Sub Test2()
found = False
InfLastRow = Worksheets("Test").Range("A" & Rows.Count).End(xlUp).Row
TestItem = Worksheets("Test").Range("A3").Value
Set SearchRange = Worksheets("Test").Range("A2:K" & (InfLastRow))
Set c = SearchRange.Find(TestItem, , xlValues, xlWhole)
If c Is Nothing Then
MsgBox "沒有找到"
Else
MsgBox "有找到"
End If
End Sub |
|
|
初學者color
|
|
|
|
|
- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 13
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-10-25
|
2#
發表於 2024-8-28 22:07
| 只看該作者
請問為什麼用Find方式無法找到, 用循還環方式就找到
TestItem = "Tube-Oil(1D;3.5~4Hrs)"
Sub Test2( ...
color790 發表於 2024-8-27 17:04 
經測試似乎是 "~" 符號使得 Find 函式會判斷 TestItem 與 [A3] 的內容是不同的,
只要把 "~" 拿掉就可以找到了.
至於原因我就不知道了...... |
|
|
|
|
|
|
|
- 帖子
- 117
- 主題
- 34
- 精華
- 0
- 積分
- 155
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-19
- 最後登錄
- 2024-8-29
|
3#
發表於 2024-8-29 08:50
| 只看該作者
|
|
初學者color
|
|
|
|
|
- 帖子
- 2827
- 主題
- 10
- 精華
- 0
- 積分
- 2883
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-10-27
|
4#
發表於 2024-9-15 17:28
| 只看該作者
本帖最後由 准提部林 於 2024-9-15 17:31 編輯
有些符號有一定規範,
TestItem = Worksheets("Test").Range("A3").Value
底下再加這一行
TestItem = replace(TestItem, "~", "~~") '開頭加"~", 表示它後面那個字元為文字
以下皆同//
TestItem = replace(TestItem, "*", "~*")
TestItem = replace(TestItem, "?", "~?")
==================
想把 5.5*8*12 變成 5.5-8-12
須輸入 "~*" 替換為 "-" |
|
|
|
|
|
|
|
