Taip dirbti su tabeliais patogiau

Mėgstu visokius vykruntasus. Visada mąsčiau - jeigu jau turime kompiuterius, tai turime išnaudoti visas jų galimybes.

Didesnėse įmonėse tabelių pildymas kompiuteriu yra varginantis darbas. O jeigu dar prireiktų staiga parodyti šiai dienai supildytą tabelį (DI siaučia :) ) jei yra kokių 300 darbuotojų, o tai jau nedaryta 2 savaites? Nemalonus jausmas. :)


Taigi, pamiklinęs smegenėles patobulinau paprasčiausią excelyje pildomą darbo tabelį. Dabar užtenka suvesti duomenis bendroje patogioje lentelėje, pažymėti kad su darbuotojo darbadieniais viskas OK, pažymėti jo neatvykimus su indeksu, nuo iki, ir tabelis kiekvieną dieną užpildomas automatiškai. Tuo kas gera, galima pasidalinti ir su kitais :). Prisitaikykite, naudotite į sveikatą, jei suprasite, kas kaip ir kodėl, ir ką daro visos formulės.

O jei reiktų konsultacijos, ar ko nors panašaus, tik labiau pritaikyto jūsų įmonei - manau susitarsime. :) Personalo DB 2004 lapkritis.zip

Kažkodėl nieko, ar čia man vienai taip gaunasi

Ačiū, dalykas tikrai labai įdomus ir naudingas. Bet gal galėtum truputį plačiau apie lentelės valdymą? T.y. kur keičiasi laikotarpis? Kiti dalykai, kuriuos Tavo paties nuomone reiktų paminėt?

Ir dar truputukas... Kai skambinau į VDI, man išaiškino, kad neatvykimai, prilyginti darbo laikui (pvz komandiruotė) privaloma žymėti taip: trečioje eilutėje K, pirmoje eilutėje žymimos valandos - tarkim 8)
Kaip suprantu, analogiškai priklauso žymėti atostogas ir ligą.

Ir man nieko Koks cia failas? Neatidaro mano turimos programos.

atėjus naujam mėnesiui reikia pakeisti formulėse datą į prieš tai buvusio mėn paskutinę dieną, ir makrokomandose - tools.VisualBasicEditor - taip pat.

daiktas toli gražu nėra tobulas :), kadangi pats dariau, tai žinau kaip jis veikia ir kur ką keisti. o kitiems gali atrodyti sudėtingas. bet dabar nelabai turiu stimulo tobulinti...

dėl pildymo tvarkos - kaip ir kurioje eilutėje rašomi neatvykimai - galima tą pakeisti, bet reiktų pasėdėti, pagalvoti ir šį tą pataisyti.

O daugiau dėl valdymo - patariu žingsnis po žingsnio išnagrinėti formules, tada suprasite visus tuos niuansus. kitaip man reiktų rašyti be galo platų komentarą, o tam aš neturiu laiko :)). Turiu įspėti, kad antroje ir trečioje tabelio eilutėse yra tarpinės formulės, tik padarytos baltu šriftu, kad spausdinant nesimatytų. Todėl pradėti reiktų nuo apatinės, trečios eilutės - žiūrėti kokia ten formulė, ką ji tikrina ir kokį rezultatą duoda. Tada tas rezultatas naudojamas antroje eilutėje, o antros eilutės rezultatas savo ruožtu - pirmojoje, matomoje eilutėje. Tokius tarpinius skaičiavimus turėjau padaryti dėl to, kad Excelis riboja formulės ilgį ir IF skaičių vienoje formulėje.

Almai failas neatsidaro Kuom zipinai.

Jau išsiaiškinau - zipas Rarinis - bet archyvuota 2 kartus - reikia pakeisti prapletima.
Jo bet darbo ideta.

kad vyriausybė REKOMENDAVO, bet nenurodė, kaip žymėti neatvykimus. todėl maniškiai pagal seną įpratimą išnaudoja tik vieną iš trijų eilučių
Cia visiška neteisybė.
2004 01 27 LR Vyriausybės nutarimas Nr 78 patvirtinta darbo laiko apskaitos žiniaraščių pildymo tvraka.
Mus prieš savaitę tikrino darbo inspekcija ir įrašė tokį pažeidimą.

Dėl IF žinau, o visa kita man pernelyg sudėtinga... Nemoku skaityt formulių Ypač kai net ne visos funkcijos žinomos (pvz ką reiškia HLOOKUP?) Ką konkrečiai turėčiau keisti makrokomandose - tools.VisualBasicEditor - jei norėčiau nustatyt tarkim 2004 m. gruodžio mėn? Ar gali funkcijos HLOOKUP ir VLOOKUP dirbti ne su data kabutėse, kaip yra dabar, o su konkrečios celės adresu, kur būtų data?

Ech, daiktas geras, bet pasinaudot matyt nepavyks

Pagal mane buvo RAR? Nors negarantuočiau.

Nu padėsiu kam nesigauna Nes pati tokia buvau ir esu beje pasižymėkite tą tabeliuką, tada pagal programas, kurios susiraskite WINRAR ir o.k. Sėkmės

Pagal mane irgi RAR. Puikiai atsidaro.

Man atsidaro, nors nesuprantu kodėl;).
Tiesi, Jūsų pavasarį padarytas tabelis LABAI geras, kam reikia geresnių?

dėl datos keitimo:
keičiama data formulėse. Galima naudoti ir datą viename langelyje (celėje), o formulėse surašyti tos celės adresą. Bet tada reikia atidžiai sužiūrėti formatus (data, tekstas ar skaičius) ir kaip tai veikia, taip pat įvesti absoliutų tos celės adresą - su dviem $ ženklais. (arba tiesiog duoti vardą tam langeliui ir visur suvesti tą varda - Insert.Name). Mat jeigu duomenys celėje bus datos formate, tada nereikia naudoti funkcijos Date value, nes excelis ir taip vertins tuos duomenis savo vidiniu datos formatu - tai yra skaičiumi maždaug 32867 ar pan., tokio dydžio tas vidinis datos supratimas būna. Iš tikrųjų aš apie tai buvau pagalvojęs, bet tingėjau perrašinėti. Bet kaip žinote tinginys dirba kelis kartus - todėl kiekvieną kartą pradėjus mėnesį turiu kapstytis formulėse :).

aš tai darau taip - pakeičiu datas vienoje formulėje, o tada jas kopijuoju per visą tabelio lauką, nes formulės vienoje eilutėje yra identiškos, tik duoda skirtingą rezultatą, skiriasi formulės 1,2,3 eilutėje. T.y. patikslini vieną formulę 1 eilutėje, taip pat 2 eilutėje (trečioje datos berods nėra). Tada visas tas tris formules kopijuoji per visą ilgį. Tada tą 3 eilučių vieną lauką su teisingomis formulėmis tiražuoji per visą tabelio lauką - tebūnie ten ir 1000 žmonių bet viską padaryt neužtruks nei minutės. Tik excelis gali pradėti lėtai skaičiuoti dėl didelio formulių skaičiaus, tada patartina atjungti automatinį skaičiavimą (tools.options.calculation. pažymėti manual ir nuimti varnelę nuo recalculate before save, rankiniu būdu skaičuojama spaudžiant mygtuką calculate sheet ten pat), ir skaičiuoti tik tada kai būtina, tarkime vieną kartą per dieną. Kitaip su exceliu tada pasidarytų labai lėtas darbas - jis vis perskaičiuotų visas formules.

Makrokomandose taip pat vienoje ar dviejose vietose reikia paprasčiausiai perrašyti datą - pvz. gruodžio mėn. reiks parašyti vietoje 2004-10-31 --
2004-11-30 ir viskas. Makrokomandos atsiverčia paspaudus ant Module1 Module2 ir t.t.

Pridedu su zipu archyvuotą failą :) Personalo DB 2004 lapkr.zip

Prastas iš Tavęs tinginys, jei kas kartą esi priverstas perdarinėt ir perdarinėji



Manau yra pprastesnis būdas (čia aš kaip tinginys tinginiui ) Pažymi sritį, kurią keisi, CTRL+F, surandi 2004-10-31 ir keiti į norimą datą. Turėtų veikt



Makrokomandoje man neatidarė jokių datų Atidaro štai ką:
Sub iterpk()
m = 28
j = 0
For i = 1 To 219

j = i + m + 1
m = m + 30
Rows(j).Insert
Next i
End Sub

Cituoju iš Vyriausybės nutarimo:

3. Darbo laiko apskaitos žiniaraštyje kiekvienam darbuotojui skiriamos 3 eilutės:

3.1. Pirmojoje eilutėje nurodoma faktiškai dirbtas laikas (atskirai naktį dirbtas laikas ir viršvalandžiai) ir neatvykimo į darbą atvejai, išskyrus Tvarkos 3.3 punkte nurodytus neatvykimo į darbą atvejus.

3.2. Antrojoje eilutėje nurodoma laikas, dirbtas esant nukrypimų nuo normalių darbo sąlygų, ir darbo pertraukos, kurios pagal norminius teisės aktus įskaitomos į darbo laiką.

3.3. Trečiojoje eilutėje siūloma žymėti neatvykimo į darbą atvejus, kurie pagal Lietuvos Respublikos darbo kodekso 143 straipsnio 1 dalies nuostatas prilyginti darbo laikui.

Gal ir ne viską atsiminiau, bet kažkas ir buvo užkritę, kad kažkas rekomenduojama, siūloma, o kažkas nurodoma kaip daryti. Taip pat ten yra ir daugiau TIK REKOMENDACIJŲ:

Siekiant išanalizuoti, kaip panaudojamas darbo laikas pagal kiekvieną struktūrinį padalinį, tikslinga sudaryti tarnybinių komandiruočių ir neatvykimo į darbą suvestinę ir pateikti žiniaraščio pabaigoje. Rekomenduojama šią suvestinę atlikti kompiuteriu, nurodyti dienų ir valandų skaičių pagal tarnybinių komandiruočių ir pagal kiekvieno neatvykimo į darbą priežastį.


Taigi, jūs pasižiūrėkite, gal dar yra šansas pasiginčyti su VDI :))), o mano tabelis kiek suprantu tą tvarką maždaug atitinka. Ar klystu?

kaip ir sakiau, makrokomandos yra skirtinguose moduliuose. Jūs matote tik vieno modulio makrokomandą. Moduliai matosi katalogų struktūroje kairėje šiek tiek aukščiau. Praeikite visus modulius ir rasite makrokomandas su data.

parašyta, kad pažeidėm 1 ir 2 punktus...
kadangi tikrino pirmą kartą, tai jokių baudų negavome, tiesiog norėjau perspėti visus, kad atkreiptų dėmesį į tuos žymėjimus...
O gal įrašė tokią smulkmeną dėl to, kad nerado svarbesnių pažeidimų?

Pasakyk, kur Tu tą sąrašą paslėpei? Man rodo, kad tėra dvi makrokomandos (be tų, kurias turiu pati): "iterpk" ir "trink nulius2"

nežinau, turi matytis 4 moduliai - module1, module2, module3 ir module 4
in this workbook turi būti paspaustas

taip pat peržiūrint modulius, reikia du kartus ant jų užspausti.
data yra module 1.