Excel: Žodžio radimas skaičių masyve

Categories MS ExcelPosted on

Ms-excel

Turėjau tokią situaciją: devyniuose excel’io sheet’uose yra formos iš kurių pildoma viena ir viename sheet’e yra priedas, kuris pildomas visą laiką, pildant bet kurią forma iš tų devynių.  Reikėjo padaryti taip, kad pildant bet kurią formą, sutampantys duomenys persikeltų ir į priedą. Tai pvz. užsakovo pavadinimas visada turėtų persikelti iš vienos iš tų devynių į priedą. Read more „Excel: Žodžio radimas skaičių masyve“

Excel’is ir paprasta macros komanda

Categories MS ExcelPosted on

Ms-excel

Pastebėjau, kad Lietuvos blogosferoje nėra nė vieno blogo, kuris kažką rašytų MS Excel tema. Na, o gal yra, bet aš nepastebėjau, todėl sakykim, kad nėra. Taip jau atsitiko, kad pakeičiau pareigas ir dabar visa mano darbo dieną prabėga atsidarius Excelio sheet’us. Kasdien sužinau vis ką nors naujo ir įdomaus. Todėl tomis žiniomis pasidalinsiu ir čia. Kartais tai bus galbūt kas nors labai elementaraus, bet gal ne visiems žinoma. Tai vat, jeigu ir patiems kyla kokių nors klausimų šia tema – rašykit nes ir man daug dalykų dar yra nežinomų ir būtų įdomu sužinoti.

Taigi, šiandien susidūriau su naujiena savo gyvenime – macros’ais. Macros’us tenka naudoti kai paprastoms excel’io funkcijoms nebeužtenka galių. Šiandien turėjau tam tikrą formą ir joje turėjo būti toks funkcionalumas, kad uždėjus x viename langelyje excel’io lape atsiranda papildomos eilutės su reikalinga užpildyti informacija.

Pateiksiu pavyzdėlį kaip tai veikia. Sakykim turim tokią lentelę:

Fiksavimas

Tai dabar padarykim taip, kad langelyje šalia „Taip“ įrašius „x“ žemiau esanti lentelė pradingtų. Na, ji ne šiaip pradings, o tiesiog 5-8 eilutės bus paslėptos.

Pirmiausia reikia į meniu juostą įtraukti „Developer“ kortelę. Einam File–> Options –> Customize Ribbon ir ties Developer uždedam varnelę:

Fiksavimas

Atsiranda tokia Developer kortelė:

Fiksavimas

Spaudžiam kairėje esantį mygtuką „Visual Basic“:

Fiksavimas1Ant Sheet1 paspaudžiam du kartus su kairiu pelės klavišu, arba kartą dešiniu ir pasirinkti „View Code“. Ir tuomet rašome tokį koduką:

 

 

Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name = „Sheet1“ Then

If Range(„E2“).Value = „“ Then
Rows(„5:8“).EntireRow.Hidden = False
ElseIf Range(„E2“).Value = „x“ Then
Rows(„5:8“).EntireRow.Hidden = True
End If

End If
End Sub

Fiksavimas6

Įrašę išsaugom ir uždarom developer langą. Kas angliškai supranta, tai kodas čia labai aiškus, ir net programavimo neišmanantiems. Todėl pakoreguoti taip pat nebus sunku.

Taigi įrašę į langelį E2 „x“ gauname:

Fiksavimas3

Eilutės pradedant 5 ir baigiant 9 užslėptos. Jei „x“ ištrinsime – jos vėl atsiras.

 

GoFit – treniruotės namuose

Categories Apžvalgos, AsmeniškumaiPosted on

GoFit - treniruotės namuose

Gavau pasiūlymą išbandyti GoFit treniruočių sistemą internetu. Kadangi išbandyti kažką naują man visada įdomu, tai sutikau nedvejodamas.

GoFit, tai interneto svetainė žmonėms, kurie neturi laiko vaikščioti po sporto klubus, ir neturi jokio sportinio inventoriaus namuose. GoFit siūlo treniruotes namuose, kurios atliekamos be jokios papildomos įrangos, naudojant tik savo kūno svorį. Read more „GoFit – treniruotės namuose“

100 km žygis pajūriu #2

Categories Asmeniškumai, KelionėsPosted on

100 km žygis pajūriu #2

Gegužės mėnuo atėjo taip greitai, kad net nepastebėjau, o su geguže ir lauktas 100 km žygis. Nors pernai eidamas nemaniau, kad jį kartosiu, bet šiemet labai norėjosi sugrįžti į pajūrį.

Šventoji

Į Šventąją vėl keliavau vienas. Nors keliauti planavom iš Vilnius su draugu, pasikeitus planams į Šventąją jis atvyko iš Kauno, vakarop. Kambarį nakvynei vėl nuomojausi kaip ir pernai, pas Jolantą, todėl ji mane vėl pasitiko prie stoties ir nuvežė iki buto. Gal apie valandą pasikalbėjus kaip seniems draugams ji išvyko, o aš išėjau apžiūrėti metus nematyto miestelio.

100 km žygis pajūriu #2

Akivaizdžių pasikeitimų per metus čia neįvyko. Pernai remonto laukę nameliai ir toliau jo laukia, kur ne kur vietinis „verslininkas“ kažką remontuoja ruošdamasis naujam sezonui ir pan.

100 km žygis pajūriu #2

Bevaikštinėjant po Šventąją sulaukiau ir atvykstančio bendražygio D. Jam pasidėjus daiktus bute, ėjome toliau tyrinėti miestelio.

Pernai su kolege mėginome surasti priėjimą prie Šventosios švyturio, tik tada mus nepavyko. Šiemet kažkuriame laikraštyje mačiau, kažkokį straipsnį apie tą švyturį. Straipsnyje buvo nuotraukų darytų įlipus į jį, todėl panorau pamėginti surasti jį ir šį kartą.

100 km žygis pajūriu

Su D. bandėme prie švyturio prieiti iš kitos pusės ir keliuką radome. Tačiau švyturys buvo aptvertas. Paklausus vietinio gyventojo ar įlipti į švyturį galima, jis informavo, kad ne, ir kad žurnalistai į jį buvo įlipę tik per atvirų durų dieną, kuri vyko pasaulinio švyturių savaitgalio proga.

Visą dieną Šventojoje oras keitėsi dažnai – tai apniukdavo, tau saulė išlįsdavo, tai lynoti pradėdavo. O vakare bevaikštant lijo ištisai. Tas šiek tiek neramino, nes sinoptikai šeštadieniui ir sekmadieniui prastą orą prognozavo. Read more „100 km žygis pajūriu #2“