Коришћење ВБА за креирање мапе радног листа

Да ли сте икада покушали да схватите непознату (и компликовану) Екцел радну свеску? Било би корисно видети мапу која пружа преглед које ћелије садрже константе, а које вредности.

Можете креирати ВБА услужни програм који генерише мапу активног радног листа. Мапа се генерише на новом радном листу и састоји се од ћелија означених бојама које вам омогућавају да брзо идентификујете вредности, текст и формуле.

У наставку видите пример такве мапе. Ћелије које садрже текст су зелене, оне које садрже нумеричку вредност су жуте, а ћелије које садрже формуле су црвене. Таква мапа вам може помоћи да уочите потенцијалне грешке. На пример, ако је једна формула у блоку формула замењена вредношћу, та ћелија ће се истицати у приказу мапе (као у ћелији К11 у примеру).

Коришћење ВБА за креирање мапе радног листа

КуицкМап ВБА код

ВБА процедура која генерише мапу радног листа је наведена у наставку. Ако желите да користите овај услужни програм, само копирајте код и налепите га у ВБА модул. Затим активирајте радни лист и извршите КуицкМап потпрограм.

Суб КуицкМап()
  Дим ФормулаЦеллс као варијанта
  Дим ТектЦеллс као варијанта
  Дим НумберЦеллс као варијанта
  Дим Ареа Ас Ранге
  Ако ТипеНаме(АцтивеСхеет) <> „Ворксхеет“ Затим изађите из Суб
' Креирајте променљиве објекта за подскупове ћелија
  У случају грешке Настави даље
  Поставите ФормулаЦеллс = Опсег(“А1”).СпециалЦеллс _
   (клФормуле, клНумберс + клТектВалуес + клЛогицал)
  Поставите ТектЦеллс = Опсег(“А1”).СпециалЦеллс(клЦонстантс, клТектВалуес)
  Поставите НумберЦеллс = Опсег(“А1”).СпециалЦеллс(клЦонстантс, клНумберс)
  У случају грешке ГоТо 0
' Додајте нови лист и форматирајте га
  Схеетс.Адд
  Са ћелијама
    .Ширина колоне = 2
    .Величина фонта = 8
    .ХоризонталАлигнмент = клЦентер
  Завршити
  Апплицатион.СцреенУпдатинг = Фалсе
' Урадите ћелије формуле
  Ако није ИсЕмпти(ФормулаЦеллс) Онда
    За сваку област у ФормулаЦеллс.Области
      Са АцтивеСхеет.Ранге(Ареа.Аддресс)
        .Вредност = „Ф“
        .Интериор.ЦолорИндек = 3
      Завршити
    Нект Ареа
  Крај Ако
' Урадите текстуалне ћелије
  Ако није ИсЕмпти(ТектЦеллс) Онда
    За сваку област у ТектЦеллс.Области
      Са АцтивеСхеет.Ранге(Ареа.Аддресс)
        .Вредност = „Т“
        .Интериор.ЦолорИндек = 4
      Завршити
    Нект Ареа
  Крај Ако
' Урадите нумеричке ћелије
  Ако није ИсЕмпти(НумберЦеллс) Онда
    За сваку област у НумберЦеллс.Ареас
      Са АцтивеСхеет.Ранге(Ареа.Аддресс)
        .Вредност = „Н“
        .Интериор.ЦолорИндек = 6
      Завршити
    Нект Ареа
  Крај Ако
Енд Суб

Како то ради

Процедура прво проверава да ли је активни лист радни лист. Ако није, постоји брзи излаз без даље акције. Када је активни лист радни лист, процедура креира три променљиве објекта коришћењем методе СпециалЦеллс за идентификацију различитих типова ћелија. Метода СпециалЦеллс је веома корисна. Ако нисте упознати са тим, погледајте у Екцел-овој датотеци помоћи на мрежи. Обратите пажњу на употребу опције Настави након грешке. Ово је да би се избегла грешка која се јавља ако ниједна ћелија не испуњава услове — на пример, ако радни лист нема формуле.

Затим, процедура додаје нови радни лист, смањује ширину ћелије и поставља хоризонтално поравнање на центар. Овај корак је козметички. Подлога затим искључује ажурирање екрана да би се ствари мало убрзале.

Следећа три блока кода обрађују ћелије. Ако се ниједна ћелија не квалификује, променљива објекта је Празна, тако да под-тестови за ово. Затим, рутина пролази кроз сваку област у објекту Ранге и форматира ћелију. Можете лако да прилагодите овај део потпрограма да бисте применили различито форматирање.

