Příspěvky uživatele
< návrat zpět
Přiznám se, že jsem to vůbec nepochopil.
Jednoduché řešení = skrytý sloupec, v něm převést chybu na 0 a ten sčítat pomocí SUBTOTAL.
Dobře.
A proč trváte na makru? (pro E2007)
A proč tam máte #N/A?
Proč list ze souboru zkratky nevložíte do profes_org (třeba jako skrytý) - takto si to zbytečně komplikujete
Mno - překvapivě jednodušší je to vzorci než pomocí VBA.
Stiskem F9 provedete přepočet (nové rozvržení), hodnoty uložíte tak, že si ze sloupce D vyberete data a uložíte si je někam jako hodnoty.
Pokud je počet hodnot konstantní, pouze se mění jejich podíl, je to asi nejlepší řešení.
Pokud bychom znali maximální počet hodnot, ale tento by nebyl konstantní, také bych to řešil vzorci.
Pokud by ale počet hodnot nebyl znám, musel by se vždy hlídat počet vzorců ve sloupcích D,J,K,L - ten se musí rovnat počtu celkových hodnot. Začal bych ale uvažovat o VBA až pokud by se toto mělo dělat často.
Jen poznámka: Použil jsem písmena A-F místo čísel 1-6.
Jaj - myslíte automatické rozšíření zdrojové oblasti...
Tak to snad není problém a když bude chtít jít touto cestou a nebude vědět, taxe poradí ;)
@Palooo
Nerozumím otázce ;)
Co si představujete pod takovým pojmem měnit pole
Je to jen návrh, kterou cestou bych se dal, abych využil funkcionality excelu (kterou jsem si zaplatil) a nevymýšlel něco, co už je možná vymyšleno
Autor musí říci, jestli je to možné.
Než tady začneme něco vymýšlet, dovolím si navrhnout velmi jednoduché řešení.
@marjankaj
Vysvětlete mi složitost toho vzorce - když stejného výsledku dosáhnu takto:
=OPAKOVAT(ZNAK(64+SLOUPEC()-4);COUNTIF(data1 E:E;MIN(data1)))
místo
=KDYŽ(COUNTIF(POSUN(data1;0;SLOUPEC()-5;ŘÁDKY(data1);1);MIN(data1));OPAKOVAT(ZNAK(64+SLOUPEC()-4);COUNTIF(POSUN(data1;0;SLOUPEC()-5;ŘÁDKY(data1);1);MIN(data1)))&" ";"")
Mno tak autor udělal z celkem zajímavého zadání celkem nudné
Kazdopadne, jednalo sa len o riadok.
a stejně neřekl co s duplicitami
@marjankaj
Asi by mu robilo problém aj tvoje riešenie.
Proč?
Čeho chce dosáhnout jsem pochopil - jen se zamotal s těmi uvozovkami.
umím zapsat range(+280:280+).Select
a co to proboha má dělat? resp. co tam dělají ta pluska?
Pokud víte, že je to celý řádek, tak
Rows(radek).Select
nebo
Range(radek & ":" & radek).Select
nebo
Cells(radek, 1).EntireRow.Select
nebo...
Uvozovky nemusíte řešit - ty říkají pouze to, že to co je mezi nimi, je konstanta typu String. Takže pokud napíšete
radek & ":" & radek
máte String zaručený díky operátoru &
Napadlo mě principiálně podobné řešení jako Opičáka, ale...
funguje to jen, když se minimální hodnota objeví pouze jedenkrát
Co se má vrátit, když tam bude vícekrát?
Teď mě ještě napadlo, že vlastně asi nemusí ani vytvářet tu pojmenovanou oblast, protože když jsou ostatní buňky zamčené, taky by mohlo fungovat
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues + xlLogical).Locked = True
a v tom případě pouze projedete cyklem všechny listy a provedete pro ně
s odemykáním snad 5 řádků?
Musel bych vidět ten soubor, protože nevím jak to má udělané (věčné téma přílohy), ale nějak takto
Range("ToLock").SpecialCells(xlCellTypeConstants, xlNumbers + xlTextValues + xlLogical).Locked = True
@Palooo
Cyklus je zbytečný
Buňky, kterých se to týká, dejte do pojmenované oblasti.
V ní pak vyberte všechny neprázdné buňky (SpecialCells) a nastavte vlastnost Locked na True.
Toť vše
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