VisualBasic: Traductor de coordenadas de celdas

Hay dos tipos de determinar las celdas:

Cells([nº de fila],[nº de columna])

Range("direccion de la celda")

en el primer caso usa números, v.g.: Cells(1,5)

en el segundo usa letras y números, v.g.: Range("A3")

Hay casos en que es necesario pasar de una notación a otra:

From numbers to address

Private Sub CommandButton1_Click()

Dim fil As Integer

Dim col As Integer

Dim add As String

fil = InputBox("Número de Fila ?")

col = InputBox("Número de Columna ?")

add = Cells(fil, col).Address

ActiveSheet.Cells(1, 1) = "Fila:"

ActiveSheet.Cells(2, 1) = "Columna:"

ActiveSheet.Cells(3, 1) = "Address:"

ActiveSheet.Cells(1, 2) = fil

ActiveSheet.Cells(2, 2) = col

ActiveSheet.Cells(3, 2) = add

End Sub

Para el caso contrario se podrían usar las funciones:

ActiveCell.Row

ActiveCell.Column