是否有更適合字串的編輯修改呢？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 是否有更適合字串的編輯修改呢？

返回列表下一主題上一主題發帖

[發問] 是否有更適合字串的編輯修改呢？

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-6-17 11:46 | 顯示全部帖子

回復 1# dechiuan999
試試 Replace 函數與 Replace 方法 Application.WorksheetFunction.Replace 有點不一樣

Replace 函數傳回一個字串，該字串中指定的子字串已被取代成另一子字串，並且取代發生的次數也是指定的。
語法 Replace(expression, find, replace[, start[, count[, compare]]])
Replace 函數語法有如下幾個指名引數：
單元描述
expression 必要引數。字串運算式，包含要取代的子字串。
find 必要引數。要搜尋到的子字串。
replace 必要引數。用來取代的子字串。
start 選擇性引數。在運算式中子字串搜尋的開始位置。如果忽略，假定從1開始。
count 選擇性引數。子字串進行取代的次數。如果忽略，預設值是 –1，它表明進行所有可能的取代。
compare 選擇性引數。數字值，表示判別子字串時所用的比較模式。關於其值，請參閱「設定值」。

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-6-17 17:01 | 顯示全部帖子

回復 3# dechiuan999
試試看

TEST.rar (9.67 KB)

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-6-17 21:10 | 顯示全部帖子

回復 5# dechiuan999
可參考這篇
PS : 回文時請按 [回覆] 按鈕答覆你的人才會得到通知,

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-6-18 07:44 | 顯示全部帖子

回復 7# dechiuan999
Replace 函數的用法

Sub Ex()
Dim W As String
W = "1ABCDE2ABCDE3ABCDE4ABCDE"
MsgBox Replace(W, "E", "?", , 1) & Chr(10) & _
Replace(W, "E", "?", 7) & Chr(10) & _
Replace(W, "E", "?", 13, 1)
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-6-19 07:13 | 顯示全部帖子

回復 10# dechiuan999

'InStr 函數傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
Private Sub TextBox2_Change()
Dim xl As Integer, xText As String
xText = TextBox1 '字串=TextBox1
ComboBox1.Clear
Do While InStr(xText, TextBox2)
'While: 條件成立執行回圈 -> TextBox2字串在xText字串中最先出現位置 >1 => True成立, 0=>False 不成立
'Until: 條件不成立執行回圈
ComboBox1.AddItem xl + 1
xl = xl + 1
xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
'字串=剔除已出現位置的字元的字串以避免無窮的迴圈
'InStr(xText, TextBox2) + Len(TextBox2) :最先出現位置+TextBox2的字元數
Loop
End Sub

複製代碼

靜思自在 : 君子立恆志，小人恆立志。

返回列表下一主題上一主題