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

Příspěvky uživatele

ovechkin888: buď máte prílohu veľkú, alebo je to *.xlsm súbor. Treba ju zmenšiť zredukovaním nepotrebných dát do 256 KB. Na ukážku netreba kompletné súbory, stačí reprezentatívna, priekazná vzorka so zachovaním rozmiestnením, formátom, a druhom údajov, a ich eventualít. Ak je to xlsm tak zaZipovať.

Takže, napr. v PowerQuery si nájdem a adresári najnovší súbor Data. Načítam si z neho údaje a vyriešim tie zhovadilosti s medzerami. Nechám si iba riadky, kde v "datum" nič nieje. Rovnako ako v predchádzajúcom príklade si vyriešim tie medzery aj s dátami v liste Kontrola. Stále som v PQ. Čo má byť účelom toho celého? Čo majú byť "další upravy" podľa zmienky v makre? Pýtam sa, pretože nerozumiem ani tomu, či sa majú do listu Data vypísať iba také záznamy zo súboru Data, ktoré zároveň niesú v liste Kontrola, alebo opačne iba také, ktoré sú v liste Kontrola a zároveň aj v súbore Data. Záleží na tom, čo potrebujete, podľa toho bude následný postup, a možno makro nebude treba.

JJ, ale aj tak si myslím, že vrah bude ten záhradník

ovechkin888, musíte priložiť nejakú prílohu s príkladom vstupu aj výstupu...

S tým žiaľ nepomôžem ...

Ak iba aktívny list linkovaného zošitu tak:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
ActiveWindow.Zoom = 60
End Sub
ak všetky listy linkovaného zošitu tak:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet
Application.ScreenUpdating = False
Set bAct = ActiveWorkbook.ActiveSheet
For Each WS In ActiveWorkbook.Worksheets
WS.Activate
ActiveWindow.Zoom = 60
Next WS
bAct.Activate
Application.ScreenUpdating = True
End Sub
prípadne použiť pole názvov listov a zoomovať ich naraz:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim WS As Worksheet, bAct As Worksheet, L As String
Application.ScreenUpdating = False
With ActiveWorkbook
Set bAct = .ActiveSheet
For Each WS In .Worksheets
L = L & IIf(LenB(L) = 0, vbNullString, "?") & WS.Name
Next WS
.Worksheets(Split(L, "?")).Select
End With
ActiveWindow.Zoom = 60
bAct.Select
Application.ScreenUpdating = True
End Sub
Makro dať do modulu ThisWorkbook keď chcem "chytať" všetky linky v našom zošite (vo všetkých listoch), alebo do modulu daného listu ktorý chceme checkovať, len potom je definičný riadok procedúry iný
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

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?

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse