Mengubah Index Angka Menjadi Hurup Kolom Atau Sebaliknya dengan VBA

Column Letter to Index VBA and Vice versa

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.

Be the first to comment

Leave a Reply

Your email address will not be published.


*