Погледајте додатак Повер Утилити Пак за много софистициранију верзију овог услужног програма.


Обришите цртеже оловком и маркером на својим ПоверПоинт слајдовима

Обришите цртеже оловком и маркером на својим ПоверПоинт слајдовима

Ако сте користили оловку или маркер за цртање на ПоверПоинт слајдовима током презентације, можете да сачувате цртеже за следећу презентацију или да их избришете тако да ћете следећи пут када их покажете почети са чистим ПоверПоинт слајдовима. Пратите ова упутства да бисте избрисали цртеже оловком и маркером: Брисање линија један на […]

Садржај библиотеке стилова у СхареПоинт 2010

Садржај библиотеке стилова у СхареПоинт 2010

Библиотека стилова садржи ЦСС датотеке, датотеке Ектенсибле Стилесхеет Лангуаге (КССЛ) и слике које користе унапред дефинисане главне странице, изгледе страница и контроле у ​​СхареПоинт 2010. Да бисте лоцирали ЦСС датотеке у библиотеци стилова на локацији за објављивање: Изаберите Радње сајта→Прикажи Сав садржај сајта. Појављује се садржај сајта. Библиотека Стил налази се у […]

Форматирајте бројеве у хиљадама и милионима у Екцел извештајима

Форматирајте бројеве у хиљадама и милионима у Екцел извештајима

Немојте претрпати своју публику огромним бројевима. У Мицрософт Екцел-у можете побољшати читљивост својих контролних табли и извештаја тако што ћете форматирати своје бројеве тако да се појављују у хиљадама или милионима.

Како делити и пратити СхареПоинт локације

Како делити и пратити СхареПоинт локације

Научите како да користите СхареПоинт алатке за друштвено умрежавање које омогућавају појединцима и групама да комуницирају, сарађују, деле и повезују се.

Како претворити датуме у јулијанске формате у Екцелу

Како претворити датуме у јулијанске формате у Екцелу

Јулијански датуми се често користе у производним окружењима као временска ознака и брза референца за број серије. Ова врста кодирања датума омогућава продавцима, потрошачима и услужним агентима да идентификују када је производ направљен, а тиме и старост производа. Јулијански датуми се такође користе у програмирању, војсци и астрономији. Различит […]

Како да направите приступну веб апликацију

Како да направите приступну веб апликацију

Можете да креирате веб апликацију у програму Аццесс 2016. Дакле, шта је уопште веб апликација? Па, веб значи да је онлајн, а апликација је само скраћеница за „апликацију“. Прилагођена веб апликација је апликација базе података на мрежи којој се приступа из облака помоћу претраживача. Ви правите и одржавате веб апликацију у верзији за десктоп […]

Трака за брзо покретање у СхареПоинт 2010

Трака за брзо покретање у СхареПоинт 2010

Већина страница у систему СхареПоинт 2010 приказује листу веза за навигацију на траци за брзо покретање дуж леве стране странице. Трака за брзо покретање приказује везе ка садржају истакнутог сајта као што су листе, библиотеке, сајтови и странице за објављивање. Трака за брзо покретање укључује две веома важне везе: Линк за сав садржај сајта: […]

Шта значе поруке о грешци решавача у Екцел-у?

Шта значе поруке о грешци решавача у Екцел-у?

За једноставне проблеме, Солвер у Екцел-у обично брзо проналази оптималне вредности променљиве Решавача за функцију циља. Али, у неким случајевима, Солвер има проблема да пронађе вредности променљиве Солвера које оптимизују функцију циља. У овим случајевима, Солвер обично приказује поруку или поруку о грешци која описује или расправља о проблему који […]

Како уклонити израчуната поља и ставке из Екцел заокретне табеле

Како уклонити израчуната поља и ставке из Екцел заокретне табеле

Можете лако да уклоните израчуната поља и ставке из Екцел заокретне табеле. Да бисте уклонили израчунато поље, кликните на ћелију у изведеној табели. Затим кликните на команду Поља, ставке и скупови на картици Анализа и изаберите Израчунато поље из подменија који се појави. Када Екцел прикаже дијалог Уметање израчунатог поља, изаберите […]

Како означити у СхареПоинт-у

Како означити у СхареПоинт-у

Ознаке су кључне речи које додељујете садржају. Означавање страница за дељење са другима је обележавање на друштвеним мрежама, веома је популарно на вебу и лако је у СхареПоинт-у. Ако сте икада користили сајт као што је Делициоус, већ знате како функционише обележавање на друштвеним мрежама. Како све више људи додељује исте ознаке, ознаке постају начин на који […]