/ / Креирајте образац у Екцел ВБА

Креирајте образац у Екцел ВБА

У наставку ћемо погледати програм Екцел ВБА то ствара образац.

Ситуација:

Креирајте образац у Екцел ВБА

Поставите командно дугме на свој радни лист и додајте следеће линије кода:

1. Прво, објављујемо две варијабле типа Интегер. Један и ја и један по имену ј.

Dim i As Integer, j As Integer

2. Друго, додамо два Фор Нект петље.

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

3. Затим додамо линију која мења боју позадине ћелија светло сивој.

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

Напомена: уместо ЦолорИндек броја 15 (светло сива), можете користити било који ЦолорИндек број.

4. Затворите два за следећа петља.

    Next j
Next i

5. Тестирајте програм.

Досадашњи резултат.

Цртеж резултат узорка до сада

На пример, за и = 1 и ј = 1, Екцел ВБАбоје Ћелије (1,1), за и = 1 и ј = 3 (корак 2), Екцел ВБА боје ћелије (1,3), за и = 1 и ј = 5, Екцел ВБА боје Ћелије (1,5) за и = 3 (корак 2) и ј = 1, Екцел ВБА боје ћелије (3,1) итд.

6. Скоро смо тамо. Једина ствар коју требамо урадити јесте боје ћелија које су надокнађене са 1 редом испод и 1 колона десно од ћелија које су већ обојене. Додајте сљедећу линију кода у петљу.

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

7. Тестирајте програм.

Резултат:

Креирајте резултат узорка

Такође прочитајте: