Skip i'r prif gynnwys

Sut i ddod o hyd i destun mewn teitlau siart yn Excel?

Mae siartiau'n ddefnyddiol iawn i ni yn Excel, ac rydyn ni'n aml yn rhoi rhai teitlau iddyn nhw i'w hadnabod. Ond a ydych chi wedi ceisio darganfod a disodli'r gwerth testun mewn teitlau siart o fewn siartiau lluosog? Heddiw, byddaf yn siarad am sut i ddod o hyd i destun penodol mewn teils siart lluosog a rhoi gwerth arall yn Excel yn eu lle.

Darganfyddwch a disodli testun mewn teitlau siart yn Excel gyda chod VBA


swigen dde glas saeth Darganfyddwch a disodli testun mewn teitlau siart yn Excel gyda chod VBA

Gan dybio bod gennych chi daflen waith sy'n cynnwys y siartiau fel y screenshot canlynol, ac rydych chi am ailosod y testun Ionawr erbyn mis Chwefror ym mhob un o'r teitlau siart yn unig. Wrth gwrs, gallwch eu newid â llaw fesul un, ond bydd hyn yn cymryd llawer o amser os oes siartiau lluosog. Felly yma, gall y cod VBA canlynol eich helpu chi i ddelio â'r dasg hon. </ P>

doc-replace-chart-teitlau1

1. Gweithredwch eich taflen waith sy'n cynnwys y siartiau rydych chi am ddod o hyd iddyn nhw a'u disodli yn eu teitlau.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Darganfod a disodli testun mewn teitlau siart o fewn taflen waith weithredol

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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa rhag nodi'ch hen destun yr ydych am ei ddisodli, gweler y screenshot:

doc-replace-chart-teitlau1

5. Ac yna cliciwch OK botwm, ac mae blwch prydlon arall yn ymddangos, mae angen i chi deipio'ch gwerth testun newydd yr ydych chi am ei ddisodli â'r hen un, gweler y screenshot:

doc-replace-chart-teitlau1

6. Ewch ymlaen i glicio OK i gau'r blwch prydlon, ac mae'r newyddion wedi disodli'r hen destunau ar un adeg yn y daflen waith gyfredol fel y dangosir y llun a ganlyn:

doc-replace-chart-teitlau1

Nodyn: Os oes angen i chi ddarganfod a disodli gwerth testun teitlau siart ym mhob un o'r taflenni gwaith mewn llyfr gwaith, dylech gymhwyso'r cod VBA canlynol: (Mae'r weithdrefn yr un peth â'r uchod)

Cod VBA: Darganfod a disodli testun mewn teitlau siart ym mhob taflen waith

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

Erthyglau cysylltiedig:

Sut i ddod o hyd i destun a'i ddisodli o fewn sylwadau yn Excel?

Sut i ddod o hyd i destun penodol a'i ddisodli mewn blychau testun lluosog o Excel?

Sut i newid sawl llwybr hypergyswllt ar unwaith yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

 

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