返回列表 上一主題 發帖

請問這個字串為什麼用Find方式無法找到, 用循還環方式就找到

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2024-8-27 17:04 | 只看該作者

請問這個字串為什麼用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

luhpro

帖子
832 
主題
6 
精華
0 
積分
912 
點名
7  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-9-15 
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] 的內容是不同的,

只要把 "~" 拿掉就可以找到了.

至於原因我就不知道了......

TOP

color790

帖子
117 
主題
34 
精華
0 
積分
155 
點名
0  
作業系統
windows XP 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-19 
最後登錄
2024-8-29 
3#
發表於 2024-8-29 08:50 | 只看該作者
回復 2# luhpro

感謝你的幫忙~
初學者color

TOP

准提部林

帖子
2825 
主題
10 
精華
0 
積分
2881 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-9-15 
4#
發表於 昨天 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
須輸入 "~*"  替換為 "-"

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題