Příspěvky uživatele
< návrat zpět
tak ?
Co a jak? Zatím to moc složitě nevypadá . 
Složku bych nazval tak, ať se neplete s žádným používaným výrazem od Office, již pro snazší hledání. Já si myslím, že zádné nebezpečí u tohoto registru nehrozí.
Nastavení Excelu jsou v registru
HKEY_CURRENT_USER\Software\Microsoft\office\14.0\Excel (číslo udává verzi excelu, takže může být i 12 a nebo méně, čím starší, tím menší)
hodnoty těchto registrů říkají, jak má Excel pracovat.Excel sám o sobě čte z registru je jen 1x a to při startu, pak při práci nic a při ukončení uloží nové hodnoty, byli-li změněny. Většinu hodnot v registru lze změnit přímo z excelu.
Pokud by přecijen došlo k poškození klíšů registru excelu třeba tím, že se v tom hrabeme, pak je možné celou sekci excelu odstranit. Excel si sám znovu vytvoří registrační klíče. Všechna přizpůsobení (ne data !!) jsou ztracena.
druhý soubor
Vyzkoušej. Jiný trošku složitější příklad stejného využití v další příloze, třeba jen pro pochopení fce.
To je dokonce nutné, zaslat souborr ve kterém se mají udělat úpravy. 
Nejde to přes zápis do registru ?
a jak zaridim aby soucasti tohoto mailu byla priloha soubor v kterem poustim toto makro (ale samozrejme bez makra)
schováš makra 
jak odeslat "tichý" e-mail
z webu http://excelplus.net
Sub MailCDO()
Dim iMsg As Object
Dim iConf As Object
Dim strBody As String
Dim Flds As Object
'Windows 2000 a novější
'příklad zpracován pro poštovní účet na Seznam.cz
'objekty CDO
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
'nastavení konfigurace
iConf.Load -1
Set Flds = iConf.Fields
strPart1 = "http://schemas.microsoft.com/cdo/configuration/"
With Flds
.Item(strPart1 & "sendusing") = 2
'SMTP server Seznamu
.Item(strPart1 & "smtpserver") = "smtp.seznam.cz"
'port
.Item(strPart1 & "smtpserverport") = 25
.Item(strPart1 & "smtpauthenticate") = 1
'účet@seznam.cz
.Item(strPart1 & "sendusername") = "účet"
.Item(strPart1 & "sendpassword") = "heslo"
.Update
End With
'text v těle zprávy
strBody = "První řádek 1" & vbNewLine & _
"Druhý řádek 2"
With iMsg
'konfigurace
Set .configuration = iConf
'adresát
.To = "nekdo@nekde.cz"
'kopie
.CC = ""
'skrytá kopie
.BCC = ""
'odesílatel
.From = "účet@seznam.cz"
'předmět
.Subject = "Text v předmětu zprávy"
'tělo zprávy
.Textbody = strBody
'příloha
.AddAttachment ActiveWorkbook.Path & "soubor.txt"
'odeslání
.Send
End With
'odstranění spojení
Set iMsg = Nothing
Set iConf = Nothing
End Sub
možná to jde líp, ale i tak
tak ?
edit:
jetě si nastav formát pro B3=0 a posuň podmnku na první místo
Soubor asi tak jak by měl být (na listu 1)
NÁVOD , jak popisuje AL
http://office.microsoft.com/cs-cz/excel-help/vyhledani-duplicitnich-hodnot-pomoci-podmineneho-formatovani-HA001136616.aspx
možná takto, alespoň jak to chápu já
Svátky je třeba přepsat.
http://www.ulozto.cz/xUk1ZuX/evidence-pracovni-doby-rozbalene-zip
nějak neukládá přílohy, tak tady
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články