/ / Criar um padrão no Excel VBA

Criar um padrão no Excel VBA

Abaixo, vamos olhar para um programa em Excel VBA naquela cria um padrão.

Situação:

Criar um padrão no Excel VBA

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 chamado i e um chamado j.

Dim i As Integer, j As Integer

2. Em segundo lugar, adicionamos dois loops For Next.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. Em seguida, adicionamos a linha que altera a cor de fundo das células para cinza claro.

Cells(i, j).Interior.ColorIndex = 15

Nota: em vez do ColorIndex número 15 (cinza claro), você pode usar qualquer número do ColorIndex.

4. Feche os dois loops For Next.

    Next j
Next i

5. Teste o programa.

Resultado até agora.

Crate um resultado de padrão até agora

Por exemplo, para i = 1 e j = 1, o Excel VBAcores Células (1,1), para i = 1 e j = 3 (Etapa 2), Excel VBA colors Células (1,3), para i = 1 e j = 5, cores Excel VBA Cells (1,5), para i = 3 (Etapa 2) ej = 1, Excel VBA colore Células (3,1) etc.

6. Estamos quase lá. A única coisa que precisamos fazer é colorir as células que são compensadas por 1 linha abaixo e 1 coluna à direita das células já coloridas. Adicione a seguinte linha de código ao loop.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Teste o programa.

Resultado:

Criar um resultado de padrão

Leia também: