Příspěvky uživatele

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.

Radšej si ten obrázok premenujte. Pri spustení kódu na inej jazykovej verzii Excelu to rado robí problémy ak sa ponechá predvolený názov. Napr. takto:
Sub Rename()
Dim old As String
On Error GoTo CHYBA
old = Selection.ShapeRange.Name
Selection.ShapeRange.Name = "pic1"
MsgBox ("Premenovaný objekt " & old & " na " & Selection.ShapeRange.Name)
Exit Sub
CHYBA:
MsgBox ("Chyba !")
End Sub

Myslíte takto ? Je tam potom vypnutá chybová hláška v overovaní dát, aby ste mohli zadať aj neexistujúci text, viď ukážka.

Tak ?

Ak poodpovedáte na otázky od xlnc, tak pošlite prílohu, pretože nemáme na čom to želané makro postaviť. Ale tiež si myslím, že ak nepotrebujete data uchovávať, tak prečo nepoužiť nachystanú čistú šablónu ? Ale nieje problém makro napísať. Len tú prílohu, aby sme videli štruktúru tej tbl, prípadné formáty, orámovania, vzorce, prepojenia, okolité bunky ... . Citlivé info zmente.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje