У наставку ћемо погледати програм у Екцел ВБА то означава ред и ступац активне ћелије (изабрана ћелија). Овај програм ће задивити и импресионирати вашег шефа.
Ситуација:
Сваки пут када променимо активну ћелију на листу 1, потребно је извршити макро. То можете постићи стварањем догађаја СелецтионЦханге за радни лист.
1. Отворите Висуал Басиц Едитор.
2. Двапут кликните на Схеет1 (Схеет1) у Пројецт Екплореру.
3. Одаберите Радни лист са леве падајуће листе. Одаберите СелецтионЦханге са десне падајуће листе.
Додајте следеће линије кода у догађај СелецтионЦханге радног листа:
4. Декларишемо четири променљиве типа Интегер. Једна именована ровНумберВалуе, једна именована цолумнНумберВалуе, једна са именом и једна са именом ј.
Дим ровНумберВалуе Ас Интегер, цолумнНумберВалуе Ас Интегер, и Ас Интегер, ј Ас Интегер
5. Прво додајемо линију која мења боју позадине свих ћелија у „Без попуњавања“.
Целлс.Интериор.ЦолорИндек = 0
6. Променљиву ровНумберВалуе иницијализујемо бројем реда активне ћелије и променљивом цолумнНумберВалуе бројем колоне активне ћелије.
ровНумберВалуе = АцтивеЦелл.ров
цолумнНумберВалуе = АцтивеЦелл.цолумн
7. Колону означавамо плавом бојом. То јест: све ћелије са бројем реда мањим или једнаким ровНумберВалуе и бројем колоне једнаким цолумнНумберВалуе
За и = 1 За ровНумберВалуе
Ћелије (и, цолумнНумберВалуе) .Интериор.ЦолорИндек = 37
Затим сам
Објашњење: за овај пример (погледајте горњу слику), ровНумберВалуе је једнак 12, а цолумнНумберВалуе једнак 8. Кодне линије између Фор и Нект ће се извршити дванаест пута. За и = 1, Екцел ВБА боји ћелију на пресеку реда 1 и колоне 8. За и = 2, Екцел ВБА боји ћелију на пресеку реда 2 и колоне 8 итд.
Напомена: уместо ЦолорИндек броја 37 (плаво), можете користити било који ЦолорИндек број.
8. На сличан начин означавамо ред плаво. То јест: све ћелије са бројем реда једнаким ровНумберВалуе и бројем колоне мањим или једнаким цолумнНумберВалуе.
За ј = 1 За ступацНумберВалуе
Ћелије (ровНумберВалуе, ј) .Интериор.ЦолорИндек = 37
Даље ј
9. Сада је време за тестирање програма. Преузмите Екцел датотеку и погледајте како су ред и колона активне ћелије истакнути сваки пут када промените активну ћелију.
