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
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?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!