Excel

Tiesi 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?
N
NOLINA 106
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ė.
A
asta-001 951
2005-11-14 22:15 asta-001
gal ne visai į temą, bet gal yra kas dirba OPEN Office Exel'iu?
W
Wertis 308
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

W
Wertis 308
2005-11-14 22:25 Wertis 2011-09-11 03-54
PS to Nolina:
panašiai siūlyčiau realizuoti ir kvitų nr kaitą

L
Loreta13 30844
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!)
N
NOLINA 106
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ū !!!

smile smile smile
L
Loreta13 30844
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ū !!!

smile smile smile


O NOLINA protinga....
Čia su baltu pavydu....
Smagu..kai žmogučiai gal sau pasidaryti tokius dalykėlius...
jofky jofky 3287
2005-11-15 08:11 jofky
Nuostabus darbelis, šaunuolė smile .
Ar galėčiau nupiratauti šį darbą?
Na turiu omeny, kaip pasikeisti į savo įmonės rekvizitus smile , duonbazės man nereikia tik kvitų išrašymą.
N
NOLINA 106
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".

smile
L
Loreta13 30844
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".

smile

Nemandagu..kažkieno darbą bandant naudot..dar prašyt..bet pabandysiu, bent jau paklaust..ar yra kokia galimybė čia ne litus o EUR naudot smile
N
NOLINA 106
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 smile

Nemandagu į klausimą klausimu atsakyti, bet aš paklausiu.
O kaip reikia?
Eurai arba Litai pasirinktinai.
Ar tik Eurai.

L
Loreta13 30844
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 smile

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. smile
Na tai nėra prašymas...nes nesu tiek įžūli...
N
NOLINA 106
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. smile
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
Loreta13 30844
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. smile
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.
A
A_Arvis 128
2005-11-15 21:04 A_Arvis
Joooo... smile Vo cia tai darbas... NOLINA saunole smile
N
NOLINA 106
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
L
Loreta13 30844
2005-11-16 18:19 Loreta13
Na labai šaunu smile
Ryt pat pademonstruosiu. Atsiliepimus tau parašysiu. Nors jau žinau, kad tai bus tik pagiriamieji žodžiai
A
A_Arvis 128
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
nieko_sau nieko_sau 3857
2005-11-16 18:53 nieko_sau
Nolina, tu šaunuolė smile Jei įdėjai laisvai forume-tai gal nepyksi, jei pasinaudosiu ja savo darbe-tiesiog idealiai sukurta mūsų poreikiams:)
Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis
Tax.lt © 2002 - 2024, admin@tax.lt, Reklama tax.lt

Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui