Tax.lt narys ABA2
- Tax.lt narys nuo
- 2009-11-13
- Miestas / vietovė
- Balbieriškis
- Profesija
- ne buhalterė ir ne ji
- ABA2
- forume parašė 1824 žinučių
Naujausios žinutės:
2015-10-14 10:47
Programinė įranga »
Buhalterinė programa "Centas" »
#1290025
Saulute21 rašė:
Sveiki,
O man net neleidžia naujos versijos parsisiųsti :( gal kas susidūrėt? gal nustatymuose reikia kažką daryt?
Naują versiją leidžia visiems parsisiųsti: ir nesusimokėjusiems, ir susimokėjusiems, ir žvairiems, ir brunetams.
O instaliuoti gali TIK turintys galiojančią palaikymo bylą. Ir tik tame kompiuteryje, kuris yra užregistruotas Edlontoje.. Nes palaikymo byloje yra registruoto kompiuterio ID .
Saulute21 rašė:
Sveiki,
O man net neleidžia naujos versijos parsisiųsti :( gal kas susidūrėt? gal nustatymuose reikia kažką daryt?
Naują versiją leidžia visiems parsisiųsti: ir nesusimokėjusiems, ir susimokėjusiems, ir žvairiems, ir brunetams.
O instaliuoti gali TIK turintys galiojančią palaikymo bylą. Ir tik tame kompiuteryje, kuris yra užregistruotas Edlontoje.. Nes palaikymo byloje yra registruoto kompiuterio ID .
2015-09-14 13:06
Blevyzgos »
Akimirka »
#1286324
I.J.Repino originalus paveikslas, kabantis Maskvoje Tretjekovo paveikslų galerijoje.
Nutapytas 1878 metais.
Paveikslas vadinasi "Maldininkės- keliauninkės" ("Богомолки-странницы").
Jokio fotošopo- galite paguglinti.
Ką jums primena šie veidai?(jie šiais laikais dažnai šmėkščioja viso pasaulio spaudoje ir TV ekranuose )
Manau, menas turi jėgą išpranašauti ateitį.
-----------------------------------------------
P.S. pritaikius šiandienai, pavadinimą paveikslui duočiau: "Saldžios porelės kelionė į Hagą"
Nutapytas 1878 metais.
Paveikslas vadinasi "Maldininkės- keliauninkės" ("Богомолки-странницы").
Jokio fotošopo- galite paguglinti.
Ką jums primena šie veidai?(jie šiais laikais dažnai šmėkščioja viso pasaulio spaudoje ir TV ekranuose )
Manau, menas turi jėgą išpranašauti ateitį.
-----------------------------------------------
P.S. pritaikius šiandienai, pavadinimą paveikslui duočiau: "Saldžios porelės kelionė į Hagą"
2015-09-09 23:36
Blevyzgos »
O jūs, ar žiūrite krepšinį? »
#1285997
Ne Elektromarket ir DNB bankas rinktinės rėmėjas.
Validolis - oficialus Lietuvos vyru krepšinio rinktines rėmėjas !
Validolis - oficialus Lietuvos vyru krepšinio rinktines rėmėjas !
2015-09-07 22:26
Bendra »
Sodros EDAS »
#1285735
Tada griebkite Internet Exploer'į - jį vienodai myli ir sodros ir vmi 
2015-09-07 18:56
Bendra »
Sodros EDAS »
#1285730
Reikia keisti naršyklę.Juk Sodra aiškiai pasakė ir taškas.
Nes Google Chrome yra skylėta, kaip rėtis. Neveltui WIN 8 ir WIN 10 versijos nutraukė palaikymą šios naršyklės.
O gaila, labai patogi buvo naudojimui.
P.S. Imkite FireFox naršyklę - ji labai panaši į Chrome.Ir Sodra ant jos neurzgia...
Nes Google Chrome yra skylėta, kaip rėtis. Neveltui WIN 8 ir WIN 10 versijos nutraukė palaikymą šios naršyklės.
O gaila, labai patogi buvo naudojimui.
P.S. Imkite FireFox naršyklę - ji labai panaši į Chrome.Ir Sodra ant jos neurzgia...
2015-08-13 21:18
Blevyzgos »
Pasijuokime mieli draugai »
#1283002
Pakartotinai įdedu.
Skirta vienišoms merginoms.Gimnastės įgūdžiai- privalumas. Kitaip- gipsas ar dar blogiau.
www.youtube.com/watch?v=7YZ_SGDVr58
Skirta vienišoms merginoms.Gimnastės įgūdžiai- privalumas. Kitaip- gipsas ar dar blogiau.
www.youtube.com/watch?v=7YZ_SGDVr58
2015-08-04 19:43
Blevyzgos »
Pasijuokime mieli draugai »
#1281964
Žmona ir Windows 10 yra nesuderinami.
Vyrai, achtung!
www.delfi.lt/mokslas/technologijos/vyras-at...
Vyrai, achtung!
www.delfi.lt/mokslas/technologijos/vyras-at...
2015-08-04 11:43
Įvairūs »
Teisiu atemimas ,isgerus »
#1281886
Niekas ten nekaria už pirmą pažeidimą: nuo 1 iki 6 mėn. kalėjimo, kad geriau atsimintų pamoką. Kai "įkalęs" prisidirbi ir žūsta žmogus- tai jau ne pažeidimas ar kvailystė. TAI ŽMOGŽUDYSTĖ . Ir sunkinančiomis aplinkybėmis.
2015-08-04 09:08
Įvairūs »
Teisiu atemimas ,isgerus »
#1281840
Galėtų ir pas mus pritaikyti kurį nors variantą:
Singapūras
Singapūre sulaikytą neblaivų vairuotoja gali... nuplakti. Tokie vairuotojai plakami metro ilgio ir maždaug centimetro storio lazdomis. Taip pat jis rizikuoja gauti 200 - 230 Singapūro dolerių baudą (1 Singapūro doleris - apie 0,75 JAV dolerio). Galima vairuoti tik tada, jei neviršijama 0,08 promilių riba.
Kinija
Kinijoje įstatymai ypač griežti. Vieną neblaivų vairuotoją, suvažinėjusį pėsčiąjį, tiesiog sušaudė. Jeigu vairuotojas tik išgėrė ir sėdo prie vairo, bet dar nespėjo nieko pridirbti, tai vis tiek nuo 1 iki 6 mėnesių jis keliaus į cypę. Tokiu atveju trims metams atimamas ir vairuotojo pažymėjimas. Leidžiama norma - 0,0 promilės.
Tailandas
Panaši situacija ir Tailande. Jeigu neblaivus vairuotojas sukels eismo įvykį ir jame žus žmonės, tikėtina, vairuotojas bus pakartas. Nepaisant to, 0,05 promilės - leidžiamas kiekis.
Sakysite: nehumaniška, tai ne mūsų metodai ? Bet labai veiksminga.
Singapūras
Singapūre sulaikytą neblaivų vairuotoja gali... nuplakti. Tokie vairuotojai plakami metro ilgio ir maždaug centimetro storio lazdomis. Taip pat jis rizikuoja gauti 200 - 230 Singapūro dolerių baudą (1 Singapūro doleris - apie 0,75 JAV dolerio). Galima vairuoti tik tada, jei neviršijama 0,08 promilių riba.
Kinija
Kinijoje įstatymai ypač griežti. Vieną neblaivų vairuotoją, suvažinėjusį pėsčiąjį, tiesiog sušaudė. Jeigu vairuotojas tik išgėrė ir sėdo prie vairo, bet dar nespėjo nieko pridirbti, tai vis tiek nuo 1 iki 6 mėnesių jis keliaus į cypę. Tokiu atveju trims metams atimamas ir vairuotojo pažymėjimas. Leidžiama norma - 0,0 promilės.
Tailandas
Panaši situacija ir Tailande. Jeigu neblaivus vairuotojas sukels eismo įvykį ir jame žus žmonės, tikėtina, vairuotojas bus pakartas. Nepaisant to, 0,05 promilės - leidžiamas kiekis.
Sakysite: nehumaniška, tai ne mūsų metodai ? Bet labai veiksminga.
2015-08-03 11:42
Blevyzgos »
Akimirka »
#1281715
Du technikos raidos stebuklai.
Kur juos galima pamatyti kartu?
Kur juos galima pamatyti kartu?
2015-07-30 17:16
Programinė įranga »
Excel »
#1281465
Petronele rašė:
Ar galima excel'yje stulpelius sukeisti vietomis? Ir kaip tai padaryti.
Kaip variantas: duomenų rūšiavimas per stulpelius.
Filmukas:
www.youtube.com/watch?v=LN_EV5IjCkM
Petronele rašė:
Ar galima excel'yje stulpelius sukeisti vietomis? Ir kaip tai padaryti.
Kaip variantas: duomenų rūšiavimas per stulpelius.
Filmukas:
www.youtube.com/watch?v=LN_EV5IjCkM
2015-07-23 09:54
Blevyzgos »
Akimirka »
#1280611
Samajana rašė:
... o nei vienas vairuotojas absoliučiai nekreipia dėmesio.Visi kaip tik žiūri priešingon pusėn...
Fotografė buvusi komjaunuolė ir gražuolė, ir su mini sijonėliu, ir 3 numeris...
Samajana rašė:
... o nei vienas vairuotojas absoliučiai nekreipia dėmesio.Visi kaip tik žiūri priešingon pusėn...
Fotografė buvusi komjaunuolė ir gražuolė, ir su mini sijonėliu, ir 3 numeris...
2015-06-30 21:39
Programinė įranga »
Excel »
#1278113
Nesumuoja todėl, kad keli langeliai su tekstiniu formatu. Rankinis formato pakeitimas ne visada padeda, reikalingas dar ir reikšmės perrašymas klaviatūros pagalba. Tokie keisti formatai gaunasi suformavus excelio knygos lapą buh. apskaitos kai kuriomis programomis arba per internetinį banką.
Vienas iš sprendimų: pasitelkti VBA (macro komandų leidimas turi būti įjungtas)
Kodas knygos modulyje(Alt+F11)
Vienas iš sprendimų: pasitelkti VBA (macro komandų leidimas turi būti įjungtas)
Kodas knygos modulyje(Alt+F11)
2015-06-26 11:17
Programinė įranga »
Word galimybės »
#1277722
Na štai, pabandžiau pritaikyti VBA kodą Wordui ir gavosi štai taip:
VBA kodas:
rašė:
Sub SumZod()
Dim aa#
With Selection
aa = CDbl(Replace(Replace(.Range.Text, Chr(160), ""), " ", ""))
.Range.Text = .Range.Text & " " & MSumProp(aa)
End With
End Sub
Function MSumProp$(chislo#)
Dim eur$, ct$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function
sot = Array("", "šimtas ", "du šimtai ", "trys šimtai ", "keturi šimtai ", "penki šimtai ", "šeši šimtai ", "septyni šimtai ", "aštuoni šimtai ", "devyni šimtai ")
des = Array("", "", "dvidešimt ", "trisdešimt ", "keturiasdešimt ", "penkiasdešimt ", "šešiasdešimt ", "septyniasdešimt ", "aštuoniasdešimt ", "devyniasdešimt ")
nadc = Array("dešimt ", "vienuolika ", "dvylika ", "trylika ", "keturiolika ", "penkiolika ", "šešiolika ", "septyniolika", "aštuoniolika ", "devyniolika ")
ed = Array("", "vienas ", "du ", "trys ", "keturi ", "penki ", "šeši ", "septyni ", "aštuoni ", "devyni ", "", "vienas ", "du ")
razr = Array("trilionai", "trilijonas ", "trilijonų ", "miliardas ", "milijardų ", "milijardai ", "milijonas ", "milijonai ", "milijonų ", "tūkstantis ", "tūkstančiai ", "tūkstančių ", "EUR ", "EUR ", "EUR ")
eur = Left(Format(chislo, "000000000000000.00"), 15)
ct = Right(Format(chislo, "0.00"), 2)
If CDbl(eur) = 0 Then m = "nulis "
For i = 1 To Len(eur) Step 3
If Mid(eur, i, 3) <> "000" Or i = Len(eur) - 2 Then
m = m & sot(CInt(Mid(eur, i, 1))) & IIf(Mid(eur, i + 1, 1) = "1", nadc(CInt(Mid(eur, i + 2, 1))), _
des(CInt(Mid(eur, i + 1, 1))) & ed(CInt(Mid(eur, i + 2, 1)) + IIf(i = Len(eur) - 5 And CInt(Mid(eur, i + 2, 1)) < 3, 10, 0))) & _
IIf(Mid(eur, i + 1, 1) = "1" Or (Mid(eur, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(eur, i + 2, 1) = "1", razr(i - 1), razr(i)))
End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & ct & " ct" & IIf(ct \ 10 = 1 Or ((c + 9) Mod 10) >= 4, "", IIf(ct Mod 10 = 1, "", ""))
End Function
Kodą dedame į Normal modulį (atsidaro paspaudus Alt+F11). Pirmą kartą įėjus, modulio nebus- sukuriame per pelės dešinio klavišo meniu( insert module)
VBA kodas:
rašė:
Sub SumZod()
Dim aa#
With Selection
aa = CDbl(Replace(Replace(.Range.Text, Chr(160), ""), " ", ""))
.Range.Text = .Range.Text & " " & MSumProp(aa)
End With
End Sub
Function MSumProp$(chislo#)
Dim eur$, ct$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function
sot = Array("", "šimtas ", "du šimtai ", "trys šimtai ", "keturi šimtai ", "penki šimtai ", "šeši šimtai ", "septyni šimtai ", "aštuoni šimtai ", "devyni šimtai ")
des = Array("", "", "dvidešimt ", "trisdešimt ", "keturiasdešimt ", "penkiasdešimt ", "šešiasdešimt ", "septyniasdešimt ", "aštuoniasdešimt ", "devyniasdešimt ")
nadc = Array("dešimt ", "vienuolika ", "dvylika ", "trylika ", "keturiolika ", "penkiolika ", "šešiolika ", "septyniolika", "aštuoniolika ", "devyniolika ")
ed = Array("", "vienas ", "du ", "trys ", "keturi ", "penki ", "šeši ", "septyni ", "aštuoni ", "devyni ", "", "vienas ", "du ")
razr = Array("trilionai", "trilijonas ", "trilijonų ", "miliardas ", "milijardų ", "milijardai ", "milijonas ", "milijonai ", "milijonų ", "tūkstantis ", "tūkstančiai ", "tūkstančių ", "EUR ", "EUR ", "EUR ")
eur = Left(Format(chislo, "000000000000000.00"), 15)
ct = Right(Format(chislo, "0.00"), 2)
If CDbl(eur) = 0 Then m = "nulis "
For i = 1 To Len(eur) Step 3
If Mid(eur, i, 3) <> "000" Or i = Len(eur) - 2 Then
m = m & sot(CInt(Mid(eur, i, 1))) & IIf(Mid(eur, i + 1, 1) = "1", nadc(CInt(Mid(eur, i + 2, 1))), _
des(CInt(Mid(eur, i + 1, 1))) & ed(CInt(Mid(eur, i + 2, 1)) + IIf(i = Len(eur) - 5 And CInt(Mid(eur, i + 2, 1)) < 3, 10, 0))) & _
IIf(Mid(eur, i + 1, 1) = "1" Or (Mid(eur, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(eur, i + 2, 1) = "1", razr(i - 1), razr(i)))
End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & ct & " ct" & IIf(ct \ 10 = 1 Or ((c + 9) Mod 10) >= 4, "", IIf(ct Mod 10 = 1, "", ""))
End Function
Kodą dedame į Normal modulį (atsidaro paspaudus Alt+F11). Pirmą kartą įėjus, modulio nebus- sukuriame per pelės dešinio klavišo meniu( insert module)
2015-06-25 15:03
Programinė įranga »
Word galimybės »
#1277627
Darome pagal instrukciją ir viskas gaunasi...
Tik ši funkcija neverčia reikšmių po kablelio, o tik apvalina. Ir yra riba iki 999 999,99
Tik ši funkcija neverčia reikšmių po kablelio, o tik apvalina. Ir yra riba iki 999 999,99
2015-06-18 20:22
Programinė įranga »
Excel »
#1276912
Sumavimo langelyje naudojame formatą [h]:mm ir bus jums laimė 
P.S. pelenė truputi suklydo - "[hh]:mm" formatas šiam konkrečiam atvėjui netinka.
P.S. pelenė truputi suklydo - "[hh]:mm" formatas šiam konkrečiam atvėjui netinka.
2015-05-27 11:07
Programinė įranga »
Excel »
#1274268
Blykste rašė:
Gal žinote kaip padaryti tokį skaičiavimą, ar išvis įmanoma?
Man reikia, kad suskaičiuotų bendrą sumą iš pradžių sudauginus eilutės skaičius. Pvz.
(I8*J8)+(I9*J9)+(I10*J10)+(I11*J11) ir t.t. iki beveik I300 ir J300. Ar įmanoma?
Nereikia nei macro, nei paslėptų papildomų stulpelių- žiūrėkime į viską daug paprasčiau, tik formulė gausis labai jau ilga, bet excelis tai ištvers.
Pavyzdžiui, taip galima:
rašė: =SUM((I8*J8)+(I9*J9)+(I10*J10)+(I11*J11)+ .....................................)
------------------------------------------------------------------------------------------------------------------------------
O jei nesinori vargti su ilga formule, tai galima visai trumpai:
rašė: =SUMPRODUCT(I8:I300;J8:J300)
Blykste rašė:
Gal žinote kaip padaryti tokį skaičiavimą, ar išvis įmanoma?
Man reikia, kad suskaičiuotų bendrą sumą iš pradžių sudauginus eilutės skaičius. Pvz.
(I8*J8)+(I9*J9)+(I10*J10)+(I11*J11) ir t.t. iki beveik I300 ir J300. Ar įmanoma?
Nereikia nei macro, nei paslėptų papildomų stulpelių- žiūrėkime į viską daug paprasčiau, tik formulė gausis labai jau ilga, bet excelis tai ištvers.
Pavyzdžiui, taip galima:
rašė: =SUM((I8*J8)+(I9*J9)+(I10*J10)+(I11*J11)+ .....................................)
------------------------------------------------------------------------------------------------------------------------------
O jei nesinori vargti su ilga formule, tai galima visai trumpai:
rašė: =SUMPRODUCT(I8:I300;J8:J300)
2015-05-14 16:40
Įvairūs »
Plepalynas »
#1272824
Sveikatos ministerija įspėja: rūkymas labai kenkia jūsų sveikatai !
Ypač, jei vairuojate dujomis varomą automobilį.
www.youtube.com/watch?v=qVnrHjLGfWg
Ypač, jei vairuojate dujomis varomą automobilį.
www.youtube.com/watch?v=qVnrHjLGfWg
2015-04-17 11:14
PVM »
PVM sąskaitų-faktūrų siuntimas elektoniniu paštu »
#1269290
Jei ne PVM mokėtojas išrašo, tai sąskaita ne tik turi būti pasirašyta, bet ir originali, t.y. popierinio formato.
2015-04-17 08:04
Bendra »
Рынок Гарюнай »
#1269217
Nemaitinkite trolio ir padėkite tašką. Nereikia jai buhalterijos, mergaitės ir moteriškės...
Ir kur žiūri OBHS'as
Ir kur žiūri OBHS'as
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui