Příspěvky uživatele
< návrat zpět
Ahojky.
Myslím, že to není tak složité. V podstatě, má šéf anglické win + off a tak to převádět vůbec nepotřebuješ. Pokud se to zobrazí u něj, tak format "dddd" bude vypadat jinak než u Tebe.
Pokud to ale potřebuješ donést šéfikovi vytištěné, pak to musíš udělat :)
Řešení je například ve vytvoření vlastní funkce, kterou budeš volat z buňky.
- vytvoř funkci s proměnnou
- definuj pole 0 - 6 (nebo 1-7) a urči názvy
- otestuj, jestli proměnná je DATE jinak vyhoď chybu
- do výsledku funkce vlož z pole den týdne podle funkce WEEKDAY, které předáš datum.
Konec
R.
Dobrý večer
Co vlastně chceš ? 
v druhé větě chceš z Excelu pomocí VBA vytisknout soubor a v předposlední větě zase, že to umíš ale chtěl bys to obejít.
Asi uprostřed je odpověď ... je to nesmysl ?
promiň
R.
Je to v off 2007, tak to nemůžu otevřít. Podle toho co píšeš se po vytvoření nového sešitu nepřepneš do něj. Na konci stačí save ... a funguje to.
Odeslání emailu je až potom.
Typnul bych si, že máš zapnutý nějaký filtr (???) ... a nebo spíš, že jsi nevytvořil pojmenovanou oblast. 1004 je myslím, že buňky nebyly žádné nalezené ;-)
Normálně mám pravdu já ... bezdebat ... když ale do tvého textu zadání doplním, že se jedná o maticové zadání, pak je Tvůj vzorec vpořádku a rozkládání je na nic.
Bůůůůůůůů ... :(
R.
PS : Můžeš poslat nový soubor s nulama ???
Když vzorec rozložím na části, tak mi pořád vychází chyba u
=KDYŽ(C5:C34-PRŮMĚR($C$5:$C$34);1;0)
Problém je, že první parametr nebo proměnná musí být boolean a nebo výraz, který se takto dá vyložit ... a to rozhodně není.
Rovněž první průměr je nesrozumitelný, protože tím koncem to dostane nesmysl.
Pokud chceš součet všech nenulových buněk, pak použij
=SUMIF(C5:C34;">0";C5:C34)
Pokud chceš počet buněk které nejsou nulové, pak použij
=COUNTIF(C5:C34;">0")
Z toho dostaneš :
Aritmetický průměr nemůžeš podmínkovat na nenulové hodnoty a proto jej musíš spočítat.
průměr =(SUMIF(C5:C34;">0";C5:C34) / COUNTIF(C5:C34;">0") .. a vyjde Ti to správně logicky.
Ten konec mi taký připadá špatně. Do vzorce průměr nemůžeš (neměl bys) posílat textový řetězec ""
R.
Ahoj. Zkus třeba něco takového.
Pojmenuj si oblast. Zmačkni CTRL + klepej na buňky, které budeš chtít smazat. (nebo přes SHIFT ozneč celou oblast) Pak vlevo nahoře v "Poli názvu" napiš smysluplný název. třeba "VolneBunky" a stiskni Enter. Přesvěč se, že když rozklikneš "Pole názvu", že se tam Tvůj název zobrazí.
Napiš něco do buněk ...
1. verze mazání
Klikni na "Pole názvu" a vyber "VolneBunky".
Stiskni Delete
2. verze mazání
Udělej si tlačítko na listě a do procedury napiš
Sub SmazOblast()
With Worksheets("List1")
.Activate
.Range("VolneBunky").ClearContents
ActiveCell.Select
End With
End Sub
R.
Přiznám se, že použití
KDYŽ(C5:C34 ...
vidím poprvé. R.
Ještě maličkost. Taky záleží na které verzi Off jedeš home, prof apod. Já při instalaci, vždy zvolím, že chci celý offic nainstalovat a vše spouštět z HDD. Pak mi relativně nic nechybí. Možná je cesta pro Tebe přeinstalovat offic.
R.
Ahoj.
No asi záleží k čemu to má sloužit. Ten Listbox má více možností. Taky se dá z buněk rychle naplnit. Mi se líbí.
Pokud chceš jít přes VB, C++ Delphi apod. tak taky je to cesta. Vytvoř si komplet ovládací dialog a ulož jej v DLL kterou si připojíš. Zase máš smůlu v tom, že musíš dodávat knihovnu navíc k ExcelApp.
Ten Listbox je vážně hezký :)
R.
Ahoj. V podstatě sis odpověděl sám. Problém je, že ve Tvém sešitě jsou prvky, které sice existují, ale nejsou vytvořené. Podívej se na VBA ... dáš F2 a podíváš se na nahoře : VBAProject ... pak dole List1 ... a vpravo najdeš komponenty HTMLHidden1 apod.
Rovněž, když se podíváš na v design modu na list 1 a 2 tak ve výběru máš nabídku na List1 + HTMLImage.
Podle mě tyto ActiveX obj. existují, ale chybí na ně Create + reference do ??? doplňku.
Nejjednodužší je smazat celý sešit do pryč a udělat to přímo v VBA a nebudeš mít problém s CTRL+C ... CTRL + V.
Nebo máš možnost nejdříve aktivovat doplňěk (musíš zjistit který to je) a až pak otevřít sešit. Je možné, že to bude fungovat ale nesázím na to.
Nebo vyzkoušej třeba odstranit tímto způsobem
Sub mazej()
Call VBAProject.List1.HTMLHidden1.Delete
Call VBAProject.List1.HTMLImage1.Delete
Call VBAProject.List1.HTMLText1.Delete
Call VBAProject.List2.HTMLHidden1.Delete
Call VBAProject.List2.HTMLImage1.Delete
Call VBAProject.List2.HTMLText1.Delete
End Sub
Ani toto nemusí fungovat. Za strátu času Ti to nestojí ... udělej to znova.
R.
'---------------------------------------------
Sub vypis()
'---------------------------------------------
Dim c As Range
Dim i As Long
Dim citac As Long
citac = 1
For i = 1 To Selection.Areas.Count
For Each c In Selection.Areas(i)
Cells(citac, 20).Value = c.Value
citac = citac + 1
Next c
Next i
End Sub
'---------------------------------------------
beru zpět ... můžu. Mě to funguje také. :(
- nejdříve přidat TOOLS - REFERENCES ... přidat MICROSOFT OFICE WEB COMPONENTS
- pak VIEW - TOOLBOX
- pak TOOLS - ADDITIONAL CONTROLS ... a vybrat MICROSOFT OFICE SPREADSHEET
- na panelu TOOLS se Ti objeví ikona pro MICROSOFT OFICE SPREADSHEET a tu vkládáš do FORMsu
R.
Ahoj. Já to nyní vyzkoušen nemohu. Možná až večer budu doma. Čau.
Ahoj. To je asi ten problém. Spouštěj to makrem (vbModal). Pozor na cokoliv co je s pamětí. Používej nothong apod. (screenupdating false ... pak true). Nebo se pokus jej do formuláře vložit dynamicky za běhu. Je to sice pracnější ale funguje.
R.
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