Příspěvky uživatele
< návrat zpět
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.
Dalo by sa to aj maticovo bez pomocného stĺpca, ale na celých milión riadkov je to pomalé. Preto si obmedzte oblasť napr. do 6000. Ako píše marjankaj, príloha nekorešponduje presne s popisom. V O2 máte celkovú sumu, sem nezadávate mesiac. Mesiace máte predsa po jednom v Q2:AB2. Tam si dajte do Q2 napr. maticový vzorec (Ctrl+Shift+Enter)
=SUM((IFERROR(MONTH($H$3:$H$6000);0)=COLUMN(A1))*($H$3:$H$6000<>"")*($F$3:$F$6000))
=SUMA((IFERROR(MĚSÍC($H$3:$H$6000);0)=SLOUPEC(A1))*($H$3:$H$6000<>"")*($F$3:$F$6000))
a nakopírujte ho po AB2, a máte mesiace jednotlivo spočítané.
Ak to chcete silou-mocou urobiť podľa popisu, že zrušíte ten vzorec v O2 a nahradíte ho výberom mesiaca, tak v O3 použite predošlý vzorec ale zmente COLUMN(A1)/SLOUPEC(A1)
na O2.
V stĺpci H máte vzorec
=IF(ISTEXT(A3);TODAY();"")
=KDYŽ(JE.TEXT(A3);DNES();"")
ten sa Vám ale nebude dopĺňať ako píšete. Všetky dátumy budú rovnaké. Ak chcete pri vyplnení A zaznamenať čas v H, tak musíte zapnúť Iteračný výpočet (Súbor - Možnosti - Vzorce - Povoliť iteračný výpočet) a vzorec zmeniť napr. na
=IF(A3="";"";IF(H3="";TODAY();H3))
=KDYŽ(A3="";"";KDYŽ(H3="";DNES();H3))
Bezpečnejšie ale je zadávať dátum ručne.
Prečo by to nefungovalo. Tu som použil skrytý list na ukážku. A 2 oblasti, ktoré sa menia.
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