Saltar al contenido

vba convierte el número de columna en un ejemplo de código de letra

Puede que se de el caso de que halles algún problema con tu código o proyecto, recuerda probar siempre en un ambiente de testing antes subir el código al trabajo final.

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

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

Ejemplo 2: letra de columna excel vba a número

Sub Test()
  Debug.Print "result: "& getColIndex("DD")' --> result: 108EndSubFunction getColIndex(sColRef AsString)AsLongDim i AsLong, sum AsLong, iRefLen AsLong
  sum =0: iRefLen = Len(sColRef)For i = iRefLen To1Step-1
    sum = sum + Base26(Mid(sColRef, i))*26^(iRefLen - i)Next
  getColIndex = sum
EndFunctionPrivateFunction Base26(sLetter AsString)AsLong
  Base26 = Asc(UCase(sLetter))-64'fixedEndFunction

Si posees alguna cuestión y disposición de arreglar nuestro ensayo eres capaz de dejar una crítica y con placer lo interpretaremos.

¡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 *