Abaixo, veremos um programa em Excel VBA que cria um padrão.
Situação:
Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
1. Primeiro, declaramos duas variáveis do tipo Integer. Um denominado i e outro denominado j.
Dim i As Integer, j As Integer
2. Em segundo lugar, adicionamos dois loops For Next.
Para i = 1 a 5 Etapa 2
Para j = 1 a 5 Etapa 2
3. Em seguida, adicionamos a linha que altera a cor de fundo das células para cinza claro.
Células (i, j) .Interior.ColorIndex = 15
Observação: em vez do número ColorIndex 15 (cinza claro), você pode usar qualquer número ColorIndex.
4. Feche os dois loops For Next.
Próximo j
Proximo eu
5. Teste o programa.
Resultado até agora.
Por exemplo, para i = 1 e j = 1, Excel VBA colore Células (1,1), para i = 1 e j = 3 (Etapa 2), Excel VBA colore Células (1,3), para i = 1 e j = 5, Células de cores VBA do Excel (1,5), para i = 3 (Etapa 2) ej = 1, Células de cores VBA do Excel (3,1), etc.
6. Estamos quase lá. A única coisa que precisamos fazer é colorir as células que são deslocadas por 1 linha abaixo e 1 coluna à direita das células já coloridas. Adicione a seguinte linha de código ao loop.
Células (i, j) .Offset (1, 1) .Interior.ColorIndex = 15
7. Teste o programa.
Resultado: