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

Příspěvky uživatele

Range("B:B").ClearContents

něco jako tady :
fce suma sečítá v oblasti buněk podle toho, kde je umístěna

Asi bych to řešil pomocí fce nepřímý odkaz. Do všech nastavených "oblasti"
=AVERAGEIFS($M$3:$M$14;$C$3:$C$14;"Stroj1";$D$3:$D$14;"Pepa";$E$3:$E$14;"Tesco")

bych vložil asi toto:
$M$3:NEPŘÍMÝ.ODKAZ("M"&ŘÁDEK())

Zde je můj pokus (snad sem to pochopil správně). Zbytek si jistě zvládneš upravit sám podle svých potřeb.

"Jak si proboha na ten superdlouhej vzorec prisel??"

vysvětlení v souboru (snad srozumitelné)

"Stejne vychazis s te kontingencni tabulky"

ano přesně tak, když už byla vytvořena ve tvém mustru tak sem toho využil. Určitě by to šlo i bez ní.

Jestli sem to dobře pochopil, tak např. nějak takto:

Tak sem chvilku Googlil a dopracoval se k tomuto: viz soubor.
Zkoušel sem vkládat delší text a okno komentáře se zvětšovalo. Bohužel s přibývajícím textem se zvětšovala spodní mezera mezi textem a komentářovým oknem.

"komentár je v dlhom riadku, ale nie je prispôsobený okienku pre komentár. Nefunguje Selection.AutoSize = True."

Já si právě myslím, že Selection.AutoSize = True funguje spolehlivě. Když vložíš false, tak se ti to zase stáhne do malého okna. AutoSize = True přizpůsobuje právě to okno textu nikoliv text oknu.
Když si zadal svůj komentář makru do jednoho řádku, tak ti ho taky tak zobrazí. Jak má makro "vědět", že si přeješ text vložit do okna komentáře např. do dvou řádků pokud mu to nedáš "vědět" (vbNewLine)

"V druhom prípade je dokonca Selection.AutoSize = True odstránený."

Ano, protože je nahrazen tímto řádkem
.Comment.Shape.TextFrame.AutoSize = True '

Jediná věc co mě napadá je zadat délku okna v kódu "napevno" a nechat pouze automaticky měnit výšku okna podle délky textu. (nezkoušel jsem a nemám ponětí jestli je něco takového možné)

Snad sem koukne Poki a vyjádří se k tomu.

A nebo ještě jinak:

Tak jsem si dovolil nahlédnout
A Bohužel se mi také zobrazuje chyba (Excel 2007)
Method 'Select' of object 'Shape' failed

Chvilku sem si s tím hrál a dopadlo to takto viz soubor. Po přidání řádku (označen vykřičníky se chyba již nezobrazuje.

Vlastní fce mi moc nejdou
Jediný co se mi podařilo s tím udělat je, že ti fce vrátí počet buněk s komentářem v celým listu.

Snad sem koukne někdo zdatnější

Pomocí vzorečku to nepůjde - nebo o takové fci nemám páru, ale vyzkoušej makro v souboru

Jestli chceš to makro spouštět automaticky při otevření sešitu, tak ho musíš vložit do modulu sešitu (ThisWorkbook) né listu, jako Private Sub Workbook_Open()

Jeden malý maticový

Co takhle:
Sub secti()
'sečte hodnoty v buňkých A1 a B2
Soucet = Range("A1").Value + Range("B2").Value
'do buňky A1 zapíše součet buněk A1 a B2
Range("A1").Value = Soucet
'vymaže hodnotu v buňce B2
Range("B2").ClearContents

End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje