12
返回列表 上一主題 發帖

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

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
3# 跳轉到 »
發表於 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)

TOP

GBKEE

帖子
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 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 選擇性引數。數字值，表示判別子字串時所用的比較模式。關於其值，請參閱「設定值」。

TOP

        靜思自在 : 話多不如話少，話少不如話好。
12
返回列表 上一主題