Bagaimana cara cepat menemukan dan mengganti karakter dengan superscript di Excel?
Temukan dan ganti dengan superskrip dengan fungsi Find and Replace
Temukan dan ganti dengan superscript oleh VBA
Temukan dan ganti dengan superskrip dengan fungsi Find and Replace
Sebenarnya, Anda bisa menggunakan Find and Replace untuk mencari teks kemudian menggantinya dengan format superscript.
1. Pilih rentang pekerjaan yang ingin Anda cari dan ganti, dan tekan Ctrl + H untuk membuka Cari dan Ganti dialog.
2. Dalam Cari dan Ganti dialog, klik menggantikan tab, lalu masukkan teks yang ingin Anda temukan ke dalam Temukan apa kolom tulisan. Lihat tangkapan layar:
3. Lalu pergi ke Ganti dengan kotak teks, masukkan teks yang ingin Anda ganti, perhatikan, tahan lain tombol lalu tekan 0179 kunci pada Papan angka untuk memasukkan nomor superskrip 3. Lihat tangkapan layar:
4. klik Ganti Semua. Dan sebuah dialog muncul untuk mengingatkan Anda berapa banyak penggantian yang telah dilakukan. Lihat tangkapan layar:
olymp trade indonesiaTip: Namun dengan metode ini, Anda hanya bisa superskrip angka 2 dengan menekan 0178, dan 3 dengan 0179.
Temukan dan ganti dengan superscript oleh VBA
Dengan fungsi Find and Replace, hanya bisa mengganti angka dengan superscript. Jika Anda ingin mengganti huruf dengan superskrip seperti gambar di bawah ini, Anda dapat menerapkan kode VBA untuk menyelesaikannya.
1. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan kode VBA di bawah ini ke skrip.
VBA: Temukan dan ganti dengan format superscript
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. tekan F5 kunci untuk menjalankan kode, dan dialog muncul untuk mengingatkan Anda memilih rentang. Lihat tangkapan layar:
4. klik OK, karakter tertentu dalam string tertentu telah diubah menjadi format superskrip dalam pemilihan. Lihat tangkapan layar:
jenis: dalam kode, "YL3"Adalah string yang ingin Anda temukan, dan (1, 1) menunjukkan untuk mengonversi 1 karakter pertama dari string, jika Anda ingin mengubah dua karakter pertama, Anda dapat mengubahnya sebagai (1, 2), jika Anda ingin mengubah 1 karakter dari karakter kedua dari string, Anda dapat mengubahnya sebagai ( 2, 1).
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!