Sut i ddod o hyd i uwchsysgrif yn Excel a'i ddisodli cymeriad yn gyflym?
Dod o hyd i a disodli uwchysgrif gan swyddogaeth Dod o Hyd ac Amnewid
Dewch o hyd i VBA a'i ddisodli ag uwchysgrif
Dod o hyd i a disodli uwchysgrif gan swyddogaeth Dod o Hyd ac Amnewid
Mewn gwirionedd, gallwch ddefnyddio Find and Replace i ddod o hyd i'r testun ac yna ei ddisodli â fformat uwchysgrif.
1. Dewiswch yr ystod rydych chi am ddod o hyd iddi a disodli gwaith ar ei gyfer, a gwasgwch Ctrl + H i agor y Dod o hyd ac yn ei le deialog.
2. Yn y Dod o hyd ac yn ei le deialog, cliciwch Disodli tab, ac yna nodwch y testun rydych chi am ddod o hyd iddo yn y Dewch o hyd i beth blwch testun. Gweler y screenshot:
3. Yna ewch i Amnewid gyda blwch testun, nodwch y testun rydych chi am ei ddisodli, cymerwch sylw, daliwch Alt allwedd ac yna pwyswch 0179 allweddi ar y Bwrdd rhif i nodi'r rhif uwchysgrif 3. Gweler y screenshot:
4. Cliciwch Amnewid All. Ac mae deialog yn galw allan i'ch atgoffa faint o rai newydd sydd wedi'u gwneud. Gweler y screenshot:
Tip: Ond gyda'r dull hwn, dim ond trwy wasgu 2, a 0178 erbyn 3 y gallwch chi uwchysgrifio rhif 0179.
Dewch o hyd i VBA a'i ddisodli ag uwchysgrif
Gyda swyddogaeth Dod o Hyd ac Amnewid, dim ond uwchsysgrif sy'n gallu disodli'r rhif. Os ydych chi eisiau disodli llythyren ag uwchysgrif fel islaw'r screenshot a ddangosir, gallwch gymhwyso cod VBA i'w ddatrys.
1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a'i gludo o dan god VBA i'r sgript.
VBA: Dod o hyd i fformat uwchysgrif a'i ddisodli
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. Gwasgwch F5 allwedd i redeg y cod, ac mae deialog yn galw allan i'ch atgoffa i ddewis ystod. Gweler y screenshot:
4. Cliciwch OK, mae'r cymeriad penodol mewn llinyn penodol wedi'i drosi i fod yn fformat uwchysgrif yn y dewis. Gweler y screenshot:
Tip: yn y cod, “YL3”Yw'r llinyn rydych chi am ddod o hyd iddo, a (1, 1) yn dynodi i drosi 1 cymeriad cyntaf y llinyn, os ydych chi am drosi dau gymeriad cyntaf, gallwch ei newid fel (1, 2), os ydych chi am drosi 1 cymeriad o ail gymeriad y llinyn, gallwch ei newid fel ( 2, 1).
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!