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

Příspěvky uživatele

Dá sa aj maticou bez pomocného stĺpca:
=INDEX(D3:D7;MATCH(MAX(COUNTIF(D3:D7;D3:D7));COUNTIF(D3:D7;D3:D7);0))
=INDEX(D3:D7;POZVYHLEDAT(MAX(COUNTIF(D3:D7;D3:D7));COUNTIF(D3:D7;D3:D7);0))

Function Create_Dir_Structure(D As String) As Boolean
Dim S() As String, i As Byte, Cesta As String

If Len(D) < 3 Then Exit Function
S = Split(D, "\")
If UBound(S) = 0 Then Exit Function

Cesta = S(0)
On Error GoTo KONIEC

For i = 1 To UBound(S)
Cesta = Cesta & "\" & S(i)
If Len(Dir(Cesta, vbDirectory)) = 0 Then MkDir Cesta
Next i

KONIEC:
Create_Dir_Structure = Err.Number = 0
End Function

Sub pokus()
Dim disk As String, slozka As String

disk = "C:"
slozka = "slozkaDomy"

If Not Create_Dir_Structure(disk & "\" & slozka & "\systemObsazen1") Then
MsgBox "Chyba. Adresár nebol vytvorený.", vbCritical
Exit Sub
End If
End Sub

marjankaj: No toto práve nestačí na to, aby to po stlačený farby spočítalo. Treba vyvolať prepočet.

Ako píše mepexg: Jednoduchšie by bolo to spraviť cez KT, alebo prípadne COUNTIF/SUMIF/matica, a zadávať nejaké hodnoty, nie farby. Najskôr KT.
Ale stále nieje príloha.

Už zase tie počty podľa farieb, a zase rovnaký problém. Excel nemá štandardnú funkcionalitu na odchytávanie zmeny farby. Jediné riešenie, ktoré by bolo ako tak akceptovateľné, je opäť cez vytvorenie triedy CommandBars v móde WithEvents, a kontrola Update CommandBar-u. Ale to má svoje muchy, napr. nedá sa to dobre použiť v UDF funkcii, nevyvolá ju. Je tam aj iné správanie v Debuggery a iné v reále. Minule som to pri niečom robil, ak to nájdem, možno ..., ale dnes bez prílohy nie. Nedarí sa, a nemám chuť na nič ...

Buď 0 skryte vo formáte bunky, alebo vzorec zopakujte v podmienke:
=IF(COUNTIFS(...)=0;"";COUNTIFS(...))

Tabuľku iba skopírujete, a zmeníte "názov".

=B2+IF(MOD(ROW();2)=0;C2=0;-1*C2)
=B2+KDYŽ(MOD(ŘÁDEK();2)=0;C2=0;-1*C2)
Vaše zadanie je veľmi zlé. Vy asi viete, čo potrebujete, no neviete sa správne pýtať.

Ak je 1 riadok x a druhý y, tak nemôže platiť y=x+1, keď tvrdíte, že sa nemajú použiť bunky iného riadku.

Jiří497:
"chybný vstup" ??? Ako môže nastať tento stav, keď veny tvrdí, že je C nemenný a obsahuje 0 alebo 1? Či myslíte na prázdne ešte nezadané bunky?

EDIT: prípadne to ešte trošku skrátiť o 2 znaky :)
=B2+IF(MOD(ROW();2);-1*C2;C2=0)
=B2+KDYŽ(MOD(ŘÁDEK();2);-1*C2;C2=0)

Heh, robíte s tým čáry-máry ako mepexg :) V PowerBI to funguje. No uložiť sa to dá iba ako pbix/pbit - to mi do Excelu napchať nejde, export iba ako šablóna PowerBI a PDF, publikovať iba online. Ak dám v Exceli Hľadať v katalógu údajov, tak PowerBI chce login na PowerBI konto. Snáď to ide aj inak ako online cez svoje konto. Nechce sa mi to ďalej skúmať, nepotrebujem to, a tieto P* veci mi nevoňajú, ale majú ohromné možnosti.

Funkcia CONCAT je od verzie 2016 (tuším), tak ju buď zmente na pôvodnú CONCATENATE, alebo ju vynechajte a použite ampersand &
=MONTH(B2)&YEAR(B2)
=MĚSÍC(B2)&ROK(B2)
alebo použite
=TEXT(B2;"myyyy")
=HODNOTA.NA.TEXT(B2;"mrrrr")

No to by bolo celkom zaujímavé. Ale ak dobre chápem, je to Power BI, nie Power Qwuery. Ak doinštalujem Power Bi Desktop, tak mi to v Power Query neponúka Power BI dotaz (šedý). Máte nejaký funkčný príklad, nech sa z toho vysomárim?

Konkrétne na tomto príklade je vidieť, čo myslel pred rokmi elcha, keď písal, že sa na prevod nedá spoľahnúť. Pozrite si 3. stĺpec vo vyznačených riadkoch - Word nerozpozná text, a zmení ho na obrázok, aj keď v PDF-ku je to text!

"Potreba" úpravy PDF súborov je neskutočne rozšírený nešvar. Riešim to tak často, že si myslím, že aspoň 90% ľudí nepochopilo, že PDF je primárne určený ako finálny (!) produkt.

No ja neviem, 10 a viac rokov do šírky ? Ja by som to dal na výšku, a budete si môcť skryť nepotrebné (prázdne) mesiace. Prípadne najjednoduchšie je použiť filter ako spomína marjankaj.

No neviem. Laco to písal pred 3,5 rokmi ..., už to asi poriešil, no ak je riešenie, možno sa bude pozdávať aj niekomu inému...

"List4" je object vo VBA, teda meníme ho List4.Range("A1")... na ušku listu je ale napísané to, čo je v zátvorke, teda "My galaxy data", a tam meníme Worksheets("My galaxy data").Range("A1")...

Pr.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje