Excel VBA: Obtener la representación de la columna en cadena de caracteres.

Si se ha trabajado lo suficiente con VBA (específicamente con Excel), y se quiere construir una extensión de aplicación robusta; es muy probable que en algún momento se haya tenido la necesidad de convertir la representación numérica de una columna en su representación como cadena de caracteres (osea, de 1 a A, de 104 a DA, etc.) Esto se puede conseguir fácilmente utilizando la siguiente función:
Public Function GetColumnCharacterRepresentation _
  (ByVal column As Integer) As String
  Dim intFirstCharacter
  intFirstCharacter = Int(column / 26)
  Dim intLastCharacter
  intLastCharacter = IIf(intFirstCharacter = 0, _
    CInt(column Mod 26), CInt(column Mod 26) + 1)
  Dim strFirstCharacter As String
  strFirstCharacter = IIf(intFirstCharacter > 0, _
    Chr(intFirstCharacter + 64), "")
  Dim strLastCharacter As String
  strLastCharacter = Chr(intLastCharacter + 64)
  GetColumnCharacterRepresentation = strFirstCharacter _
   & strLastCharacter
End Function

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s