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

Příspěvky uživatele

Asi Vám robí problém získavanie čísel z riadkov, to môžete nahradiť malým poľom čísiel, alebo absolútne/relatívne adresovanie. Upravené.

Aplikovaný postup z daného zdroja + check kódov uvedených bánk v tom PDF.

Nevolajú sa stĺpce náhodou "Stĺpec 1", "Stĺpec 2", a pod. ? Excel to vraj môže vyhodnotiť ako duplu. A skúste zmazať staré položky v možnostiach KT.

Na prd je to, že def. názov. "Oblasť_tlače" si uchová svoj vzorec
=TISK
len nejakú dobu. Neprišiel som na to, prečo sa mi po nejakej dobe zmení na pevný rozsah

No čo teda, frčí či nefrčí ?

Jedine pomocou makra. Teraz som to urobil tak, že Podmienené formátovanie volá makro funkciu na overenie označenej oblasti. Má to veľkú výhodu oproti obyčajnému vyfarbovaniu buniek v makre, a to tú, že nestrácate Undo.
Kód do Modulu:
Public bJeFarbene As Boolean
Public RNG As Range

Public Function UDF_Select_Oblast() As Range
Set UDF_Select_Oblast = RNG
End Function
Kód do udalosti listu
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set RNG = Intersect(Selection, Range("B2:B109,E2:E109,H2:H109,K2:K109"))
If Not RNG Is Nothing Then
bJeFarbene = True: Calculate
ElseIf bJeFarbene Then
Set RNG = Nothing
Calculate
End If
End Sub
Vzorec do Podmieneného formátovania (pri označenej bunke B2):
=COUNTIF(udf_select_oblast();B2)>0
jeho rozsah
=$B$2:$B$109;$E$2:$E$109;$H$2:$H$109;$K$2:$K$109

Priložte nejakú prílohu, nech je vidieť aj čo robíte aj ako to robíte, aj požadovaný výsledok (na nejakých dátach, v nejakej forme, ...).

Nie je to môj vzorec, zdroj som uviedol na začiatku. Na tom linku je to po krokoch vysvetlené, čiže sa pochopiť dá. Akurát v tomto prípade odpadne potreba to rozdeliť na test čísla a textu samostatne.
No a čo sa týka toho zoradenia, ešte nad tým ak bude čas a chuť porozmýšľam, bo mi narýchlo nedáva zmysel prečo to tak je. Ak si totiž overím cez < alebo > alebo cez COUNTIF tak mi to zistí správne že napr. "200_1" je < ako "301", ale už to správne nezoradí. No uvidíme.

EDIT: 5.3.2021 18:37
Tak skúste takto. COUNTIF akoby počítal inak pri = a inak pri <, preto som ho vynechal a použil trochu zložitejší počet cez MMULT. Mrk na def. názov MENSI.

Tak skúste

Je to megavzorec, tak som použil 2 def. názvy pre zjednodušenie...

"Prehled" nie je "Přehled" !
Sub TiskDoPdf()
Dim Mesic As Integer, OldSelect As Worksheet
Mesic = Sheets("Měsíc").Range("A1").Value
Set OldSelect = ActiveSheet
Sheets("Přehled").PageSetup.PrintArea = Sheets("Přehled").Range("A1:I50").Offset(0, (Mesic - 1) * 9).Address
Sheets(Array("A", "B", "C", "D", "Přehled")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\users\slay\desktop\TISK DO PDF\" & Mesic & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
OldSelect.Select
End Sub

Veď to spravte naraz, aj linky aj hodnoty.

Heh, no na to pivko vezmite niekoho bližšieho, ja som z SK. Teda ak nájdete niečo otvorené najbližšie mesiace :(
V CZ som bol naposledy v Ostrave pred 2 rokmi...
Užite v zdraví. Reportnite prípadné chyby z praxe, poriešime.

To nebude problém. Vytvoríme rekurzívnu (do seba sa opakovane vnárajúcu) procedúru. Zosumarizujme si čo potrebujete:
A - celá cesta k súboru
B - veľkosť súboru
C, D, E, F, ... postupne toľko stĺpcov koľko je podadresárov, každý stĺp jeden podadresár ???

Skúste. Je to aj s popisom (ignorujte pls gramatické chybky).

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje