Příspěvky uživatele
< návrat zpět
Tak přemýšlím co vám brání použít klasickou funkci SUMIFS, teda pokud nemáte Office 2003.
M@
nahradit ...
ThisWorkbook.Path & "\IMG\"
za
"H:\_sklad_polozky\"
M@
asi bych na to šel vlastní funkcí, případně jestli by si s tím neporadila KT. No ale vzorcem to jde taky, ale je to náchylnější. Funguje jen za předpokladu že materiály jsou řazeny za sebou.
Určitě bude víc způsobů. Tohle je jen taky narychlo :-)
M@
Takový rychlý pokus v příloze.
M@
tak ještě ten soubor :-).
Jinak jen tak pro zajímavost k té zmíněné knihovně ... http://answers.microsoft.com/cs-cz/office/forum/office_2013_release-excel/mscomctlocx-a-treeview/62fdb567-db9e-4030-80da-83a76dd3e56c?tm=1457091618875&auth=1
ale to vás trápit nemusí :-).
M@
Se jménama je to horší, to si tam pak může napsat kdo chce co chce :-). Spíš bych šel cestou doplnění tabulky osobních čísel a jmen na list USERLIST, kdy tato jména se pak budou pomocí vzorce propisovat do rezervační tabulky.
Další možností bez pomocné tabulky je dohledání jména v Active Directory, což určitě máte, ale je to trochu složitější a je třeba znát ty správný adresy.
To že soubor ode mě občas nejde to je bohužel možné, od doby Lednové aktualizace (viz. http://wall.cz/index.php?m=topic&id=29569) se mi nabourala knihovna MSCOMCTL.OCX a od té doby některé mnou vytvořené soubory, byť žádný prvek z této knihovny neobsahují, tak prostě na jiných pc nejdou. Zkusil jsem zrušit reference, tak třeba už to půjde :-)
M@
No je-li to v rámci firmy, tak když máte excel, tak je dost pravděpodobné že máte i outlook, pak bych se poohlédl po možnosti vytvoření sdíleného kalendář pro hledač. Každý by si pak v outlooku mohl udělat rezervaci.
K excelové možnosti, vytvořit to lze, ale problém je se sdílením, kde nelze zamykat sešit.
Takový jeden rychlý pokus bez sdílení je v příloze.
M@
Těžko říct :-), jsou věci mezi nebem a MS, které jsou občas nepochopitelné. Třeba s ním neumí pracovat když je skrytý a je to pro něj jako chyba, ale chyba kterou nehlásí, místo toho rovnou skončí.
Tohle vysvětlit neumím.
M@
Co jsem tak chvíli googlil, tak to vypadá že powerpoint není multiinstatní.
Tak bych asi zkusil na začátku kódu ověřit, je-li powerpoint spuštěný a někam si to poznamenat.
Při ukončení procedury pak podle toho buď jen zavřít aktuální prezentaci, ale aplikaci nechat být (vynechat oApp.Quit), nebo provést obojí.
Je to jen teorie :-)
M@
Ukázka v příloze.
M@
Pokud vím, tak ne, ale můžeš si udělat vlastní userform a místo msgboxu volat tento formulář, kdy součet budeš dávat do nějakého labelu na tomto formuláři.
M@
ta první mi přijde trochu cyklicky tím T4=0.
Ale zkusím jen tak ...
Public Function Funkce1(vstup As Range) As Single
If vstup.Value = "" Then Funkce1 = 0 Else Funkce1 = CSng(vstup.Value)
End Function
Public Function Funkce2(vstup As Range) As Single
If Mid(vstup.Value, 3, 1) = "2" Then Funkce2 = 0.5 Else If vstup.Value = "D" Then Funkce2 = 1 Else Funkce2 = 0
End Function
M@
Jen zkouším jestli se za těch pár měsíců něco nezměnilo :-).
M@
Nebo ActiveWorkbook.List1
Ve VBA v okně projektu vidíte např. List1 (List1), když list přejmenujete (dole na oušku listu) například na "Něco", tak ve VBA uvidíte List1 (Něco), takže List1, je jedinečný název a v závorce je pak titulek (to co vidíte dole na oušku).
Pak je tady možnost že to myslíte ještě vždy pro aktivní list, pak by to bylo ...
ActiveWorkbook.ActiveSheet
M@
K tomu CDO, mám příklad ...
Public Function Odesli_eml(Adresat, Zprava)
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Nekdo@NoReply.com"
objEmail.To = Adresat
objEmail.Cc = "nekdo.nejaky@server.com"
objEmail.Subject = "Pokus"
objEmail.HTMLbody = Zprava
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "adresa SMTP serveru"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
End Function
V tomto případě to heslo nevyžaduje, ale jako SMTP máme použit firemní server.
Další možnost je pomocí knihoven Outlloku, tzn. ve VBA je třeba přidat referenci na Microsoft Outlook XX.X Object Library. Tady může nastat problém např. když vytvoříte v Office 2013, tak ve 2007 fungovat nebude, jelikož je tam natvrdo reference na novější knihovnu.
Příklad...
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Set oOApp = CreateObject("Outlook.Application")
Set oOMail = oOApp.CreateItem(olMailItem)
With oOMail
.To = EML_RECEIVER
.CC = EML_COPY
.Subject = EML_SUBJECT
.HTMLBody = text
.Attachments.Add ThisWorkbook.Path & "\Last.ppsx"
.Send
End With
V tomto případě .HTMLBody = text, jako text je třeba použít html text (v podstatě jako byste psali webovou stránku), tzn. včetně formátování
Místo toho je možné použít pouze .Body = text, v takovém případě text bude prostý text.
Do .Attachments pak můžete dát odkaz na konkrétní soubor, který můžete vygenerovat před tím právě z těch vybraných buněk.
Záleží kolik toho je, pokud hodně tak bych šel cestou přílohy, pokud ne moc hodně, tak formou formátování HTML jako webová stránka přímo v textu emailu.
M@
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články