Hoe maakt u getallen met subscript in Excel?
Zoeken en Vervangen alle getallen met subscript via VBA
Zoeken en Vervangen getallen met subscript in chemische formules met behulp van Kutools voor Excel
Zoeken en Vervangen alle getallen met subscript via VBA
In Excel is er, afgezien van macrocode, geen methode beschikbaar om tekst automatisch van subscriptopmaak te voorzien.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications weer te geven.
2. Klik op Invoegen > Module en plak de onderstaande code in het lege script.
VBA: Zoeken en Vervangen alle getallen 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. Vervolgens verschijnt er een Kutools voor Excel-dialoogvenster waarin u wordt gevraagd een werkgebied te selecteren. Zie de schermafbeelding:
4. Nadat u het gebied hebt geselecteerd, klikt u op OK en worden alle getallen in de selectie geconverteerd naar subscript.
Zoeken en Vervangen getallen met subscript in chemische formules met behulp van Kutools voor Excel
Naast macrocode kunt u ook gebruikmaken van een handige tool genaamd Subscript getallen in chemische formules, waarmee u in één keer alle normale getallen in chemische formules naar subscriptopmaak kunt omzetten—mits u Kutools voor Excel hebt geïnstalleerd.
Na gratis installerenvan Kutools voor Excel, gaat u als volgt te werk:
Selecteer de cellen waarvan u de getallen als subscript wilt opmaken, klik op Kutools > Tekst > Subscript getallen in chemische formules. Zie de schermafbeelding:
Er verschijnt een dialoogvenster met de melding hoeveel cellen zijn geconverteerd; de getallen in de geselecteerde chemische formules zijn nu als subscript opgemaakt.
Converteer getal naar subscript in chemische formule
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins