1
resposta

exercício aula 6.4

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo A tabela de cores e mais pratica com laços e atividade Mais pratica com o laço Do..Until

por Estudante
| 135.9k xp | 15 posts
Sub tabua_5()

    Dim numero As Byte
    numero = 1
    Range("a1").Select
    Do Until numero > 10
        ActiveCell = 5 & "X" & numero & "="
        ActiveCell.Offset(0, 1) = 5 * numero
        numero = numero + 1
        ActiveCell.Offset(1, 0).Select
    Loop


End Sub
1 resposta
por Rafael Fernandes
| 155.5k xp | 1 posts

Que massa. Pode melhora um pouco mais para todas as tabuadas.