Excel
Tiesi
4035
2005-11-14 21:31
Tiesi
2011-09-11 03-54
jei aš teisingai supratau, Tu nori, kad pildant pinigų priėmimo kvitus, automatiškai užsipildytų ir duombazė?
Gal aš čia ir negudriai mąstau, bet... Ar ne geriau kad kvitai pasiimtų duomenis iš duombazės, o ne atvirkščiai? T.y. įvedi info į duombazę, pasirinkus atitinkamą įrašą kažkokia pasirinkta "valdančiąja" ląstele (tarkim įrašo numeris ar pavardė, svarbu, kad nesikartotų), kvitas užsipildo pats ir jį gali spausdinti.
NOLINA rašė:
Klausimas gal ir juokingas pasirodys, bet aš neįveikiu.
Kaip padaryti taip, kad tarkim:
A1:G1 irašomi duomenys (tekstas, skaičiai);
šie duomenys automatiškai būtų nukopijuoti tarkim į A10:G10;
kai ištrinu duomenis iš A1:G1, reikia kad A10:G10 duomenys pasiliktų;
toliau vėl įvedant duomenis į A1:G1, šie duomenys jau būtų nukopijuoti į A11:G11 ir ten pasiliktų;
ir t.t. lentelė vis augtų įvedant naujus duomenis.
Data->Form... netinka, nes stulpelių yra labai daug.
Su if funkcija ar macros'u gal šitą dalyką įmanoma padaryti? O gal dar kaip nors kitaip dar?
Gal aš čia ir negudriai mąstau, bet... Ar ne geriau kad kvitai pasiimtų duomenis iš duombazės, o ne atvirkščiai? T.y. įvedi info į duombazę, pasirinkus atitinkamą įrašą kažkokia pasirinkta "valdančiąja" ląstele (tarkim įrašo numeris ar pavardė, svarbu, kad nesikartotų), kvitas užsipildo pats ir jį gali spausdinti.
NOLINA rašė:
Klausimas gal ir juokingas pasirodys, bet aš neįveikiu.
Kaip padaryti taip, kad tarkim:
A1:G1 irašomi duomenys (tekstas, skaičiai);
šie duomenys automatiškai būtų nukopijuoti tarkim į A10:G10;
kai ištrinu duomenis iš A1:G1, reikia kad A10:G10 duomenys pasiliktų;
toliau vėl įvedant duomenis į A1:G1, šie duomenys jau būtų nukopijuoti į A11:G11 ir ten pasiliktų;
ir t.t. lentelė vis augtų įvedant naujus duomenis.
Data->Form... netinka, nes stulpelių yra labai daug.
Su if funkcija ar macros'u gal šitą dalyką įmanoma padaryti? O gal dar kaip nors kitaip dar?
N
2005-11-14 22:06
NOLINA
2011-09-11 03-54
Tiesi rašė: jei aš teisingai supratau, Tu nori, kad pildant pinigų priėmimo kvitus, automatiškai užsipildytų ir duombazė?
Gal aš čia ir negudriai mąstau, bet... Ar ne geriau kad kvitai pasiimtų duomenis iš duombazės, o ne atvirkščiai? T.y. įvedi info į duombazę, pasirinkus atitinkamą įrašą kažkokia pasirinkta "valdančiąja" ląstele (tarkim įrašo numeris ar pavardė, svarbu, kad nesikartotų), kvitas užsipildo pats ir jį gali spausdinti.
Tu teisingai supratai. Kvitus pildo keli darbuotojai, o prie duonbazės gali prieiti tik vienas darbuotojas. Todėl reikia kad pildant kvitus pasipildytų duonbazė.
Tiesi rašė: jei aš teisingai supratau, Tu nori, kad pildant pinigų priėmimo kvitus, automatiškai užsipildytų ir duombazė?
Gal aš čia ir negudriai mąstau, bet... Ar ne geriau kad kvitai pasiimtų duomenis iš duombazės, o ne atvirkščiai? T.y. įvedi info į duombazę, pasirinkus atitinkamą įrašą kažkokia pasirinkta "valdančiąja" ląstele (tarkim įrašo numeris ar pavardė, svarbu, kad nesikartotų), kvitas užsipildo pats ir jį gali spausdinti.
Tu teisingai supratai. Kvitus pildo keli darbuotojai, o prie duonbazės gali prieiti tik vienas darbuotojas. Todėl reikia kad pildant kvitus pasipildytų duonbazė.
A
W
2005-11-14 22:22
Wertis
2011-09-11 03-54
to Nolina and all:
gražu, įspūdinga, nemažai darbo įdėta. mygtukuose įdėti paveiksliukus - reikia įkvėpimo :)
jei tai ne tik saviraiška, bet ir skirta naudojimui, iškart siūlau - pamiršk excel, įsijunk access.
sumos žodžiu realizacija bent man atrodo nematyta, panašu kad kažkas savistoviai ją sukūrė (netingėjo gi, o ir žinių pakako!). tuomet keista kodėl užkliūvama už elementarių detalių kaip kad ta, dėl kurios parašyta Nolinos žinutė. tuo pat pastebima ir mėgėjiškų sprendimų.
kas šio žavaus projektuko autorius?
na ir atsakymas į Nolinos klausimą:
iš žinutės atrodė, kad macro nenaudoji, nes naudojant vieni niekai padaryti tai ko nori (jei aišku gerai supratau). taigis, sakykim lentelės db ląstelėje A1 įrašai reikšmę 6. ši reikšmė pasitarnaus kaip einamosios eilutės indeksas. o UserForm4 procedūroje CommandButton1_Click vietoje kodo eilutės
Worksheets("db").Cells(6, 5).Value = UserForm4.TextBox1.Text
rašyk
Worksheets("db").Cells(Worksheets("db").Cells(1, 1).Value, 5).Value = UserForm4.TextBox1.Text
esmė, kad nurodai ne statiškai konkrečią ląstelę, o pagal kintamą A1 reikšmę. atitinkamai reikia ir kitas eilutes pertvarkyti, manau pagavai kaip. kai visos eilutės ląstelės bus užpildytos, procedūros gale reikalinga kodo eilutė didinanti A1 reikšmę vienetu:
Worksheets("db").Cells(1, 1).Value = Worksheets("db").Cells(1, 1).Value + 1
gražu, įspūdinga, nemažai darbo įdėta. mygtukuose įdėti paveiksliukus - reikia įkvėpimo :)
jei tai ne tik saviraiška, bet ir skirta naudojimui, iškart siūlau - pamiršk excel, įsijunk access.
sumos žodžiu realizacija bent man atrodo nematyta, panašu kad kažkas savistoviai ją sukūrė (netingėjo gi, o ir žinių pakako!). tuomet keista kodėl užkliūvama už elementarių detalių kaip kad ta, dėl kurios parašyta Nolinos žinutė. tuo pat pastebima ir mėgėjiškų sprendimų.
kas šio žavaus projektuko autorius?
na ir atsakymas į Nolinos klausimą:
iš žinutės atrodė, kad macro nenaudoji, nes naudojant vieni niekai padaryti tai ko nori (jei aišku gerai supratau). taigis, sakykim lentelės db ląstelėje A1 įrašai reikšmę 6. ši reikšmė pasitarnaus kaip einamosios eilutės indeksas. o UserForm4 procedūroje CommandButton1_Click vietoje kodo eilutės
Worksheets("db").Cells(6, 5).Value = UserForm4.TextBox1.Text
rašyk
Worksheets("db").Cells(Worksheets("db").Cells(1, 1).Value, 5).Value = UserForm4.TextBox1.Text
esmė, kad nurodai ne statiškai konkrečią ląstelę, o pagal kintamą A1 reikšmę. atitinkamai reikia ir kitas eilutes pertvarkyti, manau pagavai kaip. kai visos eilutės ląstelės bus užpildytos, procedūros gale reikalinga kodo eilutė didinanti A1 reikšmę vienetu:
Worksheets("db").Cells(1, 1).Value = Worksheets("db").Cells(1, 1).Value + 1
W
2005-11-14 22:25
Wertis
2011-09-11 03-54
PS to Nolina:
panašiai siūlyčiau realizuoti ir kvitų nr kaitą
panašiai siūlyčiau realizuoti ir kvitų nr kaitą
L
2005-11-14 23:17
Loreta13
2011-09-11 03-54
Wertis sutrikęs....
sumos žodžiu realizacija bent man atrodo nematyta, panašu kad kažkas savistoviai ją sukūrė (netingėjo gi, o ir žinių pakako!)
sumos žodžiu realizacija bent man atrodo nematyta, panašu kad kažkas savistoviai ją sukūrė (netingėjo gi, o ir žinių pakako!)
N
2005-11-14 23:30
NOLINA
2011-09-11 03-54
To Wertis:
Labai didelis ačiū. Tikrai padėjai su šia problemėle kai paskaičiau ką parašiai tai supratau, kad juk taip elementaru ir paprasta, bet kai būna dažniausiai kur elementaru tai ir užkliūvi.
Kas liečia access tai mielai įsijungčiau, bet kur bus naudojama ši kūryba ten nėra access tai tenka tenkintis excel.
Dėl autoriaus šio projektuko tai suma žodžiais kažkur kopinta ir koreguota, o viskas kita tai "Nolinos".
Dar kartą didelis ačiū !!!
Labai didelis ačiū. Tikrai padėjai su šia problemėle kai paskaičiau ką parašiai tai supratau, kad juk taip elementaru ir paprasta, bet kai būna dažniausiai kur elementaru tai ir užkliūvi.
Kas liečia access tai mielai įsijungčiau, bet kur bus naudojama ši kūryba ten nėra access tai tenka tenkintis excel.
Dėl autoriaus šio projektuko tai suma žodžiais kažkur kopinta ir koreguota, o viskas kita tai "Nolinos".
Dar kartą didelis ačiū !!!
L
2005-11-14 23:34
Loreta13
2011-09-11 03-54
NOLINA rašė: To Wertis:
Labai didelis ačiū. Tikrai padėjai su šia problemėle kai paskaičiau ką parašiai tai supratau, kad juk taip elementaru ir paprasta, bet kai būna dažniausiai kur elementaru tai ir užkliūvi.
Kas liečia access tai mielai įsijungčiau, bet kur bus naudojama ši kūryba ten nėra access tai tenka tenkintis excel.
Dėl autoriaus šio projektuko tai suma žodžiais kažkur kopinta ir koreguota, o viskas kita tai "Nolinos".
Dar kartą didelis ačiū !!!
O NOLINA protinga....
Čia su baltu pavydu....
Smagu..kai žmogučiai gal sau pasidaryti tokius dalykėlius...
NOLINA rašė: To Wertis:
Labai didelis ačiū. Tikrai padėjai su šia problemėle kai paskaičiau ką parašiai tai supratau, kad juk taip elementaru ir paprasta, bet kai būna dažniausiai kur elementaru tai ir užkliūvi.
Kas liečia access tai mielai įsijungčiau, bet kur bus naudojama ši kūryba ten nėra access tai tenka tenkintis excel.
Dėl autoriaus šio projektuko tai suma žodžiais kažkur kopinta ir koreguota, o viskas kita tai "Nolinos".
Dar kartą didelis ačiū !!!
O NOLINA protinga....
Čia su baltu pavydu....
Smagu..kai žmogučiai gal sau pasidaryti tokius dalykėlius...
jofky
3286
2005-11-15 08:11
jofky
Nuostabus darbelis, šaunuolė .
Ar galėčiau nupiratauti šį darbą?
Na turiu omeny, kaip pasikeisti į savo įmonės rekvizitus
, duonbazės man nereikia tik kvitų išrašymą.
.
Ar galėčiau nupiratauti šį darbą?
Na turiu omeny, kaip pasikeisti į savo įmonės rekvizitus
, duonbazės man nereikia tik kvitų išrašymą.
N
2005-11-15 09:56
NOLINA
2011-09-11 03-54
To "jofky"
Ačiū už įvertinimą. Nupiratauti gali, bet jis dar nebaigtas. Nėra pinigu išmokėjimo kvito.
Įmonės duomenys įsiveda pirmam lange paspaudus mygtuką su duomenų bazės ikona kuris randasi kairėje, apačioje. Suvedi savo įmonės duomenis ir spaudi "Keisti".
Ačiū už įvertinimą. Nupiratauti gali, bet jis dar nebaigtas. Nėra pinigu išmokėjimo kvito.
Įmonės duomenys įsiveda pirmam lange paspaudus mygtuką su duomenų bazės ikona kuris randasi kairėje, apačioje. Suvedi savo įmonės duomenis ir spaudi "Keisti".
L
2005-11-15 13:36
Loreta13
2011-09-11 03-54
NOLINA rašė: To "jofky"
Ačiū už įvertinimą. Nupiratauti gali, bet jis dar nebaigtas. Nėra pinigu išmokėjimo kvito.
Įmonės duomenys įsiveda pirmam lange paspaudus mygtuką su duomenų bazės ikona kuris randasi kairėje, apačioje. Suvedi savo įmonės duomenis ir spaudi "Keisti".
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
NOLINA rašė: To "jofky"
Ačiū už įvertinimą. Nupiratauti gali, bet jis dar nebaigtas. Nėra pinigu išmokėjimo kvito.
Įmonės duomenys įsiveda pirmam lange paspaudus mygtuką su duomenų bazės ikona kuris randasi kairėje, apačioje. Suvedi savo įmonės duomenis ir spaudi "Keisti".
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
N
2005-11-15 14:38
NOLINA
2011-09-11 03-54
To Loreta13:
Loreta13 rašė:
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
Nemandagu į klausimą klausimu atsakyti, bet aš paklausiu.
O kaip reikia?
Eurai arba Litai pasirinktinai.
Ar tik Eurai.
Loreta13 rašė:
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
Nemandagu į klausimą klausimu atsakyti, bet aš paklausiu.
O kaip reikia?
Eurai arba Litai pasirinktinai.
Ar tik Eurai.
L
2005-11-15 15:00
Loreta13
2011-09-11 03-54
NOLINA rašė: To Loreta13:
Loreta13 rašė:
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
Nemandagu į klausimą klausimu atsakyti, bet aš paklausiu.
O kaip reikia?
Eurai arba Litai pasirinktinai.
Ar tik Eurai.
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
NOLINA rašė: To Loreta13:
Loreta13 rašė:
Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot
Nemandagu į klausimą klausimu atsakyti, bet aš paklausiu.
O kaip reikia?
Eurai arba Litai pasirinktinai.
Ar tik Eurai.
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
N
2005-11-15 17:05
NOLINA
2011-09-11 03-54
To "Loreta13"
Loreta13 rašė:
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
Taip padaryti galima, bet tai užtruks.
Ar tu nenori naudoti vieną Litais, o kita Eurais?
[color=darkred][/color][color=red][/color][color=orange][/color]
Loreta13 rašė:
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
Taip padaryti galima, bet tai užtruks.
Ar tu nenori naudoti vieną Litais, o kita Eurais?
[color=darkred][/color][color=red][/color][color=orange][/color]
L
2005-11-15 17:19
Loreta13
2011-09-11 03-54
NOLINA rašė: To "Loreta13"
Loreta13 rašė:
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
Taip padaryti galima, bet tai užtruks.
Ar tu nenori naudoti vieną Litais, o kita Eurais?
[color=darkred][/color][color=red][/color][color=orange][/color]
Na ačiū už rūpestį. Tai savo įmonėje tikrai nenaudoju, nes mes kol kas nerašome PPK, nes viskas vykdoma per kasos aparatą...
Tiesiok mokymo tikslais pademonstruočiau, kokių yra šaunių galimybių. Taip kad tinka ir atskiri.
NOLINA rašė: To "Loreta13"
Loreta13 rašė:
Arba arba..kad juos ir atskirai registruotų...kitomis serijomis ir Nr.
Na tai nėra prašymas...nes nesu tiek įžūli...
Taip padaryti galima, bet tai užtruks.
Ar tu nenori naudoti vieną Litais, o kita Eurais?
[color=darkred][/color][color=red][/color][color=orange][/color]
Na ačiū už rūpestį. Tai savo įmonėje tikrai nenaudoju, nes mes kol kas nerašome PPK, nes viskas vykdoma per kasos aparatą...
Tiesiok mokymo tikslais pademonstruočiau, kokių yra šaunių galimybių. Taip kad tinka ir atskiri.
Vo cia tai darbas... NOLINA saunole 
N
2005-11-15 22:57
NOLINA
2011-09-11 03-54
To Loreta13:
Loreta13 rašė: Na ačiū už rūpestį. Tai savo įmonėje tikrai nenaudoju, nes mes kol kas nerašome PPK, nes viskas vykdoma per kasos aparatą...
Tiesiok mokymo tikslais pademonstruočiau, kokių yra šaunių galimybių. Taip kad tinka ir atskiri.
Siunčiu formą su Eurais.
Parašyk ar taip turi būti.
ppkvitasEur.xls
Loreta13 rašė: Na ačiū už rūpestį. Tai savo įmonėje tikrai nenaudoju, nes mes kol kas nerašome PPK, nes viskas vykdoma per kasos aparatą...
Tiesiok mokymo tikslais pademonstruočiau, kokių yra šaunių galimybių. Taip kad tinka ir atskiri.
Siunčiu formą su Eurais.
Parašyk ar taip turi būti.
ppkvitasEur.xls
L
2005-11-16 18:19
Loreta13
Na labai šaunu 
Ryt pat pademonstruosiu. Atsiliepimus tau parašysiu. Nors jau žinau, kad tai bus tik pagiriamieji žodžiai
Ryt pat pademonstruosiu. Atsiliepimus tau parašysiu. Nors jau žinau, kad tai bus tik pagiriamieji žodžiai
A
2005-11-16 18:51
A_Arvis
2011-09-11 03-54
Wertis rašė: to Nolina and all:
.......Worksheets("db").Cells(6, 5).Value = UserForm4.TextBox1.Text
rašyk
Worksheets("db").Cells(Worksheets("db").Cells(1, 1).Value, 5).Value = UserForm4.TextBox1.Text
esmė, kad nurodai ne statiškai konkrečią ląstelę, o pagal kintamą A1 reikšmę. atitinkamai reikia ir kitas eilutes pertvarkyti, manau pagavai kaip. kai visos eilutės ląstelės bus užpildytos, procedūros gale reikalinga kodo eilutė didinanti A1 reikšmę vienetu:
Worksheets("db").Cells(1, 1).Value = Worksheets("db").Cells(1, 1).Value + 1
Blembulyte tik dabar turbut daejo kad cia kazkas panasaus i:
Sheets("db").Select
ActiveCell.Offset(6, 5).Range("A1").Select
tik galutiniuose paskaiciuoti plius viena ir minusa antram skaiciui.
Bent jau man atrodo, kad cia labai jau panasu
Wertis rašė: to Nolina and all:
.......Worksheets("db").Cells(6, 5).Value = UserForm4.TextBox1.Text
rašyk
Worksheets("db").Cells(Worksheets("db").Cells(1, 1).Value, 5).Value = UserForm4.TextBox1.Text
esmė, kad nurodai ne statiškai konkrečią ląstelę, o pagal kintamą A1 reikšmę. atitinkamai reikia ir kitas eilutes pertvarkyti, manau pagavai kaip. kai visos eilutės ląstelės bus užpildytos, procedūros gale reikalinga kodo eilutė didinanti A1 reikšmę vienetu:
Worksheets("db").Cells(1, 1).Value = Worksheets("db").Cells(1, 1).Value + 1
Blembulyte tik dabar turbut daejo kad cia kazkas panasaus i:
Sheets("db").Select
ActiveCell.Offset(6, 5).Range("A1").Select
tik galutiniuose paskaiciuoti plius viena ir minusa antram skaiciui.
Bent jau man atrodo, kad cia labai jau panasu
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui