photosdematures.com

Екцел ВБА ДАТУМ функција

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

У Екцелу не можемо живети без неких функција, а „ВБА Дате“ је једна од тих функција. Ако сте чести корисник екцел радног листа, тада морате бити свесни функције која се зове "ДАНАС ()" који ће вратити тренутни датум према датуму система.

Датум је врло једноставна функција и враћа само тренутни датум према системском датуму који користите. Ово функционише врло слично функцији нашег радног листа „ДАНАС“, али није променљиве природе.

Синтакса функције екцел ДАТЕ је врло једноставна јер нема аргумент за испоруку и укључује само празне заграде.

Датум ()

Заграде постоје само да би објаснили функцију када користите функцију без потребе за уношењем заграде.

Како се користи Екцел ВБА датумска функција?

Овај ВБА образац датума Екцел можете преузети овде - ВБА образац датума Екцел

Пример # 1

Претпоставимо да желите да уметнете тренутни датум у ћелију А1, а затим следите доње кораке за писање кода за уметање тренутног датума у ​​ћелију А1.

Корак 1: Направите име макронаредбе.

Шифра:

 Суб Датум_Пример1 ()

Корак 2: Будући да требамо да сачувамо тренутни датум у ћелији А1, наш код ће бити Опсег („А1“). Вредност.

Шифра:

 Суб Датум_Пример1 () Опсег ("А1"). Вредност Крај Суб 

Корак 3: У ћелији А1 потребан нам је тренутни датум, па користите функцију ДАТЕ.

Шифра:

 Суб Датум_Пример1 () Опсег ("А1"). Вредност = Датум Крај Суб 

Корак 4: Ок, готови смо. Покренимо сада овај код притиском на тастер Ф5 или га можете покренути и ручно, као што је приказано на доњем снимку екрана. Тренутни датум добићемо у ћелији А1.

Дакле, када пишем овај код, тренутни датум у мом систему је „15. март 2019.“.

Напомена: Формат вашег датума зависи од подешавања вашег прозора. У сваком случају, можете променити формат датума у ​​ћелијама формата.

Пример # 2

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

Претпоставимо да је испод листа купаца које имате у вашој бази података.

Већ сам написао код који ће вас обавестити чим отворите екцел датотеку.

Шифра:

 Суб Дуе_Нотифиер () Дим Дуедате Ас Дате Дим и Ас Лонг Дуедате = Дате и = 2 Фор и = 2 То Целлс (Ровс.Цоунт, 1) .Енд (клУп) .Ров Иф Дуедате = ДатеСериал (Иеар (Дате), Монтх ( Целлс (и, 3) .Валуе), Даи (Целлс (и, 3) .Валуе)) Затим МсгБок "Име купца:" & Целлс (и, 1) .Валуе & вбНевЛине & "Премиум Количина:" & Целлс (и , 2) .Валуе Енд Иф Нект и Енд Суб 

Копирајте горњи код и налепите у ВБА модул.

Сада двапут кликните на опцију „Тхис Воркбоок“.

Сада изаберите "Радна свеска" из горњег падајућег менија.

Чим одаберете опцију „Радна свеска“, видећете да се приватни макро аутоматски отвара.

Овде каже назив макронаредбе „Радна свеска_Опен ()“ то значи кад год ова радна свеска отвори оно што морате учинити. Кад год се отвори ова радна свеска, морамо покренути макро који смо креирали.

Дакле, овде морамо назвати наш макро који смо креирали његовим именом. У горњем коду, наше име макроа је „Дуе_Нотифиер“.

Шифра:

 Позовите Дуе_Нотифиер

Сада сачувајте ову радну свеску и затворите је.

Након што га затворите, отворите радну свеску и погледајте чаролију.

Сада ћу отворити….

Вау !!! Показује ми име купца и њихов доспели износ за текући датум.

Корисничко име је „Амар“, а доспели износ је „20883“. Разлог зашто приказује ово име купца јер је рок за г. Амар 15. март 2019., тј. Данас.

Сада кликните на Ок, приказаће се друга имена купаца ако је датум доспећа данас.

Приказује се име господина Арвинда, његов датум доспећа је такође 15. марта 2019.

Сада можете лако препознати имена купаца чим дођете у канцеларију. Нестала је једна од великих главобоља.

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

Пример # 3

Претпоставимо да сте у „Тиму за ангажовање запослених“ и да сте одговорни за слање е-поште са рођенданом својим запосленима. Идентифицирање и слање е-поште сваком одвојено је болан посао.

Поздрав, драги мој пријатељу, не брините. Створио сам макро за вас како бисте аутоматски слали е-пошту са рођенданом својим запосленима.

Створио сам неке податке за тестирање, а испод је слика истих.

Потребно је само да ажурирате заповедника у складу са насловима табеле. Испод је код за слање е-поште.

Копирајте доњи код и залепите у модул.

 Суб Биртхдаи_Висхес () Дим ОутлоокАпп Ас Оутлоок.Апплицатион Дим ОутлоокМаил Ас Оутлоок.МаилИтем Дим Мидате Ас Дате Дим и Ас Лонг Сет ОутлоокАпп = Нев Оутлоок.Апплицатион Мидате = Дате и = 2 Фор и = 2 То Целлс (Ровс.Цоунт, 1) .Енд (клУп) .Ров Сет ОутлоокМаил = ОутлоокАпп.ЦреатеИтем (олМаилИтем) Иф Мидате = ДатеСериал (Иеар (Дате), Монтх (Целлс (и, 5) .Валуе), Даи (Целлс (и, 5) .Валуе)) Затим ОутлоокМаил.То = Ћелије (и, 7) .Вредност ОутлоокМаил.ЦЦ = Ћелије (и, 8) .Валуе ОутлоокМаил.БЦЦ = "" ОутлоокМаил.Субјецт = "Срећан рођендан -" & Ћелије (и, 2). Вредност ОутлоокМаил .Боди = "Поштовани" & Целлс (и, 2) .Валуе & "," & вбНевЛине & вбНевЛине & _ "Желимо вам срећан рођендан у име управе и желимо сав успех у наредној будућности" & вбНевЛине & _ вбНевЛине & "Поздрав," & вбНевЛине & "СтрИДЕ Теам" ОутлоокМаил.Дисплаи ОутлоокМаил.Сенд Енд Иф Нект и Енд Суб 

Чим дођете у канцеларију, само отворите датотеку и покрените овај код, аутоматски ће послати жеље за рођенданом на одговарајуће адресе е-поште.

Белешка: У систему треба да имате конфигурисан Оутлоок.