Loncat ke daftar isi utama

Bagaimana cara menomori sel dengan huruf alfabet di Excel?

Di Excel, kita dapat menomori sel dengan deretan angka seperti 1, 2, 3… dengan menggunakan pegangan isi otomatis, tetapi bagaimana Anda dapat menomori sel dengan huruf abjad A, B, C…? Dalam tutorial ini, saya memperkenalkan beberapa cara untuk menangani pekerjaan ini di Excel.

Penomoran sel dengan huruf alfabet dengan rumus

Penomoran sel dengan huruf alfabet dengan kode VBA

Penomoran sel dengan Kutools for Excelide bagus3


Sisipkan beberapa poin atau penomoran dalam satu barisge

Di Excel, Anda perlu memasukkan peluru atau penomoran satu per satu, tetapi dengan alat praktis ini, Kutools untuk Excel's Sisipkan Bullet dan Masukkan Nmbering utilitas, Anda dapat dengan cepat memasukkan peluru atau penomoran
ke sel yang dipilih sekaligus ..  Klik untuk uji coba gratis 60 hari!
doc memasukkan penomoran peluru
 
Kutools for Excel: dengan lebih dari 200 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari.

Penomoran sel dengan huruf alfabet dengan rumus

1. Ketikkan semua huruf yang ingin Anda gunakan untuk menomori sel dalam daftar di sebelah sel yang ingin Anda penomoran.
penomoran doc dengan huruf 1

Jika Anda memiliki Kutools untuk Excel, yang Isi Daftar Kustom utilitas mendukung Anda untuk membuat daftar dari suatu rentang, kemudian Anda dapat memasukkan daftar baru di mana saja sesuai kebutuhan tanpa mengetik ulang satu per satu.  Klik untuk uji coba gratis 60 hari!
penomoran doc dengan huruf 2

2. Pilih sel yang berdekatan dengan huruf dan isi sel yang ingin Anda beri nomor, ketikkan rumus ini = A1 & "." & B1, seret gagang isian ke bawah untuk mengisi rumus ke semua sel yang Anda butuhkan.
penomoran doc dengan huruf 3


Penomoran sel dengan huruf alfabet dengan kode VBA

Jika Anda terbiasa dengan kode makro, Anda bisa melakukan seperti ini:

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela. Klik Menyisipkan > Modul.

2. Salin dan tempel kode di bawah ini ke Modul Script.

VBA: penomoran dengan A

Sub Prefix_A()
'UpdatebyExtendoffice20180828
Dim xRg As Range
Dim xStrPrefix As String
xStrPrefix = "A."
On Error Resume Next
Application.ScreenUpdating = False
For Each xRg In Selection
    If xRg.Value <> "" Then
        xRg.Value = xStrPrefix & xRg.Value
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Kemudian ulangi paste kode tersebut dan ubah A ke B atau C atau D sesuai kebutuhan.
penomoran doc dengan huruf 4

4. Simpan kode dan tutup Microsoft Visual Basic untuk Aplikasi jendela.

5. Pilih sel yang ingin Anda beri nomor dengan A, dan klik Pengembang > Macro.
penomoran doc dengan huruf 5

6. di Makro dialog, pilih kode Awalan_A dan klik Run.
penomoran doc dengan huruf 6

7. Seleksi telah diberi nomor A.
penomoran doc dengan huruf 7

8. Ulangi langkah 5 dan 6 untuk menomori sel dengan huruf tertentu sesuai kebutuhan.


Penomoran sel dengan Kutools for Excel

Jika Anda memiliki Kutools for Excel, Anda dapat dengan cepat menomori sel.

Kutools untuk Excel, dengan lebih dari 200 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

Pilih sel yang ingin Anda beri nomor, lalu klik Kutools > Menyisipkan > Sisipkan Penomoran, pilih satu jenis yang Anda butuhkan.
penomoran doc dengan huruf 8

Kemudian sel telah ditambahkan penomoran.
penomoran doc dengan huruf 9

Menjelajah dengan tab & mengedit beberapa buku kerja Excel / dokumen Word sebagai Firefox, Chrome, Internet Explore 10!

Anda mungkin tidak asing lagi untuk melihat beberapa halaman web di Firefox / Chrome / IE, dan beralih di antaranya dengan mengklik tab yang sesuai dengan mudah. Di sini, Office Tab mendukung pemrosesan serupa, yang memungkinkan Anda menelusuri beberapa buku kerja Excel atau dokumen Word dalam satu jendela Excel atau jendela Word, dan dengan mudah beralih di antara keduanya dengan mengklik tabnya. Klik gratis 30-hari uji coba Office Tab!

atau unggul

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub Alphabetic_Numbering()
Dim InputRng As Range, Start As Integer, Cell As Range, Start1 As Integer, Rowsx As Integer, Double_Start As Integer
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range", xTitleId, InputRng.Address, Type:=8)

Start = 65
Rowsx = InputRng.Rows.Count


For i = 1 To Rowsx
If i < 27 Then
InputRng.Cells(i, 1).Value = Chr(Start) & ". " & InputRng.Cells(i, 1).Value
Start = Start + 1
End If

roundupUnitcount = Application.WorksheetFunction.RoundUp(i / 26, 0) - 1
If Start > 90 Then
Start = Start - 26
End If
Double_Start = 64 + roundupUnitcount
If i > 26 Then
InputRng.Cells(i, 1).Value = Chr(Double_Start) & Chr(Start) & ". " & InputRng.Cells(i, 1).Value
InputRng.Cells(i, 2).Value = Start
Start = Start + 1
End If
Next i
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations