Automatické uzamknutie bunky po jej zmene

V skupine MS EXCEL AND VBA MACROS na googli som našiel nápad ktorý sa môže niekomu zísť.
Teda ako zablokovať bunku hneď ako je zadaná jej hodnota ?
Bez dlhých reči je tu príklad.

V skratke:
1. na change event worksheet-u je "zavesený" script ktorý uzamkne aktuálnu bunku

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub
If Len(Target.Value) > 0 Then Target.Locked = True
'.EntireRow - mozna uprava pre uzamknutie celeho riadku
ActiveSheet.Protect
Target.Offset(1).Select
End Sub

Premenovávanie súborov v MS Excel

Majme súbory .. teda hlavne rôzne obrázky-fotky atď.
Samozrejme názvov rôznych, dlhých, krátkych, s číslami na začiatku, s číslami na konci, bez čísel, a rôznych typov.
Čo chceme (zatiaľ ...): číslo na začiatku, trojznakové a obrázky zoradené abecedne
Ako na to:
1. Potrebujeme zoznam obrázkov
v príkazovom okne cmd.exe a v príslušnom adresári zadáme "dir >> zoznam.txt"
2. naimportujeme zoznam.txt do excelu
3. spravíme si číslovací stĺpec
4. spravíme si stĺpec pre výsledný tvar mena súboru
5. spravíme si formulu pre výsledný tvar mena súboru
6. Spravíme si stĺpec pre kopírovací príkaz pre cmd.exe (nebudeme meniť pôvodné súbory)
7.Spravíme si vzorec pre kopírovací príkaz
8. Výsledné príkazy si skopírujeme do "premenuj.bat"
9. pustíme premenovanie :-)

link na XLS súbor
http://www.idev.sk/subory/excelblog/premenovavanieSuborov.xls
link na video
http://www.idev.sk/subory/excelblog/premenovanieexcel.avi

Excel a cestovné

Takže majme tabuľku , či skôr formátovaný text cestovného od ŽSR a k tomu zadanie:

Vytvorte vzorec, ktorý na základe danej vzdialenosti (1-100 km) medzi danými zastávkami v cenníku ŽSR vyhľadá cenu obyčajného cestovného lístka 2. triedy osobného vlaku pre túto vzdialenosť (17km).

tabuľka

a riešenie je ...

=INDEX(B9:B23;COUNT(IF(INT(LEFT(vzdialenost;(SEARCH("-";vzdialenost)-1))) < INT(LEFT(E7;SEARCH(" ";E7)-1));1)))

a príkladovy subor je tu:

cestovnezsr.xls

Veľkonočný pondelok a Excel

Teda .. ako vypočítať kedy na ktorý dátum pripadne Veľkonočný pondelok ?

že vraj

=DOLLAR(("4/"&rok)/7+MOD(19*MOD(rok;19)-7;30)*14%)*7-5

... hmm nejak mi to nesedelo ... takže dôveruj ale preveruj

1. Veľkonočné pondelky už vyrátané

http://translate.google.sk/translate?hl=sk&sl=en&tl=sk&u=http://en.wikipedia.org/wiki/Easter&anno=2

2. popis algoritmu

http://komentare.sme.sk/c/2668908/velky-tyzden.html

3. z toho funkcia

...

:-)