Excel
ABA2
1824
2013-06-03 23:30
ABA2
2013-06-03 23-42
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
F
2013-06-03 23:47
fani20
ABA2 rašė:
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
AČIŪ LABAI. veikia butent taip kaip reikia. :)
ABA2 rašė:
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
AČIŪ LABAI. veikia butent taip kaip reikia. :)
K
2013-06-04 09:06
Kajitoku
Labai tingiu ieškoti tinkamo atsakymo, nes daug psl. Bet klausimas paprastas, kaip suapvalinti skaičius pvz jei duota ten koks 35,12635 iki dviejų skaičių po kableliu? 2010excelyje:)
Kristiana__
8861
2013-06-04 09:29
Kristiana__
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.?
Gita1
8612
2013-06-04 10:03
Gita1
Kajitoku rašė:
Labai tingiu ieškoti tinkamo atsakymo, nes daug psl. Bet klausimas paprastas, kaip suapvalinti skaičius pvz jei duota ten koks 35,12635 iki dviejų skaičių po kableliu? 2010excelyje:)
=ROUND(skaičius;2)
ar šito norėjot?
Kajitoku rašė:
Labai tingiu ieškoti tinkamo atsakymo, nes daug psl. Bet klausimas paprastas, kaip suapvalinti skaičius pvz jei duota ten koks 35,12635 iki dviejų skaičių po kableliu? 2010excelyje:)
=ROUND(skaičius;2)
ar šito norėjot?
K
2013-06-04 10:27
Kajitoku
Gita1 rašė:
Kajitoku rašė:
Labai tingiu ieškoti tinkamo atsakymo, nes daug psl. Bet klausimas paprastas, kaip suapvalinti skaičius pvz jei duota ten koks 35,12635 iki dviejų skaičių po kableliu? 2010excelyje:)
=ROUND(skaičius;2)
ar šito norėjot?
taip tikrai, ačiū, žinojau, kad round, bet va visai nežinojau, kaip ta formule panaudot. ačiū!
Gita1 rašė:
Kajitoku rašė:
Labai tingiu ieškoti tinkamo atsakymo, nes daug psl. Bet klausimas paprastas, kaip suapvalinti skaičius pvz jei duota ten koks 35,12635 iki dviejų skaičių po kableliu? 2010excelyje:)
=ROUND(skaičius;2)
ar šito norėjot?
taip tikrai, ačiū, žinojau, kad round, bet va visai nežinojau, kaip ta formule panaudot. ačiū!
ABA2
1824
1
2013-06-04 10:32
ABA2
2013-06-04 10-36
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
Kristiana__
8861
2013-06-04 11:05
Kristiana__
Širdingai 
dėkavoju 
Išbandysiu, kai rasiu laisvą laiko minutę darbo pagerinimui
dėkavoju
Išbandysiu, kai rasiu laisvą laiko minutę darbo pagerinimui
F
2013-06-04 12:43
fani20
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?
ABA2
1824
2013-06-04 19:49
ABA2
2013-06-04 19-52
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ą.
F
ABA2
1824
amadina22
19757
2013-06-05 13:02
amadina22
ABA2 rašė:
Excelyje sujungti (merge) langeliai yra didžiulė blogybė!
Kodėl?
ABA2 rašė:
Excelyje sujungti (merge) langeliai yra didžiulė blogybė!
Kodėl?
ABA2
1824
2013-06-05 14:41
ABA2
2013-06-06 20-45
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
amadina22
19757
2013-06-05 14:43
amadina22
Vaje, o pas mane visi stulpeliai sujungti.
Aš pasidarau tokį tinklelį, kur kolonos 16 pikselių ir paskui sujunginėju kaip man reikia.
Aš pasidarau tokį tinklelį, kur kolonos 16 pikselių ir paskui sujunginėju kaip man reikia.
ABA2
1824
1
2013-06-05 14:51
ABA2
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!)
amadina22
19757
2013-06-05 14:55
amadina22
Nemoku sudėtingų formulių, pasirodo, kad kartais gerai nieko nemokėti, nes tada nežinai kokios problemos gali būti ir ramiai gyveni
Nemoku sudėtingų formulių, pasirodo, kad kartais gerai nieko nemokėti, nes tada nežinai kokios problemos gali būti ir ramiai gyveni
vovere
25997
2013-06-05 18:50
vovere
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
Kristiana__
8861
2013-06-05 19:00
Kristiana__
Tai panaikinti paslėpimą arba nuiimti lapo fiksavimą, manau tas turėtų padėti 
quote=vovere]
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
[/quote]
quote=vovere]
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
[/quote]
Tax.lt © 2002 - 2026, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui