Како користити функцију ИнпутБок у програму Екцел 2016 ВБА

Функција ВБА ИнпутБок је корисна за добијање једне информације коју је корисник откуцао у Екцле 2016. Те информације могу бити вредност, текстуални низ или чак адреса опсега. Ово је добра алтернатива развоју корисничког обрасца када треба да добијете само једну вредност.

ИнпутБок синтакса

Ево поједностављене верзије синтаксе функције ИнпутБок:

ИнпутБок(промпт[, наслов][, подразумевано])

Функција ИнпутБок прихвата овде наведене аргументе.

Расправа На шта утиче
Промпт Текст приказан у пољу за унос
Наслов Текст приказан у насловној траци поља за унос
(опционо)
Уобичајено Подразумевана вредност за унос корисника (опционо)

Пример ИнпутБок-а

Ево изјаве која показује како можете да користите функцију ИнпутБок:

ТхеНаме = ИнпутБок(“Како се зовеш?”, “Поздрав”)

Када извршите ову ВБА изјаву, Екцел приказује овај дијалог. Приметите да овај пример користи само прва два аргумента и не даје подразумевану вредност. Када корисник унесе вредност и кликне на ОК, код додељује вредност променљивој ТхеНаме.

Како користити функцију ИнпутБок у програму Екцел 2016 ВБА

Функција ИнпутБок приказује овај дијалошки оквир.

Следећи пример користи трећи аргумент и даје подразумевану вредност. Подразумевана вредност је корисничко име које чува Екцел (својство УсерНаме објекта Апплицатион).

Суб ГетНаме()
  Дим ТхеНаме као стринг
  ТхеНаме = ИнпутБок(“Како се зовеш?”, _
    „Поздрав“, Апплицатион.УсерНаме)
Енд Суб

ИнпутБок увек приказује дугме Откажи. Ако корисник кликне на Откажи, функција ИнпутБок враћа празан стринг.

ВБА-ова функција ИнпутБок увек враћа стринг, тако да ако треба да добијете вредност, ваш код треба да изврши додатну проверу. Следећи пример користи функцију ИнпутБок за добијање броја. Користи ИсНумериц функцију да провери да ли је стринг број. Ако стринг садржи број, све је у реду. Ако се унос корисника не може протумачити као број, код приказује оквир са поруком.

Суб АддСхеетс()
  Дим Промпт као стринг
  Дим Цаптион Ас Стринг
  Дим ДефВалуе Ас Лонг
  Дим НумСхеетс као стринг
  Промпт = „Колико листова желите да додате?“
  Натпис = "Реци ми..."
  ДефВалуе = 1
  НумСхеетс = ИнпутБок (Промпт, Цаптион, ДефВалуе)
  Ако је НумСхеетс = „“ Онда Екит Суб 'Цанцелед
  Ако је Нумериц(НумСхеетс) Онда
    Ако је НумСхеетс > 0 онда Схеетс.Адд Цоунт:=НумСхеетс
  Иначе
    МсгБок „Неважећи број“
  Крај Ако
Енд Суб

Погледајте дијалошки оквир који производи ова рутина.

Како користити функцију ИнпутБок у програму Екцел 2016 ВБА

Још један пример коришћења функције ИнпутБок.

Друга врста ИнпутБок-а

Информације представљене овде се односе на ВБА-ову функцију ИнпутБок. Чини се да Мицрософт воли конфузију, тако да такође имате приступ методи ИнпутБок , која је метод објекта Апплицатион.

Једна велика предност коришћења методе Апплицатион ИнпутБок је то што ваш код може затражити избор опсега. Корисник затим може изабрати опсег на радном листу тако што ће означити ћелије. Ево кратког примера који од корисника тражи да одабере опсег:

Под ГетРанге()
  Дим Рнг Ас Ранге
  У случају грешке Настави даље
  Поставите Рнг = Апплицатион.ИнпутБок _
    (промпт:=“Наведите опсег:”, Тип:=8)
  Ако Рнг није ништа, изађите из Суб
  МсгБок „Изабрали сте опсег“ & Рнг.Аддресс
Енд Суб

Овако то изгледа.

Како користити функцију ИнпутБок у програму Екцел 2016 ВБА

Коришћење методе Апплицатион ИнпутБок за добијање опсега.

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

Метод Апплицатион.ИнпутБок је сличан ВБА-овој функцији ИнпутБок, али такође има неке разлике. Проверите систем помоћи за потпуне детаље.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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