Foro Excel

Hola a to2:

Tengo la siguiente función para convertir el número de una columna a letra.

Código: Seleccionar todo

Function COLUMNA_A_LETRAS(COLUMNA As Integer) As String
'Funciona unicamente para las primeras 676 columnas
COLUMNA_A_LETRAS = ""
LETRA = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", _
              "J", "K", "L", "M", "N", "O", "P", "Q", "R", _
              "S", "T", "U", "V", "W", "X", "Y", "Z")
Y = COLUMNA: Z = (Y - 1) Mod 26: L = LETRA(Z)
If Y > 26 Then
   Z = (Y - 1) / 26
   If Z > 0 Then L = LETRA(Z - 1) & L
End If
COLUMNA_A_LETRAS = L
End Function


¿Hay alguna función, método o propiedad de Excel que haga lo mismo?

Antoni

Hola Antoni,

muy interesante tu UDF.

El primer número que se me ocurrió para probarla fue 222 y vi que el resultado según tu UDF es IN.

Al confirmar el resultado yendo a la columna 222 encontré que en realidad es HN, como también lo confirma esta fórmula: =SUSTITUIR(DIRECCION(FILA(),222,4),FILA(),"")

¿A qué crees que se deba ese resultado? ¿Estaré usando bien tu UDF? Esto fue lo que usé: =COLUMNA_A_LETRAS(222)

Hola:

Pues si tienes razón, hay un error.
Había probado varios números al azar y me daba un resultado correcto.
Lo investigo.
De hecho, no he usado nunca esta función.

Gracias

Antoni

Hola:

Efectivamente, había un error, ya lo he subsanado.

Código: Seleccionar todo

Function COLUMNA_A_LETRAS(COLUMNA As Integer) As String
'Funciona unicamente para las primeras 676 columnas
COLUMNA_A_LETRAS = ""
LETRA = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", _
              "J", "K", "L", "M", "N", "O", "P", "Q", "R", _
              "S", "T", "U", "V", "W", "X", "Y", "Z")
Y = COLUMNA: z = (Y - 1) Mod 26: L = LETRA(z)
If Y > 26 Then
   z = (Y - 1) / 26
   z = Int(z)        '<============= Añadido
   If z > 0 Then L = LETRA(z - 1) & L
End If
COLUMNA_A_LETRAS = L
End Function

Pido disculpas, y procuraré que no se repita.

Tomo nota de la fórmula.

Agradecido como siempre mjrofra.

Saludos

Antoni

Hola una vez más Antoni, parece que ya funciona a la perfección . Gracias por compartir tu trabajo, que siempre sales con unos códigos sorprendentes.

En todo caso mira que yo me quedé pensando y la fórmula que usé:

=SUSTITUIR(DIRECCION(FILA(),222,4),FILA(),"")

se puede simplificar un poco ya que la fila es irrelevante:

=SUSTITUIR(DIRECCION(1,222,4),1,"")

y pensando que una fórmula tan sencilla se puede llevar a VBA sin mucho problema, se me ocurrió algo así:

Código: Seleccionar todo

Function COLUMNA_A_LETRAS_2(COLUMNA As Integer) As String
   
    Dim Dir As String
     
    Dir = Columns(COLUMNA).Address(0, 0)
    Dir = Left(Dir, InStr(Dir, ":") - 1)
   
    COLUMNA_A_LETRAS_2 = Dir
   
End Function

Bueno, no más acá pensando en tu aporte que me pareció muy bueno y aprovechando para cruzar un par de palabras en esto que evidentemente nos apasiona.

¡¡ Muy bueno !!

¿Porqué no lo subes como aporte? Creo que se lo merece.

Gracias.

Antoni

Hola, pongo link
funciones-formulas-calculos/columna-letra-t11511.html

Una Función perzonalizada:

Function COLUMNALETRA(Celda As Range) As String
Dim Columna As String
Columna = Celda.Address
Columna = Mid(Mid(Columna, 2), 1, InStr(1, Mid(Columna, 2), "$") - 1)
COLUMNALETRA = Columna
End Function

Salu2.xls
(la hice rápido, no tuve mucho tiempo)

Hola, tomá la fórmula de mjrofra y "atajé" errores:

Function COLUMNA_A_LETRAS_2(COLUMNA As Integer) As String
COLUMNA = Abs(COLUMNA) 'por las dudas sea neg
If COLUMNA = 0 Then COLUMNA = 1 ' "Por defecto"
' "Por defecto"
If COLUMNA > Range("A1").End(xlToRight).Column Then COLUMNA = 1
Dim Dir As String
Dir = Columns(COLUMNA).Address(0, 0)
Dir = Left(Dir, InStr(Dir, ":") - 1)
COLUMNA_A_LETRAS_2 = Dir
End Function

Muchas gracias a todos por las respuestas.

Antoni

Esto minimiza + el código de la función:

Function CL(Celda As Range) As String
CL = Left(Mid(Celda.Address, 2), InStr(1, Mid(Celda.Address, 2), "$") - 1)
End Function

Hola Adrian:

¡ Perfecto ! Simple y elegante. Muchas gracias.

Os pido disculpas, tanto a ti como a mjrofra, por no haberme dado cuenta de tu aporte del pasado día 10 en el foro de fórmulas.

Insisto, aprovechando que ya hay una entrada, ¿Porqué no aportais vuestras soluciones?

Salu2 a to2 ..to2

Antoni

Ponia yo el 16/03/2010, algo casi, casi,

aca

post53656.html#p53656