Convertir numero a letra de columna
Estoy trabajando de VB 6.0 exportando información en una planilla Excel, necesito alguna función (en algún momento use una pero no la puedo encontrar) para que a partir de un numero saber que letra de columna se corresponde.
Si me pueden ayudar se los agradeceré.
Si me pueden ayudar se los agradeceré.
1 Respuesta
Respuesta de santiagomf
1
Function letraColumna(ByVal nCol As Integer) As String
Dim n1 As Integer
Dim n2 As Integer
Dim aux As String
If nCol > 26 Then
n2 = nCol
n1 = 0
Do While n2 > 26
n1 = n1 + 1
n2 = n2 - 26
Loop
aux = Chr$(n1 + 64) & Chr$(n2 + 64)
Else
aux = Chr$(nCol + 64)
End If
letraColumna = aux
End Function
Dim n1 As Integer
Dim n2 As Integer
Dim aux As String
If nCol > 26 Then
n2 = nCol
n1 = 0
Do While n2 > 26
n1 = n1 + 1
n2 = n2 - 26
Loop
aux = Chr$(n1 + 64) & Chr$(n2 + 64)
Else
aux = Chr$(nCol + 64)
End If
letraColumna = aux
End Function
No me has comentado si te sirvió el código.
Si ya tienes resuelto el problema, cierra la pregunta para que no siga activa.
Si ya tienes resuelto el problema, cierra la pregunta para que no siga activa.
Sigo pendiente de saber si te funcionó lo que te indiqué.
Si no quieres consultar más, cierra la pregunta. En caso contrario tendré que descartarla yo.
Si no quieres consultar más, cierra la pregunta. En caso contrario tendré que descartarla yo.
Comentario borrado por el autor - Sergio Gustavo Seifert