Příspěvky uživatele
< návrat zpět
Takový pokus s vedlejší osou.
M@
Něco takového?
=KDYŽ(COUNTIF(A1:E1;"<10")>=3;"Splněno";"Ke splnění získej " & 3-COUNTIF(A1:E1;"<10") & KDYŽ(3-COUNTIF(A1:E1;"<10")=1;" hodnotu";" hodnoty"))
M@
Nakonec jsem teda napsal jakýsi tlačítkový ořezávač, který v této ukázce spouštím tlačítkem na listu, ale jinak přes panel příkazů a makro jako takové je v samostatném souboru (jako by doplněk) aby šlo použít na jakýkoliv soubor.
Nicméně kdyby měl někdo lepší způsob jak toto řešit, tak bych se nezlobil :-).
Díky
M@
Díky moc.
M@
Ahoj,
pomocí Ribbon Editoru jsem si vytvořil soubor s vlastním "panelem nástrojů", který se ale zobrazí pouze nepoužiju-li v souboru customUI.xml diakritiku. Např.:
<tab id="Tab1" label="Výrobni prikazy">v takovém případě se mi vlastní panel vůbec nezobrazí.
Použiju-li ale :
<tab id="Tab1" label="Vyrobni prikazy">
tak je vše v pořádku.
Říkám si, jestli to nemůže být tím použitým schema v souboru customUI.xml
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
případně nějakým nastavením v souboru [Content_Types].xml
V příloze jsou oba soubory (s diakritikou i bez).
Předem díky za jakýkoliv typ.
M@
Ahoj, mám dotaz ohledně oříznutí vloženého objektu (např. pdf). U Office 2003 oříznutí fungovalo stejně jak u obrázků, tak i u objektů, ale v rámci neustálého zlepšování mám u Office 2013 pocit, že funkce oříznout je k dispozici jen u obrázků. Zkoušel jsem si funkci "oříznout" přidat do panelu rychlého přístupu, ale v případě objektu je bohužel nedostupná
A tak to zkouším tady jestli mě někdo nenavede (pokud to teda vůbec nějak lze).
Díky
M@
Myslím že by nebyla od věci, ono totiž záleží na způsobu který využíváš k odeslání.
U mě např:
Public Sub EMAIL2()
On Error Resume Next
Dim fso As New FileSystemObject
Dim fil As File
Dim ts As TextStream
Dim text As String
EML_RECEIVER = "jeza.m@centrum.cz"
EML_SUBJECT = "POKUS"
Set fil = fso.GetFile(ThisWorkbook.Path & "\HTML\OUT2.htm") 'Cesta k souboru
Set ts = fil.OpenAsTextStream(ForReading)
text = ts.ReadAll
ts.Close
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.pps"
.Send
End With
End Sub
Funguje i bez spuštěné aplikace, nutností je ale přidat referenci na outlook knihovnu "Microsoft Outloo 11.0 Object Library" u Office 2003. U novějších myslím, že je to verze 14.0, ale na verzi až tak nezáleží. S čím může nastat problém je pokud někdo spustí excelovou aplikaci v novějším Office, tak se knihovna automaticky přepíše na novější, což pokud uživatel uloží, tak tím zkomlikuje život vlastníkům Office 2003, protože těm se zpět nepřepíše a je nutno znova přidat referenci.
Ten příklad tam má část kterou je možno ignorovat a to načítání externího html souboru jako html textu zprávy, ale jde použít i prostý text.
M@
Ahoj,
Díky za tip, jako řešení pro web je to elegantní, bohužel ne pro e-mail v html formátu, jelikož outlook blokuje scripty :-/, leda bych do přílohy každého meilu dal přílohu, což by byla jednoduchá webová stránka s daným scriptem, jenž by po kliknutí otevřel excel tam kde je potřeba. To už bych ale do přílohy mohl dát stejně tak excelový sobor, kde bych do první buňky vložil odkaz :-), takže to je zatím jediné řešení co mě napadá, odkaz přes automaticky generovanou přílohu :-).
Díky
M@
Nějak jsem si nevšiml :-).
Tak k tomu posunutí hlavičky - to je v makru definováno:
For rd = 4
kdy 4 = první řádek dat, takže při posunutí na B5 to bude:
For rd = 6
K tomu druhému, když nenapoví záznamník makra, tak na konec před End Sub vložit něco jako:
Sheets("Vysledek").Range("B3:E" & rdo).Sort Key1:=Range("B4"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
M@
To nepůjde, zkusím to popsat...
Uživatel otevře soubor vyplní řádek, klikne na tlačítko odeslat, čímž se jinému uživateli odešle e-mail s informací, že požadavek ten a ten byl vyřízen, s tím že si ho může prohlédnout na odkaze viz. toto téma, jinými slovy při kliknutí na odkaz v meilu aby se mu otevřel excel na dané buňce, takže co e-mail to odkaz na jiný řádek (stejný soubor, stejný list), tudíž workbook_open je z mého pohledu nepoužitelný.
Uznávám, je to spíš na web, ale s excelem je to spojený taky :-).
Fungovat bych čekal že to bude, ale ať dělám co dělám, tak nefunguje, zkoušel jsem to i lokálně, ale otevřením sešitu to končí :-/.
Jen doufám že nejsem jedinej :-)
M@
Ahoj,
měl bych jeden dotaz ohledně odkazu, např.:
http://Sharepoint.com/Soubor.xls#List1!M5
zadám-li v excelu, tak se po kliknutí otevře daný soubor na Listu1 a buňce M5.
Když ale stejný odkaz použiju na webové stránce:
<a href='http://Sharepoint.com/Soubor.xls#List1!M5'>odkaz</a>
tak to končí tím že se otevře daný soubor, parametry za # jsou ignorovány, znamená to že tyto parametry umí předat pouze excel excelu a u odkazu z webu mám smůlu?
Díky
M@
Zajímavý, mě to sečetlo :-)
Tak radši v příloze.
Celkový součet sloupce D
Export1 = 4095
Export2 = 5743
Vysledek = 9838
Material 7240
Export1 = 131
Export2 = 337
Vysledek = 468
Office 2003
Jedná se o jednorázové vygenerování.
Má-li být použito opakovaně, tak je třeba data z výsledku smazat, ale to nebylo předmětem zadání :-).
Stejně tak předpokládám že konkrétní materiál má na každém exportu vždy stejnou jednotku :-).
M@
Public Function materialrow(material) As Single
On Error Resume Next
materialrow = Application.WorksheetFunction.Match(material, Sheets("Vysledek").Range("B:B"), False)
End Function
Public Sub soucet()
Dim rdo As Single
Dim tmp As Single
rdo = 4
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, 6) = "Export" Then
For rd = 4 To sh.UsedRange.Rows.Count + 2
tmp = materialrow(sh.Cells(rd, 2))
If tmp = 0 Then
Sheets("Vysledek").Cells(rdo, 2) = sh.Cells(rd, 2)
Sheets("Vysledek").Cells(rdo, 3) = sh.Cells(rd, 3)
Sheets("Vysledek").Cells(rdo, 4) = sh.Cells(rd, 4)
Sheets("Vysledek").Cells(rdo, 5) = sh.Cells(rd, 5)
rdo = rdo + 1
Else
Sheets("Vysledek").Cells(tmp, 4) = Sheets("Vysledek").Cells(tmp, 4) + sh.Cells(rd, 4)
End If
Next
End If
Next
End Sub
M@
Jsem čekal databázi a on jenom excel :-).
Nevím jestli jsem to dobře pochopil, ale na to načtení snad ani není třeba makra.
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