Como referenciar este post:
“Como pintar células, com diferentes cores, utilizando “Do Until” “. Rodrigo Terra. Publicado em: 06/09/2022. Link da postagem: https://www.makerzine.com.br/cozinha-de-dados/como-pintar-celulas-com-diferentes-cores-utilizando-do-until.
Enunciado do exercício:
Desenvolva uma programação, em VBA, que:
- Pintar as células A1, B2, C3, D4, E5, F6, G7, H8, I9, J10.
- As cores devem ser distintas.
Lógica passo a passo:
INÍCIO
- Iniciar uma sub chamada “celula”;
- Definir três variáveis “i”, “j” e “k”, como Integer (Obs.: i = linha, j = coluna e k = nº da cor);
- Definir o valor inicial de “i”, como 1;
- Definir o valor inicial de “j”, como 1;
- Definir o valor inicial de “k”, como 3;
- Iniciar um loop, com “Do Until”, até que “i” seja igual a 11 (de A1, até J10);
- Definir que a próxima célula ocupada depende da coordenada “i , j”;
- Pintar a célula atual com o valor de “k”;
- Fazer o incremento no valor de “i”, em uma unidade;
- Fazer o incremento no valor de “j”, em uma unidade;
- Fazer o incremento no valor de “k”, em uma unidade;
- Fechar com “Loop”;
- Finalizar a sub.
FIM
Resolução em vídeo:
Código com a resolução:
'Rodrigo Terra, Cozinha de dados
'https://www.cozinhadedados.com.br
'Início da sub
Sub celula()
'Declaração das variáveis
Dim i As Integer
Dim j As Integer
Dim k As Integer
'Definição dos valores das variáveis
i = 1
j = 1
k = 3
'Início do Loop
Do Until i = 11
'Posição inicial
Cells(1, 1).Select
'Células que serão pintadas, ref.: i = linha, j = coluna e k = valor da cor
Cells(i, j).Interior.ColorIndex = k
'Incremento em i, j e k
i = i + 1
j = j + 1
k = k + 1
'Fim do Loop
Loop
'Fim da sub
End Sub
