• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse