Entrar Ainda não tem acesso?
1
resposta

exercício aula 6.7

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 For..Next

por Estudante
| 135.9k xp | 15 posts
Sub Tabuadas_for()
    Dim num, num2, coluna As Byte
    coluna = 1
    For num = 1 To 10

        For num2 = 1 To 10

            Cells(num2, coluna) = num & "x" & num2 & "=" & num * num2
            ' Cells(num2, coluna + 1) = num * num2

        Next
        coluna = coluna + 2
    Next
End Sub
1 resposta
por David Neves
| 331.2k xp | 364 posts
Instrutor Instrutor

Olá Barbara, tudo bem?

O seu código está ótimo porém foi além do que foi pedido.

Segue o código que calcula somente a tabuada do 5.

Sub Tabuadas_for()
    Dim num, num2, coluna As Byte
    coluna = 1
    num = 5
        For num2 = 1 To 10

            Cells(num2, coluna) = num & "x" & num2 & "=" & num * num2
            ' Cells(num2, coluna + 1) = num * num2

        Next
End Sub

Bons estudos e sucesso!