Skip to main content

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

Tá cairteacha an-úsáideach dúinn in Excel, agus is minic a thugann muid roinnt teidil dóibh chun iad a aithint. Ach an ndearna tú iarracht luach an téacs i dteidil cairte a aimsiú agus a athsholáthar laistigh de chairteacha iolracha? Labhróidh mé inniu faoi conas téacs faoi leith a fháil i iliomad tíleanna cairte agus luach eile a chur ina ionad in Excel.

Faigh agus cuir cód VBA in ionad téacs i dteidil cairte in Excel


mboilgeog cheart gorm saighead Faigh agus cuir cód VBA in ionad téacs i dteidil cairte in Excel

Má tá bileog oibre agat ina bhfuil na cairteacha mar a leanas an pictiúr a thaispeántar, agus gur mhaith leat an téacs Eanáir a chur in ionad mhí Feabhra i ngach ceann de na teidil cairte amháin. Ar ndóigh, is féidir leat iad a athrú de láimh ceann ar cheann, ach glacfaidh sé seo go leor ama má tá cairteacha iolracha ann. Mar sin anseo, is féidir leis an gcód VBA seo a leanas cabhrú leat déileáil leis an tasc seo. </p>

doc-replace-chart-teidil1

1. Gníomhachtaigh do bhileog oibre ina bhfuil na cairteacha a theastaíonn uait a fháil agus a gcuid teidil a athsholáthar.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. 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 i dteidil cairte laistigh den bhileog oibre ghníomhach

Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
    If ch.Chart.HasTitle Then
        ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
    End If
Next
End Sub

4. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le meabhrú duit dul isteach i do shean-théacs a theastaíonn uait a athsholáthar, féach an scáileán:

doc-replace-chart-teidil1

5. Agus ansin cliceáil OK cnaipe, agus bosca pras eile aníos, ní mór duit do luach téacs nua a chlóscríobh a theastaíonn uait a chur in ionad an tseanfhocail, féach an scáileán:

doc-replace-chart-teidil1

6. Téigh ar cliceáil OK chun an bosca pras a dhúnadh, agus tá an nuacht curtha in ionad do shean-téacsanna ag an am céanna sa bhileog oibre reatha mar a thaispeántar an pictiúr a leanas:

doc-replace-chart-teidil1

nótaí: Más gá duit luach téacs teidil cairte a fháil agus a athsholáthar i ngach ceann de na bileoga oibre i leabhar oibre, ba cheart duit an cód VBA seo a leanas a chur i bhfeidhm: (Tá an nós imeachta mar an gcéanna leis an méid thuas)

Cód VBA: Faigh agus cuir téacs i dteidil cairte laistigh de gach bileog oibre

Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
    For Each ch In sh.ChartObjects
        If ch.Chart.HasTitle Then
            ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
        End If
    Next
Next
End Sub

Earraí gaolmhara:

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

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

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

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Just want to say thanks for this. Saved me hours of time.
This comment was minimized by the moderator on the site
I want to do this for text in the legend and axis labels as well. What's the VBA name for the Legend? I tried to edit the module by replacing "ChartTitle" with "Legend" "LegendEntry" "ChartLegend" none work.
This comment was minimized by the moderator on the site
Some of my chart titles contain multiple font sizes. When I run the macro above, it converts all of the fonts to the same size and I have to go back through and manually re-size them. Is there a way to modify the VBA code so that it maintains the original font sizes? (I'm still a VBA newb, so any help would be appreciated!)
This comment was minimized by the moderator on the site
Thank you!!! It helped me so much!!!
This comment was minimized by the moderator on the site
This one works for me, because otherwise the variables are not declared : Sub ChartLabelReplace() 'Update 20141017 Dim xFindStr As String Dim xReplace As String Dim ws As Worksheet Dim ch As ChartObject xFindStr = InputBox("Find:") xReplace = InputBox("Replace:") For Each ws In Worksheets For Each ch In ws.ChartObjects If ch.Chart.HasTitle Then ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1) End If Next Next End Sub
This comment was minimized by the moderator on the site
How does one change the VBA macro to only apply the change to selected charts (and not all the charts on the worksheet)?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations