1.選中要替換文本框中文字直接出入即可.
創(chuàng)新互聯(lián)基于成都重慶香港及美國(guó)等地區(qū)分布式IDC機(jī)房數(shù)據(jù)中心構(gòu)建的電信大帶寬,聯(lián)通大帶寬,移動(dòng)大帶寬,多線BGP大帶寬租用,是為眾多客戶提供專業(yè)服務(wù)器托管報(bào)價(jià),主機(jī)托管價(jià)格性價(jià)比高,為金融證券行業(yè)服務(wù)器托管雅安,ai人工智能服務(wù)器托管提供bgp線路100M獨(dú)享,G口帶寬及機(jī)柜租用的專業(yè)成都idc公司。
2.從textbox的屬性中設(shè)置:雙擊textbox1,打開其代碼框在光標(biāo)處輸入TextBox1.Text = "你好!",你好是輸入的內(nèi)容.
直接用Replace語(yǔ)句把:
Dim oldstr,newstr as string
oldstr="abcdeftgd"
newstr=replace(oldstr,"a","b")
newstr=replace(newstr,"c","d")
望采納。
replace有重載方法,可以替換1~任意可能個(gè)
別用string的replace,直接用replace
用vba可以實(shí)現(xiàn),不難。要看你具體做什么,下面是一個(gè)錄制的宏,替換aaa為axa,然后替換bbb為xbx。
Sub 宏2()
'
' 宏2 宏
'
'
Cells.Replace What:="aaa", Replacement:="axa", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:="bbb", Replacement:="xbx", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub