Екцел - Мацро-Хигхлигхт ако је разлика> или <2

• Питање
• Решење
• Белешка

Питање

Потребна ми је помоћ у писању макроа Рачуноводства екцел на којем радим. Изгледа да све ради како треба, осим једног дијела којем требам помоћ.

Имам два формата идентично форматирана, међутим, неке информације се мењају од радног листа 1 до радног листа 2. Желим да подесим макро да проверим колоне "Ј", "М", "П", "С", "В" и "И" за сваку ћелију. ево примера шта би ми требало:

-Ако (Ворксхеет1! М24-Ворксхеет2! М24) је већи од 20 или мањи од -20, промените позадину ћелије Ворксхеет1! М24 лаванда

-Треба ми формула да се уради као провјера, а не да препишем податке на било којем радном листу

То значи да ако је М24 на радном листу 1 200.00, а радни лист М24 2 275.00, онда ће М24 на радном листу 1 и даље бити приказан као 200.00, али ће сада бити истакнута лаванда.

Било који идеја како ја то могу? Ја градим макрое у ВБА, са којима имам врло мало искуства.

Решење

Ваш избор колона Ј, М, Н итд. Је да је његов цол ј + 3 М и цол М + 3 је П итд

Ваши стварни подаци почињу из реда 2, реда 1 су наслови колона

Не постоји празнина у подацима бар у колони Ј

али сте написали да ако разлика између ћелија два листа еитесхр> 20 или мање од 20 треба да буде обојена. То значи да само ако је 20, није обојена. ОВО ЈЕ ЛОГИКА ОК. проверите поново

На овим претпоставкама макро је дат у наставку. тестирајте га и поставите назад коментаре.

Ако постоји грешка или грешка, грешка мора бити јасно објашњена. Ако макро заустави линију где се зауставља и порука о грешци.

други макро поништава уклањање боје ;. Користио сам боју као р 3 за црвено. Ако инсистирате на лаванди, морате да сазнате број боје, јер могу погрешно схватити шта мислите под лавандом. у празној ћелији

обојите ћелију у лаванди. претпоставимо да је ћелија Е13, а затим идите на вб едитор непосредни прозор и откуцајте:

? ранге ("е13")

и држите курсор на крају ове линије и притисните тастер Ентер и добићете број боје. користите то у макроу.

Два макроа су:

 Суб тест () Дим цол1 Ас Интегер, цол2 Ас Интегер, цол Као Интегер, рров Ас Интегер Дим ластров Ас Интегер цол1 = Распон ("Ј1"). Колона цол2 = Распон ("И1"). Колона ластров = Радни листови ("схеет1") Крај ("Ј2"). Крај (клДовн) .Ров 'МсгБок ластров Радни листови ("схеет1"). Целлс.Интериор.ЦолорИндек = клНоне За цол = цол1 За цол2 Корак 3 За рров = 2 За задавање' МсгБок ћелија (1, цол) .Адреса 'МсгБок рров Иф Ворксхеетс ("схеет1"). Целлс (рров, цол) - Радни листови ("схеет2"). Целлс (рров, цол)> 20 или _ Ворксхеетс ("схеет2"). (рров, цол) - Радни листови ("схеет2") Ћелије (рров, цол) <20 Тада радни листови ("схеет1") .Целлс (рров, цол) .Интериор.ЦолорИндек = 3 Енд Иф Нект Нект Енд Суб 

 Суб ундо () Радни листови ("схеет1"). Целлс.Интериор.ЦолорИндек = клНоне Енд Суб 

Белешка

Хвала венкат1926 за овај тип на форуму.