Sub ContarNumero()
'Debug.Print Ctrl + G ===> Mostra Janela imediata Faz contagem de 1 até o valor digitado
Dim num As Integer
Dim i As Integer
num = CInt(InputBox("Digite um Numero"))
For i = 1 To num
Debug.Print i
Next
End Sub
'Debug.Print Ctrl + G ===> Mostra Janela imediata Faz contagem de 1 até o valor digitado
Dim num As Integer
Dim i As Integer
num = CInt(InputBox("Digite um Numero"))
For i = 1 To num
Debug.Print i
Next
End Sub
Nenhum comentário:
Postar um comentário