Недавно сам морао да се региструјем под порезом на робу и услуге (ГСТ) како бих могао да поднесем порез на доходак од своје зараде.
Када добијете ГСТ број, морате подносити пореску пријаву сваког месеца (у Индији).
Тако ми је сваког месеца мој овлашћени рачуновођа тражио рачуне за продају како би могао да поднесе ГСТ.
У мом случају постоји само неколико фактура које треба да се направе, јер имам само неколико извора прихода.
Међутим, пошто је ово додатни посао, хтео сам да ово обавим што је брже могуће.
Да бих умањио свој труд, створио сам предложак Генератор фактура у Екцелу који ми омогућава да све податке имам на једном месту, а затим аутоматски креира ПДФ фактуре за све тачке података.
Као што видите испод, све што треба да урадим је да двапут кликнем на име клијента (у колони Б), и тренутно би креирала и сачувала фактуру у ПДФ формату у наведеној фасцикли.
Такође можете да измените предложак рачуна тако да одговара формату ваше компаније (што би од вас захтевало да мало промените ВБА код - објашњено у наставку).
Он ствара фактуру као што је приказано испод:
Како функционише овај предложак генератора фактура?
У овом предлошку фактуре постоје два радна листа:
- Детаљи - Овде морате да наведете детаље продаје/трансакције. Да бих све држао заједно, направио сам један ред за сваки запис. Сви детаљи трансакције се бележе у реду.
- Шаблон фактуре - Ово је предложак чувара места за фактуру где су нека поља празна. Морам да генеришем засебну фактуру за све записе о продаји, а детаљи за сваку фактуру се преузимају са радног листа Детаљи.
Такође имам фасциклу на радној површини са називом „Фактуре ПДФ -ови“. Ово је фасцикла у којој се чувају новонастале ПДФ фактуре.
Сада да видимо како ово функционише:
Морате двапут да кликнете на име клијента (означено наранџастом бојом на листу са детаљима).
То је то!
Када двапут кликнете на име клијента, он покреће ВБА магију на задњој страни и догађају се следеће ствари:
- Покупе се детаљи о клијенту и продајној трансакцији, а предложак фактуре попуни се овим детаљима.
- Креира се нова радна свеска која садржи детаље о изабраном клијенту (на који сте двапут кликнули).
- Ова радна свеска је сачувана као ПДФ у фасцикли Инвоице ПДФ.
- Нова радна свеска је затворена без чувања.
У случају да дође до било каквих промена у детаљима фактуре, можете поново двапут кликнути на име клијента и креираће се нова фактура (која ће пребрисати стару).
Имајте на уму да се називи рачуна заснивају на месецу и броју рачуна.
На пример, фактура са датумом 15-04-2019 и број рачуна као 1 би био сачуван са именом Априла2021-2022_1.пдф. Ово помаже у праћењу фактура у случају да их имате превише.
Шаблон Генератор фактура можете преузети кликом на дугме испод:
Измена предлошка генератора фактура
Направио сам овај шаблон фактуре у формату који ми је био потребан за подношење ГСТ -а.
Ако вам је потребан другачији формат, мораћете да уредите предложак, а затим прилагодите позадински ВБА код.
Дозволите ми да вам прво покажем код и објасним како ради:
Суб ЦреатеИнвоице (РовНум Ас Интегер) Апплицатион.СцреенУпдатинг = Фалсе Дим вб Као радна свеска Дим сх Ас Радни лист Са схИнвоицеТемплате .Ранге ("Д10") = схДетаилс.Ранге ("А" & РовНум) .Ранге ("Д11") = схДетаилс. Опсег ("Б" & РовНум) .Ранге ("Д12") = схДетаилс.Ранге ("Ц" & РовНум) .Ранге ("Б15") = схДетаилс.Ранге ("Д" & РовНум) .Ранге ("Д15" ) = схДетаилс.Ранге ("Ф" & РовНум) .Ранге ("Д16") = схДетаилс.Ранге ("Г" & РовНум) .Ранге ("Д18") = схДетаилс.Ранге ("Е" & РовНум) Заврши са ФПатх = "Ц: \ Усерс \ сумит \ Десктоп \ Инвоице ПДФс" Фнаме = Формат (схИнвоицеТемплате.Ранге ("Д10"), "мммм ииии") _ & "_" & схИнвоицеТемплате.Ранге ("Д12") схИнвоицеТемплате.Цопи АцтивеСхеет.Наме = "ИнвТемп" Сет вб = АцтивеВоркбоок Сет сх = АцтивеСхеет сх.ЕкпортАсФикедФормат Тип: = клТипеПДФ, Назив датотеке: = _ ФПатх & "\" & Фнаме, Квалитет: = клКуалитиСтандард, ИнцлудеДоцПроперреререре: Труе, _, , ОпенАфтерПублисх: = Фалсе вб.Цлосе СавеЦхангес: = Фалсе ТхисВоркбоок.Ацтивате Апплицатион.СцреенУпдатинг = Труе Енд Суб
Горњи код је оно што копира детаље трансакције, попуњава предложак чувара места фактуре тим детаљима, ствара нову радну свеску и чува нову радну свеску као ПДФ у наведеној фасцикли.
Ако имате другачији предложак или другу локацију фасцикле, морате да измените доле истакнуте делове кода:
- Први истакнути одељак преузима детаље са листа са детаљима и попуњава предложак фактуре. Ако одлучите да измените предложак фактуре, морате се побринути да одаберете праве детаље тако што ћете изменити овај део кода.
- Ова линија одређује локацију фасцикле. У мом случају, то је била фасцикла на радној површини. Можете навести адресу фасцикле у којој желите да се сачувају фактуре.
Имајте на уму да сам преименовао кодно име радног листа у „схДетаилс“. Учинио сам то како бих могао да користим назив - схДетаилс - у свом коду и наставио би да функционише чак и ако промените назив листова на радном листу.
Ако желите да сазнате више о називу листа и кодном имену, погледајте ово (погледајте одељак о коришћењу кодног имена радног листа).
Где је код у радној свесци?
Код се налази у позадини Екцел радне свеске у модулу.
Да бисте приступили коду, следите доле наведене кораке:
- Кликните на картицу Девелопер.
- Кликните на опцију Висуал Басиц. Ово ће отворити прозор ВБ Едитор.
- У уређивачу Висуал Басиц-а двапут кликните на Модул да бисте отворили прозор са кодом. Наћи ћете горе поменути код.
У случају да сами креирате предложак, можда нећете пронаћи модул у новој радној свесци. Морате десним тастером миша кликнути на било који објекат радне свеске, идите на Уметни, а затим кликните на Модул. Ово ће уметнути нови модул. 
Омогућавање функционалности двоструког клика
Горњи код обавља све тешке послове, али морате га повезати са догађајем двоструког клика.
То значи да горњи ВБА макро код мора да се покрене сваки пут када неко двапут кликне на испуњене ћелије у колони имена клијента.
Ово се може урадити уметањем следећег кода у прозор кода радног листа:
Привате Суб Ворксхеет_БефореДоублеЦлицк (БиВал Таргет Ас Ранге, Цанцел Ас Боолеан) Иф Таргет.Целлс "" Анд Таргет.Цолумн = 2 Тхен Цанцел = Труе Цалл ЦреатеИнвоице (Таргет.Ров) Енд Иф Енд Суб
Ево корака за уметање овог кода у позадину радног листа:
- Десним тастером миша кликните на картицу радног листа „Детаљи“
- Кликните на опцију „Прикажи код“.
- Копирајте и залепите горњи код у прозор кода који се појави.
Горњи код ради следеће ствари:
- Проверава да ли ћелија која је двапут кликнула садржи податке о клијенту или не. Он користи израз ИФ за проверу и покретање кода само ако ћелија није празна и у колони Б.
- Ако су оба наведена критеријума испуњена, онемогућава се функција двоструког клика (која ће ући у режим уређивања) и позива потпрограм „ЦреатеИнвоице“, која је ускладиштена у модулу. Такође преноси вредност броја реда у потпрограм. На пример, ако двапут кликнем на име клијента у трећем реду, он ће пренети 3 као вредност у потпрограм ЦреатеИнвоице.
- Када се изврши потпрограм „ЦреатеИнвоице“ - који креира ПДФ фактуре - она се завршава.
Кликните овде за преузимање датотеке предлошка генератора фактура.
Чување предлошка фактуре као Екцел (уместо у ПДФ -у)
Ако желите да сачувате предлошке рачуна као Екцел датотеке, а не као ПДФ датотеке, уместо тога можете да користите доњи код:
Суб ЦреатеИнвоице (РовНум Ас Интегер) Апплицатион.СцреенУпдатинг = Фалсе Дим вб Као радна свеска Дим сх Ас Радни лист Са схИнвоицеТемплате .Ранге ("Д10") = схДетаилс.Ранге ("А" & РовНум) .Ранге ("Д11") = схДетаилс. Опсег ("Б" & РовНум) .Ранге ("Д12") = схДетаилс.Ранге ("Ц" & РовНум) .Ранге ("Б15") = схДетаилс.Ранге ("Д" & РовНум) .Ранге ("Д15" ) = схДетаилс.Ранге ("Ф" & РовНум) .Ранге ("Д16") = схДетаилс.Ранге ("Г" & РовНум) .Ранге ("Д18") = схДетаилс.Ранге ("Е" & РовНум) Заврши са ФПатх = "Ц: \ Усерс \ сумит \ Десктоп \ Инвоице ПДФс" Фнаме = Формат (схИнвоицеТемплате.Ранге ("Д10"), "мммм ииии") _ & "_" & схИнвоицеТемплате.Ранге ("Д12") схИнвоицеТемплате.Цопи АцтивеСхеет.Наме = "ИнвТемп" Сет вб = АцтивеВоркбоок Сет сх = АцтивеСхеет сх.Наме = Фнаме вб.СавеАс Име датотеке: = ФПатх & "\" & Фнаме вб.Затворите СавеЦхангес: = Нетачно ТхисВоркбоок.Ацтивате Апплицатион.СцреенУпдатинг = Труе Енд Суб
Горњи код чува фактуру као Екцел радну свеску са истим уговором о именовању. Радни лист у радној свесци који садржи попуњену фактуру у свакој сачуваној радној свесци такође се назива истим.
Такође би вам се могли свидети корисни следећи Екцел водичи:
- Како претворити Екцел у ПДФ помоћу ВБА.
- Угради ПДФ у Екцел.
- Извуците податке из ПДФ -а у Екцел помоћу овог претварача.
- Предложак калкулатора Екцел временског листа.
- Екцел предложак трагача за напуштање.
- Бесплатни предлошци програма Екцел.
