Conversi Angka ke Abajat - Excel VBA

Function ColumnLetter(ColumnNumber As Long) As String

Dim n As Long

Dim c As Byte

Dim s As String

n = ColumnNumber

Do

c = ((n - 1) Mod 26)

s = Chr(c + 65) & s

n = (n - c) \ 26

Loop While n > 0

 ColumnLetter = s

End Function

cara menggunakan 

= ColumnLetter (a1)

silahkan mencoba

Function getColIndex(sColRef As String) As Long

  Dim sum As Long, iRefLen As Long

  sum = 0: iRefLen = Len(sColRef)

  For i = iRefLen To 1 Step -1

    sum = sum + Base26(Mid(sColRef, i)) * 26 ^ (iRefLen - i)

  Next

  getColIndex = sum

End Function

Private Function Base26(sLetter As String) As Long

  Base26 = Asc(UCase(sLetter)) - 64 'fixed

End Function

cara menggunakan 

=getColIndex(a1)


Demikian contoh fungsi vba silahkan dikembangkan
 semoga bermanfaat !!!