Cara Merubah Angka Menjadi Huruf - Seperti yang kita ketahui bahwa dalam aplikasi Microsoft Excel, terdapat 2 unsur penting dalam mode pembacaan sebuah alamat sel yakni; kolom dan baris, dimana kolom yang diwakili dengan huruf atau abjad, sedangkan baris diwakili dengan angka. Hal ini tentu sangat membantu dan memudahkan kita dalam mengidentifikasinya.

Disaat kita menggunakan Macro VBA, kita dapat menulis alamat sebuah sel tanpa harus menggunakan huruf atau abjad seperti "A1", "B5", dan seterusnya, namun dengan menggunakan notasi indeks kolom dan baris seperti contoh Cells(1,7) yang artinya adalah sel A7. Nah, Kapan kita menggunakan notasi indeks kolom dan baris, dan kapan kita menggunakan alamat sel yang dituju, adalah tergantung dari pengguna itu sendiri.

Baca artikel terkait lainnya

Cara mudah membuat Tab Stop sperti di Microsoft Word
Menulis formula VLOOKUP menggunakan skrip Macro VBA
Ayo berkenalan dengan formula N dan T

Namun ketika anda tidak cukup nyaman menggunakan indeks kolom dan baris ini, dan lebih nyaman menggunakan dan menuliskan kode VBA dengan notasi alamat sel atau range seperti C3:D10. Dan, jika yang anda miliki adalah nilai berupa angka yang mewakili indeks kolom, maka solusinya adalah tentu harus meng-konversi angka tersebut menjadi sebuah abjad atau huruf.


Fungsi Khusus
Untuk mengganti Angka menjadi Huruf Untuk dijadikan sebagai referensi Kolom dalam Excel adalah dengan membuat sebuah fungsi khusus, dan berikut langkah membuatnya

1. Tekan tombol pintas Alt + F11
   
2. Buat sebuah Module baru, dan masukkan baris kode berikut ke dalamnya
   

   Public Function Kolom(Angka As Long) As String
       Kolom = Split(Cells(1, Angka).Address(True, False), "$")(0)
   End Function

3. Tutup atau minimize jendela Mirosoft Visual Basic Editor, kemudian di lembar kerja Microsoft Excel tuliskan nama fungsi yang sudah kita buat di atas disertai dengan angka yang ingin dikonversi

Cara menggunakan Fungsi khusus dalam Macro VBA Excel
Berikut ini cara sederhana mengaplikasikan fungsi kustom atau fungsi khusus di atas ke dalam skrip kode Macro VBA

1. Aktifkan jendela tab menu Developer Microsoft Excel anda, kemudian buat sebuah CommandButton dan letakkan ke dalam lembar kerja
   
   
2. Klik ganda tombol yang baru dibuat, kemudian silahkan copy paste kode berikut
   

   kol = Kolom(Range("B4"))
   a = WorksheetFunction.Sum(Range("A1:" & kol & "1"))
   MsgBox "Total penjumlahan range A1:" & kol & "1" & vbCr & a

   Kode di atas adalah contoh penggunaan Formula SUM versi Macro VBA yang mana alamat range atau kolom terakhir sesuai dengan nilai yang ada di sel B4
   
   

Sekarang anda sudah berhasil membuat Fungsi khusus untuk merubah angk menjadi huruf untuk dijadikan sebagai referensi kolom.
Kunjungi kami lain waktu dan jangan lupa kunjungi Channel Youtube kami untuk mengetahui kehebatan Microsoft Excel lainnya, Thanks for visiting

Masih mau belajar lagi !

Yuk, klik tautan berikut ini :