Bagaimana menemukan dan mengganti angka dengan subskrip di Excel?
Temukan dan ganti semua nomor dengan subskrip oleh VBA
Temukan dan ganti angka dengan subskrip dalam rumus kimia oleh Kutools for Excel
Temukan dan ganti semua nomor dengan subskrip oleh VBA
Di Excel, kecuali untuk kode makro, tidak ada metode yang dapat membantu Anda menemukan dan mengganti teks dengan format subskrip.
1. tekan Alt + F11 kunci untuk ditampilkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempel kode di bawah ini ke skrip kosong.
VBA: Temukan dan ganti semua angka dengan format subskrip
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. tekan F5 kunci, a Kutools untuk Excel dialog muncul untuk mengingatkan Anda memilih rentang kerja. Lihat tangkapan layar:
4. Setelah memilih, klik OK, dan semua angka yang dipilih telah diubah menjadi subskrip.
Temukan dan ganti angka dengan subskrip dalam rumus kimia oleh Kutools for Excel
Selain kode makro, sebenarnya, Anda dapat menerapkan utilitas mudah bernama Nomor subskrip dalam Rumus Kimia untuk dengan cepat mengubah semua angka normal dalam rumus kimia ke format subskrip jika Anda telah menginstalnya Kutools untuk Excel.
| Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:
Pilih sel yang ingin Anda format angka sebagai subskrip, klik Kutools > Teks > Nomor subskrip dalam Rumus Kimia. Lihat tangkapan layar:
Dan sebuah dialog muncul untuk mengingatkan Anda berapa banyak sel yang telah dikonversi, dan angka dalam rumus kimia yang dipilih telah diformat sebagai format subskrip.
Ubah angka menjadi subskrip dalam rumus kimia
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
