maurogsc.eu mauro gamberini

home ==> Excel: come fare per ==> Colonna: trasformare il numero in lettera

Colonna: trasformare il numero in lettera - VBA

NOTA. La soluzione ed il codice sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dal codice o dalla soluzione proposta se usati impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare il codice o la soluzione in files importanti.

1 - Come trasformare il numero della colonna in lettera. Con una Sub recuperare la lettera della colonna della cella attiva(ActiveCell) :

Public Sub m()
    Dim s As String
    s = Split(ActiveCell.Address( _
        True, False, xlA1, False), "$")(0)
    MsgBox s
End Sub

2 - Come trasformare il numero della colonna in lettera. Con una Funcion restituire la lettera della colonna della cella attiva(ActiveCell) :

Public Function f(ByVal s As String) As String
    f = Split(s, "$")(1)
End Function

Da richiamare così:

Public Sub m()
    MsgBox f(ActiveCell.Address)
End Sub

3 - Come trasformare il numero della colonna in lettera. Con una Funcion restituire la lettera della colonna di un range generico :

Public Function f(ByVal s As String) As String
    f = Split(s, "$")(1)
End Function

Da richiamare così:

Public Sub m()
    MsgBox f(Cells(3, 5).Address)
End Sub

Per ulteriori informazioni su Microsoft Excel ed il suo Visual Basic, utilizzate questo forum:
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

Ultimo aggiornamento di questa pagina: 18/11/2010 - mauro gamberini