程式如下:
Dim Lastrow7 As Integer
Dim Value As String
Lastrow7 = 工作表5.[L65536].End(xlUp).Row
Value = UserForm1.ComboBox16
With Worksheets("工作表1")
Dim C As Range
Set C = .Columns(12).Find(Value, lookat:=xlWhole)
If C Is Nothing Then MsgBox "查無此字串" Else MsgBox "搜尋字串位置" & C.Address
End With
奇怪的是Value單純的是test,1234就找得到
但是如果字元多了一個"~",就找不到。
請問這是怎麼一回事??作者: 准提部林 時間: 2015-11-17 23:08
本帖最後由 准提部林 於 2015-11-17 23:11 編輯
Sub Find_No()
T$ = Replace("ABC~", "~", "~~") →將 ~ 前頭再加個 ~ ，以表示將 ~ 視為文字的一部份，〔取代〕功能亦同
Set xF = [A:A].Find(T, Lookat:=xlWhole)
MsgBox xF.Address
End Sub
Set C = .Columns(12).Find(Replace(Value, "~", "~~"), lookat:=xlWhole)
注意：不要將 value 設為自訂變數，其為vba預設關鍵字，改用別的吧，例如：xVal作者: modelcrazyer 時間: 2015-11-17 23:31
