Příspěvky uživatele
< návrat zpět
Mohol by ste nahrať aspoň maličkú prílohu s 3 riadkami dát v každej zlučovanej Tabuľke/tabuľke? O koľko stĺpcov CZK->EUR ide? Násobíte r. 2022 aktuálnym kurzom ??? Alebo máte pre každý dátum historický kurz? Koľko je celkovo +- riadkov a stĺpcov? ...
Obmedzenie EVALUATE/VYHODNOTIT spočíva v maximálnej dĺžke textu vzorca 255 znakov. Preto Vám to nejde ani po nutnej úprave všetkých
[@trip]
na
TabData[@trip] v texte vzorca.
Ten vzorec je divný, vkuse to isté hľadanie. Skúste ten vzorec premyslieť inak, prípadne rozložiť na časti ako Definované názvy, a tie použiť vo vzorci (to som netestoval - len nápad).
Každopádne, keď sa vojdete do 255 znakov, tak:
1. Vytvorte si definovaný názov napr. "VYHODNOTIT_VZOREC" napr. takto:
=EVALUATE(IF(procedure!$A$2=2;procedure!$D$7;IF(procedure!$A$2=1;procedure!$D$5;"není 1 ani 2")))
=VYHODNOTIT(KDYŽ(procedure!$A$2=2;procedure!$D$7;KDYŽ(procedure!$A$2=1;procedure!$D$5;"není 1 ani 2")))
2. Do stĺpca "control trip" v Tabuľke "TabData "zadajte vzorec:
=VYHODNOTIT_VZOREC
Poznámky:
-na liste "haulier" vyhľadávate v stĺpci G, kde nič nie je
-ak máte v procedure!D7 a D5 český vzorec, na žiadnom inom Office to EVALUATE/VYHODNOTIT nedokáže vykonať
Áno, už som to tiež písal vyššie. Parameter v EVALUATE/VYHODNOTIT je text.
@Alfan: nemôžete priložiť nejakú anonymizovanú prílohu? Lepšie by sme to dokázali implementovať na nej. Nech je vidno čo je Tabuľka, kde sú texty (vzorce), čo treba pridať (odkaz na Tabuľku/list do textu vzorca) ...
nevysomári - nevyzná sa, neporozumie, je z toho somár 
Nemôžete použiť
[@trip]
nezabúdajte, že je to textový reťazec, a on nevie o akú ide Tabuľku. Musíte použiť
tblPokus[@trip]
A to vyskúšanie jednoduchých vzorcov som myslel presne ako som napísal. Neskúšajte to VYHODNOTIT rozchodiť na polmetrovom vzorci využívajúcom pokročilé funkcie, ale na jednoduchom KDYŽ ako som napísal.
Samozrejme, zabudol som na preklad :)
Skúste dať preč
"="&
vraj to má byť text bez "=", mne to fičí s ním aj bez neho.
EDIT:
Nechce sa mi to overovať, tak to prehodím na Vás. Overte ďalej, či EVALUATE/VYHODNOTIT pozná CZ vzorce.
A určite sa nevysomári mimo Tabuľky z tohto
[@trip]
Potom skúste iba jednoduchý vzorec, napr.
KDYŽ(1=1;1+2;5+5)
, žiadne TYP, JE.CHYBHODN, SVYHLEDAT a pod.
Vytvorte si Definovaný názov napr. "PROVEST_VZOREC"
=EVALUATE("="&List1!$A$8)
=VYHODNOTIT("="&List1!$A$8)
a potom do C2 dajte
=IF(A2=2;PROVEST_VZOREC;4444)
=KDYŽ(A2=2;PROVEST_VZOREC;4444)
Ak pri otváraní zošitu pridáte do zabezpečenia parameter UserInterfaceOnly, zmena makrom nebude vyžadovať odomknutie, a všetko môže byť zamknuté, no nemôže byť prepojená bunka:
Private Sub Workbook_Open()
Worksheets("List1").Protect Password:="", UserInterfaceOnly:=True
End Sub
V liste potom stačí
Private Sub CheckBox1_Click()
Range("B2").Value = CheckBox1.Value
End Sub
Ak chcete prepojenú bunku, môžete ju nalinkovať do skrytého listu, nemusí byť v tom liste a zavadzať. Ten list ale bude skrytý nastavením vlastnosti
Visible = xlSheetVeryHidden
Teda nebude dostupné jeho odkrytie štandardným spôsobom, ale iba vo VBA. Potom nepotrebujete vyššie uvedené 2 kódy.
A to VBA zabezpečte tiež heslom. Aby sa nedal odokryť list, ani aby nebolo vidieť heslo vo Workbook_Open.
Tools - VBAProject Properties - Protection - Lock project for viewing + heslo
Ale zabezpečenie Excelu neberte ako nedobytné, to je skôr na zabránenie nechcenému dodrbkaniu dát, ako na zabezpečenie pred "hackerom" :)
Do modulu ThisWorkbook
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If Sh.Name <> "Vstup" Then
Dim Bunka As Range, Riadok(), bPodmienka As Boolean
On Error Resume Next
Set Bunka = Intersect(Target, Sh.Range("C2:C11")).Cells(1)
If Err.Number = 0 Then
Cancel = True
Application.EnableEvents = False
If Bunka = ChrW(10004) Then
Bunka = ""
Else
Riadok = Bunka.Offset(0, -2).Resize(, 4).Value
bPodmienka = (Not IsEmpty(Riadok(1, 1)) And IsNumeric(Riadok(1, 1))) And (Not IsEmpty(Riadok(1, 2)) And IsNumeric(Riadok(1, 2))) And Riadok(1, 2) >= Range("hodnmin") And (Not IsNumeric(Riadok(1, 4)) Or IsEmpty(Riadok(1, 4)))
Bunka = IIf(bPodmienka, ChrW(10004), "")
End If
Application.EnableEvents = True
End If
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "Vstup" Then
Dim Zmena As Range, ARE As Range, OK As Range, NOK As Range, Riadky(), r As Long, hodnmin As Double
Set Zmena = Intersect(Target, Sh.Range("A2:B11,D2:D11"))
If Not Zmena Is Nothing Then
Set Zmena = Intersect(Zmena.EntireRow, Sh.Range("A2:D11"))
hodnmin = Range("hodnmin")
For Each ARE In Zmena.Areas
Riadky = ARE.Value
For r = 1 To UBound(Riadky, 1)
If Riadky(r, 3) <> "" Then
Select Case (Not IsEmpty(Riadky(1, 1)) And IsNumeric(Riadky(1, 1))) And (Not IsEmpty(Riadky(1, 2)) And IsNumeric(Riadky(1, 2))) And Riadky(r, 2) >= hodnmin And (Not IsNumeric(Riadky(r, 4)) Or IsEmpty(Riadky(1, 4)))
Case True: If OK Is Nothing Then Set OK = ARE.Cells(r, 3) Else Set OK = Union(OK, ARE.Cells(r, 3))
Case False: If NOK Is Nothing Then Set NOK = ARE.Cells(r, 3) Else Set NOK = Union(NOK, ARE.Cells(r, 3))
End Select
End If
Next r
Next ARE
Application.EnableEvents = False
If Not OK Is Nothing Then OK.Value = ChrW(10004)
If Not NOK Is Nothing Then NOK.Value = ""
Application.EnableEvents = True
End If
End If
End Sub
EDIT:
Pridal som aj reakciu na to, ak zmeníte A/B na nečíslo alebo D na číslo, prípadne zmažete - fajka zareaguje. Lebo môžete urobiť zmenu dát, ktoré stáli predtým za schválením fajky...
Které by před kopírováním dat na jiný list omezilo oblast kopírovaných dat podle týdnu.
To je taká čarovná veta :)
Toto vyzerá ako ten výsledný list. Teda sem sú už dáta nakopírované z toho listu kde sa počítajú. A odtiaľ sa môžu kopírovať aj filtrované, čo môže meniť spôsob kopírovania. Celé kopírovanie neviem ako má fungovať, či by to náhodou nemohlo byť v jednom kroku z toho počítaného. Lebo takto to vyzerá, akoby ste chcel jedným krokom kopírovať dáta z počítacieho/filtrovacieho listu (ktorý berie dáta asi z ďalších listov), a druhým krokom z tejto kópie kopírovať vybraný rozsah týždňov na ďalší list (ktorý tu nie je, a neviem ako má vyzerať). Ideálne by bolo anonymizovať súbor, ponechať logiku, formáty, vzorce, filtre, zdrojový list/y, počítaný list, a požadovaný výsledok (hoci aj manuálne vytvorený).
Ak to má kopírovať makro, tak nie je potreba ani stĺpec "týden", to si dokáže makro vypočítať, či už po jednom cez WorksheetFunction alebo hromadne cez Evaluate. Stále pridávate tie texty "46 .týden", "47 .týden", ... Tie tam ale nie sú, tie tam predsa dopĺňame a zlučujeme s iným textom s menom.
Kopírovať vo Vašom slovníku znamená Copy+Paste alebo hodnota=hodnota?
Samotné makro väčšinou nie je problém napísať, ale pochopenie, o čo sa dotazovateľ snaží, často nevhodnou prílohou, popisom, otázkami, logikou dát a pod, to je často problém.
Samotné makro máte v prílohe, ale ak to nechcete mať rozkúskované, musíte mi pomôcť lepším podaním info.
Tu máte iba jednoduchú úpravu, ale už minule som Vám písal, že tam môže nastať množstvo problémov (nechtiac). Filter, nesúlad medzi týždňami, prázdne bunky, nečíselné data (to máte aj teraz)... Ja som začal upravovať aj ten Váš predošlý súbor, no nedokončil. Zatiaľ.
Napr. do D2 a potiahnuť dole (ak to chcete do B, tak vo vzorci zmeniť "D1" na "B1"):=IF(AND(A3="MERGE-IN";A2="MERGE-OUT");"staré isn";IF(D1="staré isn";"nové isn";""))
=KDYŽ(A(A3="MERGE-IN";A2="MERGE-OUT");"staré isn";KDYŽ(D1="staré isn";"nové isn";""))
Ešte ma napadlo jedno riešenie 
With Worksheets("Hárok1")
Intersect(.Range("B:B,D:F,J:J,N:Q,DK:DK,DM:DM,DQ:DU,DV:EB,FK:FN,FP:FP,FS:FS,FU:FY,QM:QP,QQ:QU,QV:RF,RG:RP,RQ:SG,SH:SM,SR:SS"), .Cells.Resize(Rows.Count - 1).Offset(1, 0)).ClearContents
End With
Operáciu mazania vykonáte naraz, len tú adresu oblasti rozdelíte na 2 reťazce, teda 2 Range, no naspäť spojené v Union, tak ako som ukázal.
A neviem, čo bude všetko to makro ešte robiť, ale Select nemusíte použiť vôbec, ani tie Scroll. Ideálne by bolo aj označenie listu, aby nedošlo k spusteniu makra na inom liste. Stačí teda iba:
With Worksheets("nazov listu")
Union(.Range("prvá polka textu adresy"), .Range("druhá polka textu adresy")).ClearContents
End With
Dĺžka adresy môže byť maximálne veľkosť datového typu Byte, teda 0..255. Vaša adresa má 257 znakov.
Dajte si to na menšie kúsky a do Union
Union(Range("B2:B1048576,D2:F1048576,J2:J1048576,N2:Q1048576,DK2:DK1048576,DM2:DM1048576,DQ2:DU1048576,DV2:EB1048576,FK2:FN1048576,FP2:FP1048576"), _
Range("FS2:FS1048576,FU2:FY1048576,QM2:QP1048576,QQ2:QU1048576,QV2:RF1048576,RG2:RP1048576,RQ2:SG1048576,SH2:SM1048576,SR2:SS1048576")).Select
To je parádny nápad, ako obabrať obmedzenie celých čísel v RANDBETWEEN zároveň s ROUND a zároveň so zahrnutím limitných hodnôt 
Uživatelské menu
\nFormulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články