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

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

Rhyfeddol! Defnyddio Tabiau Effeithlon yn Excel Fel Chrome, Firefox a Safari!

Arbedwch 50% o'ch amser, a lleihau miloedd o gliciau llygoden i chi bob dydd!

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>

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:

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:

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:

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?

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

• Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
• Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
• Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
• Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
• Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
• Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
• Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
• Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
• Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ... 

---

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!

Read More ... Lawrlwythiad Am Ddim... Prynu ...