Како користити за сваку следећу петљу са колекцијама у ВБА Екцел 2016

ВБА подржава још једну врсту петље у програму Екцел 2016: петљу кроз сваки објекат у колекцији објеката. Колекција се, као што можда знате, састоји од више објеката истог типа. На пример, Екцел има колекцију свих отворених радних свеска (колекција Воркбоокс), а свака радна свеска има колекцију радних листова (колекција Ворксхеетс).

Када треба да прођете кроз сваки објекат у колекцији, користите структуру Фор Евери-Нект. Следећи пример пролази кроз сваки радни лист у активној радној свесци и брише радни лист ако је празан:

Суб ДелетеЕмптиСхеетс()
  Дим ВкСхт Ас Ворксхеет
  Апплицатион.ДисплаиАлертс = Фалсе
  За сваки ВкСхт у АцтивеВоркбоок.Ворксхеетс
    Ако је ВорксхеетФунцтион.ЦоунтА(ВкСхт.Целлс) = 0 Онда
      ВкСхт.Делете
    Крај Ако
  Следећи ВкСхт
  Апплицатион.ДисплаиАлертс = Тачно
Енд Суб

У овом примеру, променљива ВкСхт је променљива објекта која представља сваки радни лист у радној свесци. Ништа није посебно у вези са именом променљиве ВкСхт; можете користити било које име променљиве које желите.

Код се креће кроз сваки радни лист и одређује празан лист пребројавањем ћелија које нису празне. Ако је тај број нула, лист је празан и брише се. Обратите пажњу да је поставка ДисплаиАлертс искључена док петља ради своје. Без те изјаве, Екцел искаче упозорење сваки пут када ће лист бити обрисан.

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

Ево још једног примера за сваки следећи. Ова процедура користи петљу за сакривање свих радних листова у активној радној свесци осим активног листа.

Суб ХидеСхеетс()
  Дим Схт Ас Ворксхеет
  За сваки Схт у АцтивеВоркбоок.Ворксхеетс
    Ако Схт.Наме <> АцтивеСхеет.Наме Тхен
      Схт.Висибле = клСхеетХидден
    Крај Ако
  Следећи Схт
Енд Суб

Процедура ХидеСхеетс проверава име листа. Ако није исто као име активног листа, лист је сакривен. Имајте на уму да својство Висибле није Боолеан. Ово својство заправо може да преузме било коју од три вредности, а Екцел обезбеђује три уграђене константе. Ако вас занима трећа могућност (клВериХидден), проверите систем помоћи.

Оно што се сакрије мора на крају постати нескривено, па ево макроа који открива све радне листове у активној радној свесци:

Суб УнхидеСхеетс()
  Дим Схт Ас Ворксхеет
  За сваки Схт у АцтивеВоркбоок.Ворксхеетс
    Схт.Висибле = клСхеетВисибле
  Следећи Схт
Енд Суб

Није изненађујуће што можете да креирате угнежђене петље Фор Евери-Нект. Процедура ЦоунтБолд петља кроз сваку ћелију у коришћеном опсегу на сваком радном листу у свакој отвореној радној свесци и приказује број ћелија које су форматиране подебљаним:

Суб Цоунт Болд()
  Дим ВБоок Ас Воркбоок
  Дим ВСхеет као радни лист
  Дим Целл Ас Ранге
  Дим Цнт Ас Лонг
  За сваку књигу у радним свескама
    За сваки ВСхеет у ВБоок.Ворксхеетс
      За сваку ћелију у ВСхеет.УседРанге
        Ако је Целл.Фонт.Болд = Тачно, онда је Цнт = Цнт + 1
      Следећа ћелија
    Следећи ВСхеет
  Следећа књига
  МсгБок Цнт & „пронађене подебљане ћелије“
Енд Суб

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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