[VBA EXCEL] CONVERTER VALOR NUMÉRICO EM NOME DE COLUNA EQUIVALENTE

Utilizaremos a rotina a seguir para converter valores numéricos de coluna em seus caracteres alfabéticos equivalentes, possibilitando, por exemplo, que o usuário possa indicar em qual coluna uma determinada informação está, com isso, pode-se alterar a ordem das colunas sem interferir no funcionamento do código.

Function ConverteNumeroParaLetra(iCol As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer
   iAlpha = Int(iCol / 27)
   iRemainder = iCol - (iAlpha * 26)
   If iAlpha > 0 Then
      ConverteNumeroParaLetra= Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      ConverteNumeroParaLetra = ConverteNumeroParaLetra & Chr(iRemainder + 64)
   End If
End Function

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!