Skip to main content

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

Mar is eol dúinn, tá feidhm Aimsigh agus Ionadaigh ar fheabhas, agus leis an bhfeidhm seo, is féidir linn an t-ábhar i gcealla a aimsiú agus a athsholáthar go tapa. Ach an féidir linn ábhar i dtuairimí in Excel a aimsiú agus a athsholáthar?

Ag baint úsáide as cód VBA chun téacs a aimsiú agus a athsholáthar laistigh de thráchtanna

Téacs a aimsiú agus a athsholáthar laistigh de thráchtanna go tapa agus go héasca


mboilgeog cheart gorm saighead Ag baint úsáide as cód VBA chun téacs a aimsiú agus a athsholáthar laistigh de thráchtanna

In Excel, is cosúil nach bhfuil aon bhealach eile ann chun an fhadhb seo a réiteach ach amháin trí chód VBA a úsáid, is féidir leat an cód VBA seo a leanas a úsáid chun téacs a aimsiú agus a athsholáthar i ngach trácht. Mar shampla, cuirfidh mé 2011 in ionad 2012 i ngach trácht in Excel.

1. Cliceáil Forbróir >Visual Basic, Nua Microsoft Visual Basic d’iarratais taispeánfar an fhuinneog, cliceáil Ionsáigh > Modúil agus ansin an cód VBA seo a leanas a ionchur sa Mhodúl:

VBA: téacs a aimsiú agus a athsholáthar i ngach trácht in Excel.

Fo-IonadaighCommentí ()
Dim cmt Mar Thrácht
Dim wks Mar Bhileog Oibre
Dim sFind As Teaghrán
Dim sReplace As Teaghrán
Dim sCmt As Teaghrán
sFind = "2011"
sReplace = "2012"
Do gach wks i ActiveWorkbook.Worksheets
Do gach cmt I wks.Comments
sCmt = cmt.Text
Má tá InStr (sCmt, sFind) <> 0 Ansin
sCmt = Feidhmchlár.WorksheetFunction. _
Ionadach (sCmt, sFind, sReplace)
cmt.Text Text: = sCmt
Deireadh Má
Ar Aghaidh
Ar Aghaidh
Socraigh wks = Ní dhéanfaidh aon ní
Socraigh cmt = Ní dhéanfaidh aon ní
Fo Deireadh

Nóta: Sa chód thuas, is féidir leat an sFaigh agus sReplace athróga don rud atá á chuardach agat agus na rudaí a theastaíonn uait a chur ina n-ionad.

2. Ansin cliceáil dpc-ionad-trácht-1 cnaipe chun an cód a rith, agus cuirfear 2011 sa leabhar oibre iomlán in ionad gach trácht i 2012.


mboilgeog cheart gorm saighead Uirlis áisiúil chun téacs laistigh de thráchtanna a aimsiú agus a athsholáthar go tapa agus go héasca

Is féidir linn téacs a aimsiú agus a athsholáthar go tapa i ngach trácht Kutools le haghaidh Excel'S Uirlisí Tráchta Cill.

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Faigh é anois

Má tá Kutools suiteáilte agat le haghaidh Excel, d’fhéadfá an téacs a aimsiú agus a athsholáthar go héasca i ngach trácht in Excel.

1. Cliceáil Kutools > níos mó > Uirlisí Tráchta Cill. Féach an pictiúr:

doc-ionad-trácht-2

2. Sa an Uirlisí Tráchta Cill bosca dialóige:

  • (1.) Cliceáil Aimsigh / Ionadaigh cluaisín;
  • (2.) Roghnaigh an scóip is mian leat an fóntais seo a chur i bhfeidhm, is féidir leat a roghnú Bileog ghníomhach or Gach bileog;
  • (3.) Iontráil an téacs (2011) a theastaíonn uait a chur isteach sa Faigh téacs i dtuairimí bosca, agus cuir isteach an téacs sonrach (2012) a theastaíonn uait a úsáid sa Ionadaigh le bosca.

doc-ionad-trácht-3

3. Agus ansin cliceáil Ionadaigh cnaipe. Cuirfear 2011 in ionad gach ceann de 2012 laistigh de na tuairimí sa bhileog oibre gníomhach. Féach screenshots:

doc-ionad-trácht-4 -2 doc-ionad-trácht-5

nótaí: Má rinne tú seiceáil Taispeáin achoimre, beidh bosca pras ann le meabhrú duit cé mhéad trácht cille a athraíodh.

Chun tuilleadh eolais a fháil faoi Uirlisí Tráchta Cill, Tabhair cuairt ar Cur síos gné ar Uirlisí Tráchta Cell.


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above like below, Chr(10) is the key change:

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
I did it, change these 3 lines of the code above as below, Chr(10) is the key change!

If InStr(sCmt, Chr(10)) <> 0 Then

sCmt = Application.WorksheetFunction. _

Substitute(sCmt, Chr(10), sReplace)
This comment was minimized by the moderator on the site
How to replace line break in comments?
This comment was minimized by the moderator on the site
The above code turns the whole comment to bold. Normally only the title is bold in an Excel comment by default. The below code fixes the problem. Sub ReplaceComments() Dim cmt As Comment Dim wks As Worksheet Dim sFind As String Dim sReplace As String Dim lTitleLength As Long Dim sCmt As String sFind = "2011" sReplace = "2014" For Each wks In ActiveWorkbook.Worksheets For Each cmt In wks.Comments sCmt = cmt.Text If InStr(sCmt, sFind) 0 Then sCmt = Application.WorksheetFunction. _ Substitute(sCmt, sFind, sReplace) cmt.Text Text:=sCmt End If lTitleLength = InStr(cmt.Text, ":") With cmt.Shape.TextFrame .Characters(1, lTitleLength).Font.Bold = True .Characters(lTitleLength + 1, Len(cmt.Text)).Font.Bold = False End With Next Next Set wks = Nothing Set cmt = Nothing End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations