Příspěvky uživatele

To je preto, lebo hlavičky filtra nie sú textové ale číselné. A Excel správne zistí, že zrátavate oblasť čísel okrem jedného susedného čísla (2. riadok), ktorý je tiež číslo. Tak Vám dáva možnosť zahrnúť aj toto číslo. Ak prepíšete hlavičky na textové, zmizne. Ak iba zmeníte formát na text (a potom ešte do každej bunky vstúpite a potvrdíte Enterom), šípka zo vzorcového riadku zmizne, ale zase sa objaví na tých číslach, ktoré ste dal ako text. Neviem, či to má iné riešenie okrem Súbor - Možnosti - Vzorce - Kontrola chýb - Povoliť kontrolu chýba na pozadí - nezaškrtávať.
Prípadne skúste dať na každej hlavičke Ignorovať chybu z tej ponúkanej ponuky s výkričníkom...

Čo je to neaktivita ? Že neprebieha nejakú dobu metóda OnChange nejakého zošitu ?

A keby bolo makro v osobnom zošite makier PERSONAL.xlsb ?
Nuž ale to by muselo byť na každom PC, kde sa budú otvárať súbory na ktoré sa tá kontrola vzťahuje, a navyše neviem, či je možné globálne prevziať OnChange, pre každý otvorený zošit. Lebo by mohla nastať kolízia lokálnej OnChange nejakého zošitu s globálnou OnChange v PERSONAL.slxb.
Neskúšal som, je to len tip (nie typ).

Maticou ?
-Nastavíte definovaný názov OBLAST na oblasť, ktorá obsahuje dáta.
-Umiestnite vzorec, ktorý je teraz v D1 do prvej bunky v stĺpci za posledným stĺpcom OBLAST-i.
-Natiahnete vzorec na počet riadkov rovnajúci sa očakávanému počtu výsledkov, teda :
počet riadkov OBLAST * počet stĺpcov OBLAST

Prázdne bunky ani stĺpce tomu nevadia, len je to matica, teda náročnejší výpočet, tak mu nedávajte 100 celých stĺpcov po 1 000 000 riadkov. Rozumne. Teraz sa v definovanom názve INDEXY počíta s riadkami v maske "0000" teda 1:9999, a so stĺpcami v maske "00" teda 1:99 (A:CU), si prípadne upravte.

No myslím že záleží aj na tom, čo znamená "bez opakování". Pretože to kľudne môže byť tak, že keď už máme 1,2,3 tak nemôžeme mať aj 3,2,1 / 3,1,2 / 1,3,2 / 2,1,3 / 2,3,1.
Teda výsledkov, kde nebudú použité rovnaké mestá bude 31.
Viď tento kód od Paul_Hossler.

pr.

Ukážte ako vyzerá rozosielaná tabuľka, a ako má vyzerať výsledok.

EDIT: Inak príklad ako makrom rýchlo vložiť odkazy na nejaké bunky všetkých súborov.

Pr. Ale ako vraví eLCHa, nedá sa pomôcť, keď to nikto nevidí. Napr.:
Máte správny názov tabuľky ?
Nejdete nejako špatne cez INDIRECT (NEPŘÍMÝ_ODKAZ)?
Obsahuje tabuľka požadované rozsahy ?
Ak idete cez Definované názvy, nieje už rovno v nich nejaká chyba typu #ODKAZ ?
Na karte Vzorec je čudlík "Vyhodnotiť vzorec", odkrokujte si ho, aby ste zistil kde to robí chybu.
atď....

Tu som vycucol z inej sajty iné RGB, ktoré už by mohli sedieť. Je to opäť tá Clasic/Standard kolekcia.
Spôsob aplikácie si už potom zvoľte podľa konkrétnych požiadaviek. V prvom rade je treba mať korektné kódy.

EDIT:
Vymenená príloha. Urobil som všetky 3 kolekcie RAL
-Clasic (213 farieb)
-Design (1714 farieb)
-Effect (490 farieb)
Snáď je to všetko a snáď aj správne.
Kódy som vycucol z HTML kódu tejto stránky.
Vložte príklad toho, kde a ako to chcete použiť.

Tie kódy, čo som našiel budú asi zlé. RAL 5010 som našiel 3 farby :
0, 79, 124
0, 78, 124
14, 41, 75

Treba nájsť nejaké spoľahlivé tabuľky. Navyše existujú Standard, Design, a ešte jedny.

Som teraz len na mobile, keď sa dostanem k PC tak pozriem, či sa to vôbec smie prevádzať na DEC...

A možno ani netreba RGB hodnoty, ale stačí ich previesť na DEC.

EDIT: Vymenená príloha omylom som namiesto xlNone použil vbNull

https://gist.github.com/lunohodov/1995178

Vo VBA je skrytý list "Pomoc", ktorý má nastavenú vlastnosť Visible na xlSheetVeryHidden, preto ten list nevidíte. Zmente si to na xlSheetVisible.
Keď vo VBA kliknete pravým na Forms - UserForm1 - View Code, nájdete tam tento kód:
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
Dim Vyska As Single

