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:
2013-06-13 15:10
Programinė įranga »
Excel »
#1161461
Paprasčiausias variantas per sąlyginį formatavimą/ conditional formatting/-pasirenkame formulės langelį ir rašome formulę.
Ir pasirenkame norimą spalvą.
Ir pasirenkame norimą spalvą.
2013-06-05 20:44
Programinė įranga »
Excel »
#1159768
vovere rašė:
turiu klausimėlį, kaip reikia panaikinti įmonės rekvizitus, kurie matosi tik atspausdinus lapą, o kai jį pildomas tas dokumentas jų nesimato, tikiuosi aiškiai paklausiau
Print_ Print Preview_Page Setup_Header/Footer... čia turėtu slėptis rekvizitai,manau.
_______________
O kas dėl fani20 suvestinės,tai šiuo atveju lastelių sujungimus galima lengvai apeiti:panaudoti papildomą stulpelį ir ir kode prirašyti kelias eilutes.Bet geriau,kad jų nebūtų.
Štai: www.failai.lt/w1fgvqxztjqs/_suvestin___next.xlsm.htm
Beje,nustatytas reikšmes išrenka ir iš naujai sukurtų lapų,jei duomenų išsidėstymas nesikeičia.
vovere rašė:
turiu klausimėlį, kaip reikia panaikinti įmonės rekvizitus, kurie matosi tik atspausdinus lapą, o kai jį pildomas tas dokumentas jų nesimato, tikiuosi aiškiai paklausiau
Print_ Print Preview_Page Setup_Header/Footer... čia turėtu slėptis rekvizitai,manau.
_______________
O kas dėl fani20 suvestinės,tai šiuo atveju lastelių sujungimus galima lengvai apeiti:panaudoti papildomą stulpelį ir ir kode prirašyti kelias eilutes.Bet geriau,kad jų nebūtų.
Štai: www.failai.lt/w1fgvqxztjqs/_suvestin___next.xlsm.htm
Beje,nustatytas reikšmes išrenka ir iš naujai sukurtų lapų,jei duomenų išsidėstymas nesikeičia.
2013-06-05 14:51
Programinė įranga »
Excel »
#1159677
Jei nenaudojate sudėtingų formulių ar nereikalingos suvestinės,ar nežinote,kas tai per velnias VBA-tai nieko blogo.Gražu ir patogu.Bet tikrai,kada nors tai sukels problemų,beieškant geresnio informacijos surinkimo ar pateikimo būdo.
Todėl programuotojai,susidūrę su sujungtomis lastelėmis ir sako: Tavo triušiukas parašė(Your Bunny Wrote!)
Todėl programuotojai,susidūrę su sujungtomis lastelėmis ir sako: Tavo triušiukas parašė(Your Bunny Wrote!)
2013-06-05 14:41
Programinė įranga »
Excel »
#1159672
Todėl,kad anksčiau ar vėliau reikės ištraukti iš sujungtų langelių tik dalį informacijos.O tai papildomi stulpeliai,papildomos formulės ir papildomas bereikalingas darbas.
Štai ir šiuo atveju.
Variantas su macro_informacijos surinkimas iš visų lapų į vieną: www.failai.lt/kezbbbcw19b0/_suvestin__.xlsm.htm
Štai ir šiuo atveju.
Variantas su macro_informacijos surinkimas iš visų lapų į vieną: www.failai.lt/kezbbbcw19b0/_suvestin__.xlsm.htm
2013-06-05 12:53
Programinė įranga »
Excel »
#1159613
Excelyje sujungti (merge) langeliai yra didžiulė blogybė!
Kaip variantas su INDIRECT formule,bet lapų pavadinimai turi būti su skaičiais.
Kaip variantas su INDIRECT formule,bet lapų pavadinimai turi būti su skaičiais.
2013-06-04 19:49
Programinė įranga »
Excel »
#1159381
fani20 rašė:
o gal galima tarkim pirkeja kuris pas mane F6 kai įrašau ,kad ikeltu ta pati kitoj excel knygoj arba toje pacioje tik paskutiniam lape sąskaitu per mėnesį turiu daug tai gal įmanoma kazkaip sumesti į paskutini lapa kad nereiketu kiekvieno kopijuot?
Jūs ne ten pataikėte-jums reikia į ekstrasensų forumą.
Reikia pamatyti knygą su duomenimis.
O su VBA galima viską padaryti ar beveik viską.
fani20 rašė:
o gal galima tarkim pirkeja kuris pas mane F6 kai įrašau ,kad ikeltu ta pati kitoj excel knygoj arba toje pacioje tik paskutiniam lape sąskaitu per mėnesį turiu daug tai gal įmanoma kazkaip sumesti į paskutini lapa kad nereiketu kiekvieno kopijuot?
Jūs ne ten pataikėte-jums reikia į ekstrasensų forumą.
Reikia pamatyti knygą su duomenimis.
O su VBA galima viską padaryti ar beveik viską.
2013-06-04 10:32
Programinė įranga »
Excel »
#1159185
Kristiana__ rašė:
O tas automatinis PVM SF numeravimas veiks, jeigu PVM SF kopijuosimės? Vieną kartą kopijuoja PVM SF ES šalims išrašytą, kitą karta, kur vežimas ES šalis - Lietuva ir pan.?
Veiks.Kad nereikėtų uždarinėti ir atidarinėti knygos-pakeiskime veikimo principą.
Kodo paleidimą padarykime prie perėjimo į kitą knygos lapą: _Private Sub Workbook_SheetActivate(ByVal Sh As Object)_
Kodas atrodys taip:
rašė: Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim w As Worksheet
i = 58
For Each w In ThisWorkbook.Worksheets
w.Range("G4") = "APP" & i 'čia keičiame pagal save,kur sąskaitos nmr. bus
i = i + 1
Next w
End Sub
Kodą dedame į knygos modulį _ThisWorkbook_
Žiūrime multiką : www.failai.lt/yc4wkjiwt5wo/_S%C4%85skaitos_numer.wmv.htm
Kristiana__ rašė:
O tas automatinis PVM SF numeravimas veiks, jeigu PVM SF kopijuosimės? Vieną kartą kopijuoja PVM SF ES šalims išrašytą, kitą karta, kur vežimas ES šalis - Lietuva ir pan.?
Veiks.Kad nereikėtų uždarinėti ir atidarinėti knygos-pakeiskime veikimo principą.
Kodo paleidimą padarykime prie perėjimo į kitą knygos lapą: _Private Sub Workbook_SheetActivate(ByVal Sh As Object)_
Kodas atrodys taip:
rašė: Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim w As Worksheet
i = 58
For Each w In ThisWorkbook.Worksheets
w.Range("G4") = "APP" & i 'čia keičiame pagal save,kur sąskaitos nmr. bus
i = i + 1
Next w
End Sub
Kodą dedame į knygos modulį _ThisWorkbook_
Žiūrime multiką : www.failai.lt/yc4wkjiwt5wo/_S%C4%85skaitos_numer.wmv.htm
2013-06-03 23:30
Programinė įranga »
Excel »
#1159090
Su VBA greičiau.Pririšame kodą prie mygtuko:
rašė: Sub NumerisPlus()
Dim w As Worksheet
i = 58
For Each w In ThisWorkbook.Worksheets
w.Range("G4") = "APP" & i
i = i + 1
Next w
End Sub
O jei norime,kad veiktu automatiškai ,atidarant knygą-į ThisWorkbook modulį tą patį kodą:
rašė: Private Sub Workbook_Open()
............
.............
End Sub
rašė: Sub NumerisPlus()
Dim w As Worksheet
i = 58
For Each w In ThisWorkbook.Worksheets
w.Range("G4") = "APP" & i
i = i + 1
Next w
End Sub
O jei norime,kad veiktu automatiškai ,atidarant knygą-į ThisWorkbook modulį tą patį kodą:
rašė: Private Sub Workbook_Open()
............
.............
End Sub
2013-06-01 00:16
Programinė įranga »
Excel »
#1158714
Du variantai:
1. Excelis 2007 ir aukščiau -lapų kiekis neribojamas,viskas priklauso nuo PC pajėgumo ir virtualios atminties.Bet neapčiuopiama riba yra,tai 1 GB virt. atminties išnaudojimas ir stop.Juk informaciją apie lapus kažkur reikia saugoti...
2.Įsigyti specializuotą programą,tinkamą sandėlio prekėms dideliais kiekiais pajamuoti ir registruoti.
Palaikau antrą variantą.
1. Excelis 2007 ir aukščiau -lapų kiekis neribojamas,viskas priklauso nuo PC pajėgumo ir virtualios atminties.Bet neapčiuopiama riba yra,tai 1 GB virt. atminties išnaudojimas ir stop.Juk informaciją apie lapus kažkur reikia saugoti...
2.Įsigyti specializuotą programą,tinkamą sandėlio prekėms dideliais kiekiais pajamuoti ir registruoti.
Palaikau antrą variantą.
2013-05-31 12:45
Programinė įranga »
Excel »
#1158580
Kad būtų aiškiau,pažiūrime multiką : www.failai.lt/fhwzk0yodh4m/_multikas_05.31.wmv.htm
2010 ir 2013 exceliuose meniu ieškoti reikia panašiai.Gal irgi prie Add-Ins... ar kur šalimais.
2010 ir 2013 exceliuose meniu ieškoti reikia panašiai.Gal irgi prie Add-Ins... ar kur šalimais.
2013-05-30 23:12
Programinė įranga »
Excel »
#1158443
Blykste rašė:
Bandau nuorodą įdėti, neleidžia man prikabinti pačio failo.
http://s018.radikal.ru/i503/1305/17/a87103128659.jpg
Apačioj sheet'uose sukuriu kiekvienai prekei atskirą kortelę. Visų pirmą ar leis man apačios tiek tų sheet'ų įterpti, jei prekių bus keli šimtai? Ar taip reikia krauti? Ir jei aš įsijungsiu po to tą excel failą kaip man tarp tokio kiekio surast tą kortelę, kurios prekės man reikia?
Prašome,jei taip supratau,įdėjau į 'failai.lt-čia neleidžia knygų dėti su įjungtais macro.Atidarius knygą,panėlėje sukuriamas meniu.Ir pirmame lape yra pasirinkimas.Jei sukuriamas naujas lapas-uždaroma knyga ir vėl atidaroma ir meniu sąraše tas lapas jau yra.
www.failai.lt/a6bomvzj6gxk/_Blykst.xlsm.htm
Lapų pavadinimus galima keisti:uždarome knygą ir vėl atidarome-ir meniu pasikeičia.
Excel 2003 formatu tas pats : www.failai.lt/7q8rkwg9ot0z/_Blykst_excel2003.xls.htm
Paleidžiant įjungti macro komandų leidimą.
____
P.S. 2003 excelyje galima sukūrti iki 256 lapų.
Blykste rašė:
Bandau nuorodą įdėti, neleidžia man prikabinti pačio failo.
http://s018.radikal.ru/i503/1305/17/a87103128659.jpg
Apačioj sheet'uose sukuriu kiekvienai prekei atskirą kortelę. Visų pirmą ar leis man apačios tiek tų sheet'ų įterpti, jei prekių bus keli šimtai? Ar taip reikia krauti? Ir jei aš įsijungsiu po to tą excel failą kaip man tarp tokio kiekio surast tą kortelę, kurios prekės man reikia?
Prašome,jei taip supratau,įdėjau į 'failai.lt-čia neleidžia knygų dėti su įjungtais macro.Atidarius knygą,panėlėje sukuriamas meniu.Ir pirmame lape yra pasirinkimas.Jei sukuriamas naujas lapas-uždaroma knyga ir vėl atidaroma ir meniu sąraše tas lapas jau yra.
www.failai.lt/a6bomvzj6gxk/_Blykst.xlsm.htm
Lapų pavadinimus galima keisti:uždarome knygą ir vėl atidarome-ir meniu pasikeičia.
Excel 2003 formatu tas pats : www.failai.lt/7q8rkwg9ot0z/_Blykst_excel2003.xls.htm
Paleidžiant įjungti macro komandų leidimą.
____
P.S. 2003 excelyje galima sukūrti iki 256 lapų.
2013-05-30 08:20
Blevyzgos »
Pasijuokime mieli draugai »
#1158138
Cha...Graužinienės bizniukas žlugo.
Cha...Graužinienės bizniukas žlugo.
2013-05-27 13:55
Programinė įranga »
Excel »
#1157311
rašė: Sub Kopija()
Application.ScreenUpdating = False
Worksheets("4").Range("A2:AD18").Copy
Worksheets("4 (2)").Range("A1").PasteSpecial Paste:=xlValues
Range("AE1").Select
Application.CutCopyMode = none
Application.ScreenUpdating = True
End Sub
rašė: Sub Kopija()
Application.ScreenUpdating = False
Worksheets("4").Range("A2:AD18").Copy
Worksheets("4 (2)").Range("A1").PasteSpecial Paste:=xlValues
Range("AE1").Select
Application.CutCopyMode = none
Application.ScreenUpdating = True
End Sub
2013-05-27 12:56
Blevyzgos »
Naudingi patarimai »
#1157284
Aš nenešioju ir patarti,deja,negaliu 
Beje,manau,kad labai nepraktiškas-jokių užsegimu,o kaip greitai atsegti?Nepatogu ir taškas,ir jokios paslapties:plastmasinis ar su kabliukais?
Mauti per galvą?Damai sugadinsi šukuoseną ir nieko nebegausi.Negerai ir viskas.
Beje,manau,kad labai nepraktiškas-jokių užsegimu,o kaip greitai atsegti?Nepatogu ir taškas,ir jokios paslapties:plastmasinis ar su kabliukais?
Mauti per galvą?Damai sugadinsi šukuoseną ir nieko nebegausi.Negerai ir viskas.
2013-05-27 12:48
Programinė įranga »
Excel »
#1157278
Reikia tik noro ir išmoksime.Patikėkite,tai galingas pagalbininkas excelio aplinkoje.Laiko atims nemažai,kol išmoksime,bet paskui sutaupys dvigubai daugiau laiko,nei praradote besimokydami.
Pradžiamokslis ,kur rašyti ar patalpinti VBA kodą: http://www.anthony-vba.kefra.com/vba/vbabasic1.htm
Pradžiamokslis ,kur rašyti ar patalpinti VBA kodą: http://www.anthony-vba.kefra.com/vba/vbabasic1.htm
2013-05-26 17:45
Programinė įranga »
Excel »
#1157176
Nieko ten sudėtingo,dedame kodą fiksuojantį pasikeitimus 1 lape,o 2 lape atvaizduojame.
Trumpas filmukas apie tai: www.failai.lt/mbmrkge6qxte/VBA_macro.gif.htm
Trumpas filmukas apie tai: www.failai.lt/mbmrkge6qxte/VBA_macro.gif.htm
2013-05-24 20:43
Programinė įranga »
Excel »
#1157063
Mokytis niekuomet nevėlu: office.microsoft.com/lt-lt/training/RZ001150634.aspx?section=1
2013-05-24 09:29
Programinė įranga »
Excel »
#1156919
Su VBA excelyje viskas įmanoma.Reikia kodą rašyti,pavz. prie reikšmės pasikeitimo(SelectionChange) arba Worksheet_Change
filtruojant duomenis pagal kriterijų,panašiai:
rašė: Set wsSource = Sheets("Sheet1")
With wsSource
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:A" & lRow).AutoFilter Field:=1, Criteria1:="12"
.Range("A1:A" & lRow).Copy Sheets("Sheet2").Range("A1")
.Range("A1").AutoFilter
Į langelį įrašius kriterijų(12),langelis su visu formatu ir spalvomis ir reikšmėmis atsiduria ten,kur pasiunčiame....
filtruojant duomenis pagal kriterijų,panašiai:
rašė: Set wsSource = Sheets("Sheet1")
With wsSource
lRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:A" & lRow).AutoFilter Field:=1, Criteria1:="12"
.Range("A1:A" & lRow).Copy Sheets("Sheet2").Range("A1")
.Range("A1").AutoFilter
Į langelį įrašius kriterijų(12),langelis su visu formatu ir spalvomis ir reikšmėmis atsiduria ten,kur pasiunčiame....
2013-05-23 13:43
PVM »
PVM sąskaita faktūra »
#1156758
Palaikau programą.
S/F dažnai prikuria kliurkų beraščiai vaidybininkai.
S/F dažnai prikuria kliurkų beraščiai vaidybininkai.
2013-05-23 13:24
Programinė įranga »
Excel »
#1156745
kaprizznaja rašė:
niekas nepadės?
Niekas failo neįmęs?
---------------------------------
O tiesa slypi kažkur šalia:
kaprizznaja rašė:
niekas nepadės?
Niekas failo neįmęs?
---------------------------------
O tiesa slypi kažkur šalia:
2013-05-23 13:19
Blevyzgos »
Naudingi patarimai »
#1156738
Sedėjau ant tokio prieš 6 ar 8 metus. A27 kelyje link Bremeno autobano kuro kolonėlės WC.Pirmą kartą išsigandau-maniau,kad teroristai lenda iš unitazo.Antrą kartą,kaip pirmą,o paskui pripranti...
Sedėjau ant tokio prieš 6 ar 8 metus. A27 kelyje link Bremeno autobano kuro kolonėlės WC.Pirmą kartą išsigandau-maniau,kad teroristai lenda iš unitazo.Antrą kartą,kaip pirmą,o paskui pripranti...
2013-05-22 13:07
Blevyzgos »
Pasijuokime mieli draugai »
#1156411
Galite blogą kaimyną priduoti:
www.beseselio.lt/
tik neapsirikite-paklaida ~500 metrų.Gali ir namus sumaišyti.
__________________
Pagal žemėlapio davinius gaunasi,kad seimo rūmuose vyksta pati didžiausia nelegali prekyba
Eilinis pinigų plovimas-norėjo atseit,kaip naudingiau,o gavosi,kaip visada...
www.beseselio.lt/
tik neapsirikite-paklaida ~500 metrų.Gali ir namus sumaišyti.
__________________
Pagal žemėlapio davinius gaunasi,kad seimo rūmuose vyksta pati didžiausia nelegali prekyba
Eilinis pinigų plovimas-norėjo atseit,kaip naudingiau,o gavosi,kaip visada...
2013-05-21 12:38
Programinė įranga »
Buhalterinė programa "Centas" »
#1156069
Darbas_Darbo užmokestis_Atostogos_Neštumo ir gimdymo atostogos
2013-05-21 11:27
Programinė įranga »
Buhalterinė programa "Centas" »
#1156035
Tuomet teks siųsti rezervą į Edlontą-nes nematant DB spėliok nespėliojęs...
2013-05-21 09:47
Programinė įranga »
Buhalterinė programa "Centas" »
#1155994
Litinėje sąskaitoje valiutos langelyje turi būti tuščia 
Jokiu SEX negali būti.
Jokiu SEX negali būti.
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui