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

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

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

本帖最後由 dechiuan999 於 2012-6-17 13:52 編輯

謝謝版主大大的指點。
直接使用REPLACE函數可提升
功能性。那是否有方法可使用
滑鼠直接選取Textbox1.Text的某一連續字串
並導入至Textbox2.text而不必輸入
要更換的字串呢？

下列是小弟另一簡易的表單

ComboBox1→指定要替換字串的次數
Textbox1 →由儲存格傳入的字串
Textbox2 →能否由滑鼠選取Textbox1的某一連續字串並導入至Textbox2呢？
Textbox3 →指定要更換的字串，須由鍵盤輸入字串

Private Sub CommandButton1_Click()

Dim mTxt1$, mTxt2$, mTxt3$
Dim C1%

C1 = ComboBox1.Value '指定要替換字串的次數
mTxt1 = TextBox1.Text '由儲存格傳入的字串
mTxt2 = TextBox2.Text '能否由滑鼠選取Textbox1的某一連續字串並導入至Textbox2呢？
mTxt3 = TextBox3.Text '指定要更換的字串，須由鍵盤輸入字串

mTxt1 = Replace(mTxt1, mTxt2, mTxt3, 1, C1, vbTextCompare) '直接引用Replace函數,逹成編輯、修改、刪除、替換。

TextBox1.Text = mTxt1
Range("A1") = TextBox1.Text

End Sub

Private Sub UserForm_Initialize()

TextBox1.Text = "ABCDEFG1234D5D6"
With ComboBox1 '
      .AddItem "1"
      .AddItem "2"
      .AddItem "3"
      .Value = 1
End With

End Sub

test.rar (6.99 KB)

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

3^#

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

謝謝版主大大。
小弟已收下也研究好一陣子，
還是全然沒有完全領會其含意。
今天下午頭腦真的有點不清醒，
越想它頭腦就越轉不過來，只好先收兵
等頭腦清醒一點再好好研究它了。

感恩版主大大！

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

4^#

發表於 2012-6-18 06:15 | 顯示全部帖子

回復 6# GBKEE

謝謝版主大大。
小弟日後會改進。
小弟正在求解中。
replace函數比小弟想像中
要複雜一些。

謝謝您！

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

5^#

發表於 2012-6-18 10:09 | 顯示全部帖子

回復 8# GBKEE

謝謝版主大大。
版主大大再次提供Replace函數範例
在應用上的差異，也讓小弟理解
引數start及count 其中的變化。
小弟也了解自已在學習上
總是處在一知半解的狀態；
這也是讓小弟一直無法更
上一層的原因。
小弟也會將版主大大提供
的範例加以發揮及應用。

感恩大大！

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

6^#

發表於 2012-6-19 06:55 | 顯示全部帖子

回復 8# GBKEE

版主大大您好：
小弟由版主大大提供的法中
多學到了Textbox三個屬性
SelText,SelLength,SelStar
另小弟也發現SelStar的起算
是由0起算。因此，語法上小
弟也修正為
If Shift = 4 And KeyCode = 13 Then TextBox4 = TextBox1.SelStart + 1

另TextBox2_Change內有二點疑惑
一、
xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
有何用意呢？
二、
Do While InStr(xText, TextBox2)
此語法與小弟的認知有所不同
小弟改成
x2=InStr(xText, TextBox2)
do while x2
就會產生無窮迴圈
小弟就不知版主大大的
語法為何不會產生無窮迴圈呢？

謝謝版主大大。

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

7^#

發表於 2012-6-19 09:24 | 顯示全部帖子

回復 11# GBKEE

版主大大早安：

小弟已領悟語法中
DO WHILE的變化了。
Sub aa()
Dim mFlag As Boolean
mFlag = True
Do While mFlag
MsgBox "現在測試中"
mFlag = False
Loop
End Sub

版主大大是利用
InStr(xText, TextBox2)及xText
的改變