Essa macro do Aplicativo Microsoft Excel VBA, retornam as letras do alfabeto na coluna(A), e insere na coluna (B) os números correspondentes a as letras, auxiliados pela propriedade offset (desloc)
Sub Letras_numeros()
Dim vLetras(25) As String
Set x = Range("A1")
Range("A:B").ClearContents
x.Select
For n = 0 To 25 vLetras(n) = Chr(n + 65)
MsgBox "Letra [ " & vLetras(n) & "] Numero [" & n + 1 & "]" ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(1, 0).Value = vLetras(n) ActiveCell.Offset(1, 1).Value = n + 1
Next n
x.Select x.Offset(1, 0).Value = "LETRAS" x.Offset(1, 1).Value = "NUMEROS"
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel
|