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

Příspěvky uživatele

Já nerozumím tomu, že na jedné straně píšete
TextBox1.Text = Format(TextBox1, "dd.mm.yyyy")
takže berete tu hodnotu z textboxu
a na druhé
ale ve stejném tvaru, jakém je v buňce (dd.mm.yyyy)
ale chcete ji brát z buňky

Nicméně mi to ukazuje na to, že převádíte textovou hodnotu na datum a potom mě nepřekvapuje, že se vám to zaměňuje, protože program je americký a oni jsou datum prostě zvyklí zobrazovat jinak než my.
takže pokud je ve zdroji řetězec "10.6.2013" zkusí ho program převést "po americku" a když je hodnota platná, pracuje s ní (tedy "6.10.2013"). Pokud není platná, zkusí to "po našem", proto "27.10.2013" zůstane "27.10.2013".

Pokud máte hodnotu v buňce textovou, může se to stát. Pokud tam máte datum (tedy číslo), tak ne.

jelikož outlook blokuje scripty
Njn, to mi nedošlo

Mno když už generovanou přílohu, tak s
Window_onLoad mist btn_OnClick
pak by se ušetřil jeden klik ;)) a na konci by šlo určitě tu přílohu i zavřít
jenže zase tam asi vyskočí nějaký dotaz s povolením scriptů - kdo ví ;)
kdyby se vám chtělo, vyzkoušejte, já bohužel teď nemůžu

Ono by se muselo přesně vidět, co se chce dělat.
Protože mě ještě napadlo spouštění excelu s parametrem (muselo by se prozkoumat, zatím jsem nezkoušel), ale nevím, jestli toto jde z mailu ;)

Krátce jsem zkoušel - s hypertextovými odkazy v podstatě nedělám - a stejná zkušenost. V excelu OK, v html pouze otevře sešit.

Nicméně mohl by pomoct VBScript
např:
Sub btnOpen_OnClick
Set xlApp = CreateObject("Excel.Application")
Set w = xlApp.Workbooks.Open("C:\Users\04koutny\Documents\Excel\Doplnky\Czech.xls")
xlApp.Visible = True
w.Worksheets("How to").Select
w.Worksheets("How to").Range("X500").Select
Set w = Nothing
Set xlApp = Nothing
End Sub

cdate(WorksheetFunction.WorkDay(cdate("15.3.2013"), 30))
resp.:

cdate(WorksheetFunction.WorkDay(Range("M12").Value, Range("N12").Value))

Pomocí WorkDay lze řešit i svátky - viz nápověda

@marjankaj

Teda buď si to urobí manuálne alebo pomocou rozšíreného filtra.

pro ten případ je to možné upravit
přesněji i vypsat jedinečné položky vzorcem lze ;)

ten maticový vzorec už bych si ale asi dal do pojmenovaného názvu, protože tak se snadněji kopíruje

nicméně - nejlepší řešení si musí uživatel vybrat sám - aby si už spíše nekomplikoval život ;)

Mno já nevím. Je to pořád to samé - i když chápu, že tady je to problém, protože se data tahají z databáze.

Jenže bez toho (příloha, data) těžko někdo poradí, když už, jak předpokládám, nepomohl pan Gůgl...

--
Edit:
Aha, takže pomohl ;)

@marjankaj

Inak by som musel na vymazanie použiť makro.

Řešení bez maker - viz příloha můj předminulý příspěvek ;)

Mno koukal jsem na to, jenže je tam spousta jenže. A hlavní jenže je, že počet řádků je omezen kapacitou excelu. Z toho totiž vyplývá, že je velmi pravděpodobné (troufnu si tvrdit, že i jisté), že tam těch shod bude více.
Chcete najít první shodu?
Chcete vypsat všechny shody?
Pro excel 2007 je to 1M řádků - víte jek dlouho by excelu trval výpočet? Pro 2003 je to 66k řádků - i tady to asi může být dlouho.

Když se podívám na počet otazníků, tak hlasuji pro VBA (makra)

@marjankaj
Teď se dívám na to vaše řešení a pokud mohu:
1. Byl jste blízko, ale proč =B3 ?
=MIN(KDYŽ($A$2:$A$200=A3;$B$2:$B$200;1E+99))=B3

Bez toho =B3 to dá hodnotu pro minimum a s tou můžete dále pracovat (nebo, pokud by to bylo složité, dát do skrytého sloupce)
=MIN(KDYŽ($A$2:$A$200=A3;$B$2:$B$200;1E+99))

2. Místo
1E+99 (bude pravděpodobně nejvyšší, ale ve výjimečném případě nemusí)
používejte
MAX($B$2:$B$200) (bude ve 100% případů nejvyšší)

Mno tabulku VÝSLEDEK jsem dodržel, takže snad je to to co jste chtěl

Hezky česky

=A1&KDYŽ(B1="muž";" se narodil ";" se narodila ")&DEN(C1)&ZVOLIT(D1;". ledna ";". února ";". března ";". dubna ";". května ";". června ";". července ";". srpna ";". září ";". října ";". listopadu ";". prosince ")&E1

@Opičák
Když mám sloupec s pohlavím, proč bych měl vycházet z koncového "á" ? Co taková Kateřina Emmonds...

Mno tak jaxem to četl by to vzorcem jít mohlo.
Jenže ta data si vytvářet nebudu.
Takže bez přílohy ani kuře...

Vložte do ikna Immediate následující příkaz a stiskněte ENTER
?Format(date, "yyyy\].\[mmmm\].\[d\]")
Paxem vložte výsledek.

Na formátu buňky nezáleží.
Zápis
"[Datum].[Vše].[" & Format(I, "yyyy\].\[mmmm\].\[d\]"), I = iFrom
je ekvivalent k
"[CONTACT_WHEN].[Vše].[2013].[duben].[12]", True

Verzi 2003 tady nemám, takže až v pondělí...

Vyzkoušejte následující kód

Sub subPivotTableSelectItems()
Dim iFrom As Long, iTo As Long
iFrom = Range("D1").Value
iTo = Range("D2").Value

With ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotFields("[Datum]")
.CubeField.EnableMultiplePageItems = True

Dim I As Long
For I = iFrom To iTo
.AddPageItem "[Datum].[Vše].[" & Format(I, "yyyy\].\[mmmm\].\[d\]"), I = iFrom
Next I
End With 'ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotFields("[Datum]")
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse