Saltar al contenido

vba obtener la letra de la columna del ejemplo de código de índice

Ejemplo 1: función excel vba para convertir el número de columna en letra

Function ColName(n)
    ColName = Split(Cells(, n).Address, "$")(1)
End Function

Ejemplo 2: excel vba columna letra a número

Sub Test()
  Debug.Print "result: " & getColIndex("DD")  ' --> result: 108
End Sub

Function getColIndex(sColRef As String) As Long
  Dim i As Long, 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
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *