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

Příspěvky uživatele

Public wbPracovni As Workbook

Sub pok1()
Set wbPracovni = ThisWorkbook
End Sub

Sub pok2()
MsgBox wbPracovni.Name
End Sub

To nastavenie premennej urobte rovno v Workbook_Open
Ale prečo nepoužijete rovno volanie ThisWorkbook namiesto wbPracovni ?

PS: A naplnenie môžete robiť pri otvorení zošita
Private Sub Workbook_Open()
Call pok1
End Sub

Presne tak, skopírovať si najmä dlhší príspevok pred odoslaním, je veľmi dobré si osvojiť. Veľa krát pomohlo. Ale zase na druhej strane tu nie sú reklamy - zatiaľ.

No to nepôjde, pretože to je proti logike filtra. Ja som to čo požadujete sprevádzkoval tak, že som druhý list vôbec nepoužil. Stĺpce C:I som skopíroval do listu 1. Na A1:J1 som aplikoval štandardný filter (klik na lievik). Potom v C1 kliknite na šípku - Clear - AK. A máte to, môžete vypĺňať relevantné dáta v ostatných stĺpcoch. Ak chcete zobraziť/upravovať iné alebo všetky, tak opäť klik na šípku v C1 a Select All alebo Clear - FR (alebo čokoľvek iné).
Iba takto Vám ja dokážem pomôcť.
PS: Názov mesiaca by som vymenil s prvým riadkom, aby sa nevyfiltrovával.

OT: Keď už sa niečo dostane do červených čísel, tak za to väčšinou môže management

Podľa mňa bude potrebné, aby aj tie ostatné stĺpce boli v tej zdrojovej tabuľke v prvom liste.

Toto Vám vypíše ale aj keď pridávate prílohu priamo vo formáte XLS, alebo je príloha v RAR/ZIP väčšia ako 256 KB.

No skúsim to ešte raz. Odmyslite si tú medzikrokovú tabuľku, vôbec na ňu nemyslite, nemáte ju, nikdy ste ju nevideli. Viete ako by mal vyzerať výsledok v tej (nechcem povedať transponovanej) "poslednej" tabuľke. Viete aké výpočty nad dátami zo zdrojových tabuliek máte urobiť. Tak si tie výpočty urobte priamo vo vzorcoch, koncipované tak, že budú zohľadňovať rozdielnosť orientácie zdroj-cieľ. V prvom rade by sme potrebovali vidieť tie vzorce, aby sme usúdili, či sa to tak bude dať. Ak áno, môžete rovnako ako predtým urobiť jeden, a pretiahnuť ho.

Ak chcete makro, tak si to kludne urobte na tlačítko, ktoré Vám to preklopí, ale opäť treba myslieť na to, aký druh vzorcov tam je (a to tajíte), pretože na normálny vzorec použijete "bunka.Formula" ale na maticový "bunka.FormulaArray".

Niečo takéto, a to zavoláte tlačítkom:
Sub Rel2Abs()
Dim rng As Range, bunka As Range
On Error Resume Next
Set rng = Application.InputBox("Zadajte oblasť :", "Zmeniť relatívne odkazy na absolútne", Default:=Worksheets("List1").Range("B12:O17").Address(0, 0), Type:=8)
On Error GoTo 0
If rng Is Nothing Then Exit Sub
For Each bunka In rng
If bunka.HasArray Then
If Len(bunka.FormulaArray) < 255 Then
bunka.FormulaArray = Application.ConvertFormula(Formula:=bunka.FormulaArray, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
Else
If Len(bunka.Formula) < 255 Then
bunka.Formula = Application.ConvertFormula(Formula:=bunka.Formula, FromReferenceStyle:=xlA1, ToReferenceStyle:=xlA1, ToAbsolute:=xlAbsolute)
End If
End If
Next bunka
End Sub

A nedajú sa Vám tie vzorce urobiť už priamo v tej transponovanej tabuľke, čiže bez medzikroku v tabuľke prvá+druhá?

xlnc myslel niečo takéto:

Ak by hrozilo, že sa bude zošit používať na inej jazykovej verzii Excelu ako CZ, tak si ten objekt obrázku premenujte. Ak je totiž objekt nazvaný defaultným menom, ktoré mu dá Excel, tak toto meno je lokalizované, a to znamená že na EN/SK Exceli sa bude hľadať lokalizovaný názov, čiže napr. Picture7. Bác, chyba makra. Akonáhle to ale premenujete, tak sa bude všade používať ten premenovaný názov.
Napr. takto to môžete premenovať:
http://wall.cz/index.php?m=topic&id=27237#post-27237

Samozrejme, v podmienenom form. (PF) ide vždy o výraz vracajúci logickú True/False (Pravda/Nepravda). PF sa vykoná iba ak je True. To ale nieje všetko zmenil som Vám aj výpočet Min/Max, ktorý teraz eliminuje 0 ak tam sú aj iné hodnoty. V PF je to potom ľahšie.
Ešte poznámka : Na to aby som rozšíril stĺpec nepoužijem zlúčenie 4 stĺpcov, ale iba rozšírenie jedného. Aj som Vám takú verziu už nachystal, len som už iba na tablete, a zajtra prídem k PC asi až poobede...

EDIT: V prílohe pridávam, tie jednoduchšie stĺpce...

Presne to robí ten môj prvý kód. Čiže ak to chce mať na jeden klik, tak je makro jediná možnosť. Z pamäti teraz neviem, či označením oblasti tlače docilime spojenie listov na jednu stranu, overím keď budem doma. Inak je riešením môj druhý variant.

Skúste.

EDIT: A môžem sa opýtať čo chcete dosiahnuť v tomto vzorci ?
=IF(D2=$V$2;"ano";IF(D2=$W$2;"ne";"ne"))
pretože časť
IF(D2=$W$2;"ne";"ne")
je nezmysel, lebo nikdy nedá inú hodnotu ako "ne"

A ten kód si vete teda makrom stiahnuť do takejto podoby? Inak je fuk či to má príponu RTF/TXT.
Nieje to dokonalé, ale narýchlo môže byť.

Presne som to chcel napísať, že to vyzerá ako indexované obrázky, napr. bar0.png, bar25.png, bar50.png ...
Inak ScreenShot začiatku kódu naozaj nestačí. Treba poslať uložený kód stránky, či by sa dal rozlúskať "primitívnou" textovou metódou. Napr. podľa názvu obrázku v určitom mieste kódu, alebo v najhoršom prípade odčítaním počtu modrých pixelov v riadku v obrázku. Rovnako podľa názvu obr. v kóde by sa dalo zistiť možno aj zaplnenie papiera. Ak nám pošlete čo najdetailnejší kód, možno ...

EDIT: Aha, až teraz som si pozrel druhý obr. Áno je to jasné, je to pomocou 25%-ných obrázkov (trieda BarGraphImage). Čiže ak je tento kód stiahnuteľný do VBA v textovej forme, tak nieje problém si to v texte vypreparovať, a ak poznáte názvy tých obrázkov pre každý z dostupných stavov, nemal by byť problém.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse