
Adakalanya dalam pembuatan script di VBA kita membutuhkan Hurup kolom sedangkan yang kita miliki adalah Index angka. Atau sebaliknya kita membutuhkan Index Angka dari kolom Hurup yang kita miliki. Untuk mengubah dari Index Hurup ke Index Angka dalam kolom tentu saja bisa diselsaikan dengan VBA. Baik digunakan dalam VBA atau dijadikan sebuah UDF.
Pada tutorial kali ini, Excelnoob akan menuliskan script untuk mengubah Index angka seperti 1, 2, 3 dan seterusnya Menjadi Column letter atau hurup yang digunakan dalam penamaan Kolom seperti A,B,C sampai dengan XFD. Pada contoh kali ini, saya buat di dalam UDF. Untuk penggunaannya bisa juga dikembangkan untuk digunakan didalam VBA.
Mengubah Index Angka Menjadi Column letter
Untuk bagian pertama, yang akan kita ubah adalah dari Index angka menjadi hurup kolom atau Column letter. Misalkan yang kita miliki adalah sebuah Index angka dan yang kita cari atau kita inginkan adalah Index hurup dari Column Excel. Sebagai contoh untuk hasil Script bisa dilihat di gambar dibawah ini.

Script untuk membuat UDF diatas adalah sebegai berikut
Function IndexCol(x As Long) As String Dim Arr As Variant Arr = Split(Cells(1, x).Address(True, False), "$") IndexCol = Arr(0) End Function
Penggunaan UDF diatas sama seperti Rumus biasa yaitu diawali sama dengan contohnya =IndexCol(A2)
Mengubah Column Letter Menjadi Index
Untuk script kedua ini, ini adalah kebalikan dari UDF diatas, yaitu mengubah Hurup Kolom menjadi Index Angka. Jadi yang di ketahui adalah abjadnya dan dengan UDF kita akan cari Index nya. Hasil UDF kurang lebih seperti gambar dibawah ini.

Script yang digunakan dalam UDF diatas adalah sebagai berikut.
Function ColIndex(x As String) As Long ColIndex = Cells(1, x).Column End Function
Untuk penggunaan rumus UDF diatas sama, yaitu dengan menuliskan =ColIndex(A2)
di Formula Bar
Script diatas digunakan untuk keperluan didalam VBA jika menemukan sebuah kondisi mengubah Index ke Hurup atau sebaliknya. Untuk penggunaan di dalam Worksheet, bisa juga langsung menggunakan Formula tanpa bantuan VBA walaupun rumus yang dihasilkan tidak sesederhana menggunakan VBA. rumus yang digunakan adalah
Formula Untuk mengubah Index Ke Hurup
=COLUMN(INDIRECT(A2&1))
Formula Untuk mengubah Hurup Ke Index
=SUBSTITUTE(ADDRESS(1,C2,4),"1","")
Untuk contoh pengunaan dan juga hasil dari rumus diatas, bisa dilihat pada gambar dibawah ini.

Demikian turorial untuk mengubah Index angka menjadi Index kolom dalam Excel dengan menggunakan VBA dan juga Formula.
Leave a Reply