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é.
1

1 Respuesta

165.800 pts. Más de 35 años en la informática y más de 20 trabajando...
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
No me has comentado si te sirvió el código.
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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas