Zkus se podivat na moznosti, co nabizi OnTime - strejda google urcite neco najde
uf, co takhle?
Sub VELIKONOCE()
Dim ROK As Long
Dim VELIKONOCE As Double
ROK = 2011
VELIKONOCE = Round((DateSerial(ROK, 4, 1) / 7 + ((19 * (ROK Mod 19) - 7) Mod 30) * 0.14)) * 7 - 5
MsgBox Format(VELIKONOCE, "dd.m.yyyy")
End Sub
asi takto (vlozi do bunky A2:
Range("a2").Formula = "=DOLLAR((""4/""&A1)/7+MOD(19*MOD(A1,19)-7,30)*14%,)*7-5"
OK, tak davej pozor ve skole, az se bude probirat interpunkce a zkus si po sobe svuj vytvor precist...
co jenom takhle jednoduse?
Sub Copy_One_File()
FileCopy "C:\Users\Ron\SourceFolder\Test.xls", "C:\Users\Ron\DestFolder\Test.xls"
End Sub
Sub Move_Rename_One_File()
Name "C:\Users\Ron\SourceFolder\Test.xls" As "C:\Users\Ron\DestFolder\TestNew.xls"
End Sub
To Roman: No jako jasne, ze to jde (je to stejny jako dat tisk Celeho sesitu). Ale myslim, ze pro ucely Kadela to nefunguje tak, jak potrebuje, protoze mu to ten PDFcreator nejak zvlastne rozseka.
...jestli jsem se v tom teda uz neztratil...
To Roman: Ja nevim, ale myslim, ze tohle je vyse napsany, ze takto to proste nejde (tisk celeho souboru).
Nebo se pletu?
V tom pripade je mozna lepsi reseni sahnout po jinem softwaru na tvorbu PDF, ktery bude umet lepe zvladnout ukoly, ktere po nem chcete.
Nevim presne, kde je chyba u PDFcreatoru, ale ja pouzival PDF995 a nenasel jsem u nej nic, co by mi vadilo...
Pokud jde o cislovani stranek, tak to jde - v nahledu ve vzhledu stranky staci zadat zapati (viz priloha)
Pokud jde o schovani bunek pri tisku - o takove funkci Excelu nevim a silne pochybuji, ze tam je (jedine, co me napada, jak toho docilit je tisknout pres makro, ktere nejprve vybrane bunky nastavi na bilou barvu fontu, aby nebyly videt a po vytisknuti opet vrati zpet. Ale snad nekdo bude mit lepsi reseni...
zdravim, tohle by slo provest i funkci listu - zkuste prilozit soubor, kde mate vsechny ty vase tabulky 11x11 a identikujte bunky, do kterych budete zadavat parametry...
Ano, tohle jde udelat.
Jen je potreba znat cestu k tomu souboru, do ktereho chcete hodnoty zapisovat (do sloupcu C, D a E).
Nejlepsi by bylo, kdybyste zaslal ten soubor, kde ma byt tlacitko vytvoreno, aby bylo mozne proceduru napsat a take ten soubor, kam maji byt hodnoty kopirovany - jinak si to budu muset vytvorit sam a nastanou problemy s adresaci bunek zdroje a cile...
No - predne, ten popis, to je des, opravdu. Zkuste popsat to, co chcete tak, aby tomu slo porozumet. Hodi se i nejaka interpunkce, aby sdeleni dostalo ten smysl, co pisatel zamysli...
Zkusil jsem si domyslet, co vas trapi - v priloze si to muzete vyzkouset...
Tady je navod, jak poslat soubor do Kose (moc jsem se na to nedival, takze nemuzu rict, ze to plne chapu, ale treb vam to pomuze)
http://vbadud.blogspot.com/2008/08/vba-send-file-to-recycle-bin.html
Takovou funkci lze napsat (nebo jen proceduru).
Problem je, ze chcete prirazovat nejaka cisla (ktera netusim, co znamenaji) barvam, ktere uz v excelu svoje cisla barev maji (napr. klasicka cervena je 6, klasicka zluta je 3).
Slo by tedy o to, jestli chcete pouzit nejaka vase cisla barev (pak je musite vsechny nadefinovat) nebo pouzit cisla barev, ktera zna Excel.
Pak je jeste dulezite, jestli chcete pouzit jen zakladni barvy nebo rozsirene (RGB)
tento kod:Sub smazat()
Dim Cesta As String
Dim Soubor As String
Cesta = "c:\Documents and Settings\JMENO_UZIVATELE\Plocha\smazat\"
'Soubor = "1.xls" 'smaze soubor '1.xls'
'Soubor = "1.xl" 'smaze soubor '1' s priponou .xls nebo .xlsx nebo .xlsm ...atd
'Soubor = "*.*" 'smaze vsechny soubory ve slozce
Kill Cesta + Soubor
End Sub
Jen upozornim, ze prikaz Kill rovnou smaze soubor a nepta se (nelze vratit) - a smazanim se zde nemysli presun do kose (soubor uz je proste navzdy pryc)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.