Note: The other languages of the website are Google-translated. Back to English

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

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gydag Office 2007-2021 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

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?


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 Office / Excel 2007-2021 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.
tab kte 201905

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!
gwaelod officetab

 

sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r un hwn yn gweithio i mi, oherwydd fel arall nid yw'r newidynnau wedi'u datgan : Sub ChartLabelReplace() 'Diweddariad 20141017 Dim xFindStr Fel Llinyn Dim xReplace Fel Llinyn Dim ws Fel Taflen Waith Dim ch Fel ChartObject xFindStr = InputBox("Find:") xReplace = InputBox( "Replace:") Ar gyfer Pob ws Mewn Taflenni Gwaith Ar Gyfer Pob ch Yn ws.ChartObjects If ch.Chart.HasTitle Yna ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1) Diwedd Os Nesaf Diwedd Nesaf Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae un yn newid y macro VBA i gymhwyso'r newid i siartiau dethol yn unig (ac nid yr holl siartiau ar y daflen waith)?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!!! Fe helpodd fi gymaint !!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae rhai o'm teitlau siart yn cynnwys meintiau ffont lluosog. Pan fyddaf yn rhedeg y macro uchod, mae'n trosi pob un o'r ffontiau i'r un maint ac mae'n rhaid i mi fynd yn ôl drwyddynt a'u hail-feintio â llaw. A oes ffordd i addasu'r cod VBA fel ei fod yn cynnal maint y ffont gwreiddiol? (Rwy'n dal i fod yn newb VBA, felly byddai unrhyw help yn cael ei werthfawrogi!)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am wneud hyn ar gyfer testun yn y labeli chwedl ac echelin hefyd. Beth yw enw VBA ar gyfer y Chwedl? Ceisiais olygu'r modiwl trwy amnewid "ChartTitle" gyda "Legend" "LegendEntry" "ChartLegend" dim byd yn gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond eisiau dweud diolch am hyn. Wedi arbed oriau o amser i mi.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL