Sut i ddod o hyd i destun penodol a'i ddisodli mewn blychau testun?
Mae Canfod ac Amnewid yn offeryn defnyddiol i ni ddod o hyd i gynnwys neu fformiwlâu celloedd yn gyflym ac yn gyfleus mewn taflen waith. Ond nawr, mae gen i flychau testun lluosog yn fy nhaflen waith, ac rydw i eisiau dod o hyd i'r testun penodol a rhoi gwerth arall yn ei le yn y blychau testun hyn yn unig. A oes gennych unrhyw ffyrdd da o ddelio â'r broblem hon?
Dewch o hyd i destun penodol a'i ddisodli mewn sawl blwch testun
Dewch o hyd i destun penodol a'i ddisodli mewn sawl blwch testun
Gallwch ddod o hyd i'r testun sydd ei angen arnoch â llaw fesul un, a'i ddisodli, ond os oes sawl blwch testun, bydd hyn yn ddiflas ac yn flinedig. Felly gall y cod VBA canlynol eich helpu i'w orffen ar unwaith.
1. Activate eich taflen waith, a dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Darganfod a disodli testun penodol mewn blychau testun o'r daflen waith gyfredol
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. 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:
4. Ewch ymlaen i glicio OK, ac yn y blwch prydlon hwn, teipiwch y gwerth testun newydd yr ydych ei eisiau, gweler y screenshot:
5. Ac yna cliciwch OK botwm, mae'r hen werthoedd wedi cael eu disodli gan y gwerthoedd newydd y gwnaethoch chi eu nodi yn y daflen waith gyfredol. Gweler sgrinluniau:
Erthyglau cysylltiedig:
Sut i ddod o hyd i destun mewn teitlau siart yn Excel?
Sut i ddod o hyd i destun a'i ddisodli o fewn sylwadau yn 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!