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

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>

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:

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:

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:

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?