Hoe vind je en vervang je cijfers met subscript in Excel?

Zoek en vervang alle cijfers met subscript via VBA
Zoek en vervang cijfers met subscript in chemische formules met Kutools voor Excel

Zoek en vervang alle cijfers met subscript via VBA
In Excel, behalve met macrocode, is er geen methode die je kan helpen tekst te zoeken en te vervangen met subscriptopmaak.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, en plak de onderstaande code in het lege script.
VBA: Zoek en vervang alle cijfers met subscriptopmaak
Sub SubscriptNumbers()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
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
Application.ScreenUpdating = False
For Each xCell In xRg
xTxt = xCell.Value
For I = 1 To Len(xTxt)
xChar = Mid(xTxt, I, 1)
If xChar >= "0" And xChar <= "9" Then
xCell.Characters(I, 1).Font.Subscript = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Druk op F5 toets, een Kutools voor Excel dialoogvenster verschijnt om je eraan te herinneren een werkgebied te selecteren. Zie screenshot:
4. Nadat je hebt geselecteerd, klik op OK, en alle cijfers in de selectie zijn geconverteerd naar subscript.
Zoek en vervang cijfers met subscript in chemische formules met Kutools voor Excel
Naast macrocode kun je eigenlijk ook een eenvoudig hulpprogramma gebruiken genaamd Subscript getallen in chemische formules om snel alle normale cijfers in chemische formules naar subscriptopmaak te converteren als je Kutools voor Excel hebt geïnstalleerd.
Na gratis installatie van Kutools voor Excel, doe het volgende:
Selecteer de cellen waarin je de cijfers als subscript wilt formatteren, klik op Kutools > Tekst > Subscript getallen in chemische formules. Zie screenshot:
En een dialoogvenster verschijnt om je te laten weten hoeveel cellen zijn geconverteerd, en de cijfers in de geselecteerde chemische formules zijn nu opgemaakt in subscriptopmaak.
Converteer cijfers naar subscript in chemische formules
Beste Office-productiviteitstools
Versterk je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!