Conas téacs faoi leith a aimsiú agus a athsholáthar i mboscaí téacs?

Is uirlis úsáideach é Aimsigh agus Ionadaigh dúinn chun ábhar nó foirmlí cille a aimsiú agus a athsholáthar go tapa agus go caothúil i mbileog oibre. Ach anois, tá iliomad boscaí téacs agam i mo bhileog oibre, agus ba mhaith liom an téacs sonrach a aimsiú agus luach eile a chur ina áit sna boscaí téacs seo amháin. An bhfuil aon bhealaí maithe agat chun déileáil leis an bhfadhb seo?

Faigh agus cuir téacs ar leith in ilbhoscaí téacs

Faigh agus cuir téacs ar leith in ilbhoscaí téacs

Is féidir leat an téacs a theastaíonn uait a fháil de láimh ceann ar cheann, agus a athsholáthar, ach má tá iliomad boscaí téacs ann, beidh sé seo leadránach agus tuirseach. Mar sin is féidir leis an gcód VBA seo a leanas cabhrú leat é a chríochnú ag an am céanna.

1. Gníomhachtaigh do bhileog oibre, agus coinnigh síos an ALT + F11 eochracha a oscailt Fuinneog Microsoft Visual Basic for Applications.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Faigh agus cuir téacs ar leith i mboscaí téacs den bhileog oibre reatha

Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
    xValue = shp.TextFrame.Characters.Text
    shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub

3. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit dul isteach i do shean-théacs a theastaíonn uait a athsholáthar. Féach an pictiúr:

4. Téigh ar cliceáil OK, agus sa bhosca pras seo, clóscríobh an luach téacs nua atá uait, féach an scáileán:

5. Agus ansin cliceáil OK cnaipe, tá na luachanna nua a chuir tú isteach sa bhileog oibre reatha curtha in ionad na seanluachanna. Féach screenshots:

Earraí gaolmhara:

Conas téacs a aimsiú agus a athsholáthar i dteidil cairte in Excel?

Conas téacs a aimsiú agus a athsholáthar laistigh de thráchtanna in Excel?

Conas ilbhealaí hipearnasc a athrú ag an am céanna in Excel?