No Funciona la Funcion
Publicado por Javier (28 intervenciones) el 05/04/2018 18:48:37
Buenas tardes a todos
Me encontre esta funcion que convierte un numero a columna de excel
si le pongo 2 me debuelve B
aqui esta :
La obtuve de aqui :
https://support.microsoft.com/es-es/help/833402/how-to-convert-excel-column-numbers-into-alphabetical-characters
soporte de microsoft
si la llamo :
funciona bien
pero si la llamo :
me marca lo siguiente :
Alguna idea porque ?
Porque no le encuentro, gracias por la ayuda que me puedan dar
Saludos
JAG
Me encontre esta funcion que convierte un numero a columna de excel
si le pongo 2 me debuelve B
aqui esta :
1
2
3
4
5
6
7
8
9
10
11
12
Function ConvertToLetter(iCol As Integer) As String
Dim iAlpha As Integer
Dim iRemainder As Integer
iAlpha = Int(iCol / 27)
iRemainder = iCol - (iAlpha * 26)
If iAlpha > 0 ThenConvertToLetter = Chr(iAlpha + 64)
End If
If iRemainder > 0 ThenConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
End If
End Function
La obtuve de aqui :
https://support.microsoft.com/es-es/help/833402/how-to-convert-excel-column-numbers-into-alphabetical-characters
soporte de microsoft
si la llamo :
1
NombreCol = ConvertToLetter(2)
funciona bien
pero si la llamo :
1
2
columnaennumero = 2NombreCol = ConvertToLetter(columnaennumero)
me marca lo siguiente :
Alguna idea porque ?
Porque no le encuentro, gracias por la ayuda que me puedan dar
Saludos
JAG
Valora esta pregunta
0
