返回列表 上一主題 發帖

有關VBA語法的問題

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-11-17 22:44 | 只看該作者

有關VBA語法的問題

程式如下:
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就找得到
但是如果字元多了一個"~",就找不到。
請問這是怎麼一回事??
收藏 分享

modelcrazyer

帖子
66 
主題
28 
精華
0 
積分
95 
點名
0  
作業系統
Win7 
軟體版本
Office 2010 
閱讀權限
20 
註冊時間
2012-10-1 
最後登錄
2018-6-26 
3#
發表於 2015-11-17 23:31 | 只看該作者
太感謝了!!這樣就可以了!!

TOP

准提部林

帖子
2833 
主題
10 
精華
0 
積分
2889 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-15 
2#
發表於 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

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題