With wsPomoc.Cells(15, 6)
.Value2 = TextBox1.Text
.EntireRow.AutoFit
Vyska = .RowHeight
End With

With wsData.Cells(15, 6)
.Value2 = TextBox1.Text
.RowHeight = Vyska
End With
End Sub

Private Sub TextBox2_Change()
Dim Vyska As Single

With wsPomoc.Cells(20, 3)
.Value2 = TextBox2.Text
.EntireRow.AutoFit
Vyska = .RowHeight
End With

With wsData.Cells(20, 3)
.Value2 = TextBox2.Text
.RowHeight = Vyska
End With
End Sub

Funkčnosť tu už bola popísaná niekoľkokrát. Čo k tomu viac napísať? V TextBoxe stlačíte klávesu, napíše sa písmeno, vyvolá to metódu Change daného TextBoxu. V nej sa aktuálna hodnota Textboxu prenesie do pomocnej bunky v pomocnom liste (táto bunka má rovnakú šírku ako celá zlúčená oblasť o ktorú ide, ale len jednoriadkovú výšku), formát bunky pomocnej a zlúčenej je rovnaký, nastavené zalomenie. V pomocnej bunke sa teda potom vyvolá AutoFit
...
.EntireRow.AutoFit
...
teda sa upraví na požadovanú výšku. Táto výška sa potom prečíta a podľa nej sa upraví aj výška zlúčenej oblasti.

Každopádne je to dosť špecifické súbor od súboru, použitie od použitia, druh zlúčenia od druhu zlúčenia ...
Príloha?

Stále hovoríme o Autofit-e jednoriadkovej zlúčenej oblasti. Nie o viacriadkovej. Tam by to bolo zložitejšie.

Ak myslíte "formulárom" list a nie UserForm, tak to bude ešte zložitejšie, lebo treba ošetrovať veľa stavov (zmazanie viac buniek naraz, nesúvislá oblasť a pod...), a to sa mi moc nechce ...

Zdravím Vás.

Síce absolútne neznášam W10 a jeho systém inovácií, no včera som mal dobrú náladu, a tak som konečne povolil "inováciu" z v.1607 na v.1709. Chyba! Okrem toho, že zmizli ikony mnohého SW (Acrobat, Acrobat Reader, Nero, Skype, všetky apl. Ofice 2016, Google Earth, Corel Draw, ACDSee, ABBYY Fine Reader, ...), čo by som možno dokázal prežiť lebo SW zdá sa inak funguje, tak nejde spustiť Excel so zapnutým doplnkom Solver.xlam (Riešiteľ).
Začne inštalovať, a nikam sa nedostane ani po hodinách. Včera pri tej inštalácii vypisoval ešte chybu 400 ak som dal, že ho nechcem vypnúť (viď screen), žiaden ďalší popis.
Ak ho v nastavení skúsim spustiť, rovnaká "inštalácia", rovnako nič.

Takže som chcel skúsiť opravu inštalácie, no inštalátor Office sa nedá naštartovať ani z inštalačného média, ani z Ovládacích panelov.

Je to Office 2016 Pro SK x64, plne aktualizovaný. Nechce sa mi to tvrdo odstraňovať napr. cez Revo Uninstaller, chcem zachovať čo najviac nastavení, hlavne Outlook sa mi nechce zálohovať a znovu nahadzovať heslá, IMAP a pod. na 8 kont.

Môžem vrátiť systém naspäť, ale žiaľ zo skúseností viem, že v žiadnom prípade nieje možné veriť kecom o tom, že sa všetko vráti naspäť, nieje to tak. No a v neposlednom rade potrebujem už mať kvôli zákazníkom najaktuálnejší Win.

Kompletný Clean reinštal systému sa mi robiť nechce z časových dôvodov ...
Najradšej by som len odstránil Excel v oprave inštalácie a znovu ho potom rovnakou cestou nahodil.

Máte nejaký nápad ako opraviť ten Solver ? Alebo aspoň ako opraviť opravenie inštalácie ?

Ďakujem.

Keby ste mali tie vzorce správne (čo nemáte), tak ich odkazujete na rôzne bunky. Jeden na A1 druhý na A2.

Správne má byť (prvý riadok je SK/EN, druhý je CZ):
=IF(AND(100>A1;A1>1);TRUE;FALSE)
=KDYŽ(A(100>A1;A1>1);PRAVDA;NEPRAVDA)

=IF(AND(1<A1;A1<100);TRUE;FALSE)
=KDYŽ(A(1<A1;A1<100);PRAVDA;NEPRAVDA)

Ak v tej podmienke nechcete nič iné robiť, len vypísať TRUE/FALSE (PRAVDA/NEPRAVDA), tak vynechajte podmienku a použite len AND (v CZ je to "A")
=AND(100>A1;A1>1)
=A(100>A1;A1>1)

=AND(1<A1;A1<100)
=A(1<A1;A1<100)
V nápovede by ste mal určite nájsť. Ale ešte skôr hocikde cez Google.

Příspěvky uživatele

Uživatelské menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje