Příspěvky uživatele
< návrat zpět
A neprejde ani toto?
Set WrdDoc = .GetInspector.WordEditor
With WrdDoc.Content
.Collapse Direction:=wdCollapseEnd
' .Paragraphs.Add
.InsertBreak
ThisWorkbook.Worksheets("KT1").PivotTables("KT1").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT2").PivotTables("KT2").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT3").PivotTables("KT3").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
.InsertBreak
Application.CutCopyMode = False
ThisWorkbook.Worksheets("KT4").PivotTables("KT4").TableRange1.Copy
' Application.Wait Now() + TimeValue("00:00:01")
.PasteSpecial DataType:=10, Link:=False
Application.CutCopyMode = False
End With
.Display
To .Collapse to tam musí byť, inak nezachová text pred KT.
To .InsertBreak tam byť nemusí, pôjdu tie KT hneď pod sebou.
Tá pauza tam bola pre istotu, ak je väčšia KT, aby stihla systémová Copy urobiť všetko čo potrebuje.
Tak Vy tam asi nemáte tie CustomProperties pridané:
Sub CheckCustomProp()
List1.CustomProperties.Add "CustPropCislo", "123"
List1.CustomProperties.Add "CustPropDatum", DateSerial(2024, 5, 31) + TimeValue("14:45:00")
End Sub
Overil som to, je to tak. Keby ste napísal hneď, že Vám to dá chybu na riadku
List1.CustomProperties(1).Value = List1.Range("A2").Value2
vedeli by sme hneď. Ale to je taký dnešný nešvar, že sa napíše iba, nejde mi to, hodilo to chybu, je s tým problém, nefunguje, apod. Treba presne!
Skúste to. Malo by to fachať.
Inak, Vy chcete používať viac listov??? To bude asi problém. Bude sa to musieť prekopať, aby makro vedelo, ktorý list je aktívny, a ktoré číslo CustomProperties mu prináleží. To by potom bolo jednoduchšie ukladať hodnoty do zoznamu v liste xlSheetVeryHidden.
A čo Vám presne nefunguje?
Toto do modulu makra:
Option Explicit
Private myRibbon As IRibbonUI
'Callback for customUI.onLoad
Sub Initialize(ribbon As IRibbonUI)
Set myRibbon = ribbon
myRibbon.ActivateTab "TabFormular"
End Sub
'Callback for btnAktual onAction
Sub clkAktual(control As IRibbonControl)
List1.CustomProperties(1).Value = List1.Range("A2").Value2
List1.CustomProperties(2).Value = Now
myRibbon.Invalidate
End Sub
'Callback for ebCislo getText
Sub GetCislo(control As IRibbonControl, ByRef returnedVal)
returnedVal = List1.CustomProperties(1).Value
End Sub
'Callback for ebDatum getText
Sub GetDatum(control As IRibbonControl, ByRef returnedVal)
returnedVal = List1.CustomProperties(2).Value
End Sub
a toto do CustomUI:
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Initialize">
<ribbon startFromScratch="false">
<tabs>
<tab id="TabFormular" label="Muj pás" keytip="f" >
<group id="grpAktual" label="Aktualizace">
<button id="btnAktual" label="Aktualizace" size="large" onAction="clkAktual" imageMso="ViewPrintLayoutView" />
</group>
<group id="grpPoslAktual" label="Poslední aktualizace">
<editBox id="ebCislo" label="Císlo:" onChange="ocCislo" getText="GetCislo"/>
<editBox id="ebDatum" label="Datum aktualizace" sizeString="dd.mm.yyyyhh:mm:ss" onChange="ocDatum" getText="GetDatum"/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
A stlačiť Validate a Save.
Otvoriť Excel.
Outlook už mi nefunguje ako kedysi, že stačilo iba vytvoriť inštanciu a poslalo to. Musím ho teraz vždy nechať zobraziť. Inak nič neodošle a čaká až na manuálne otvorenie. Takže takto to funguje aj na E2024.
Žiaľ, M$ znefunkčnieva zo starých dobrých časov všetko, čo sa dá... Robí to niekedy od januára tohto roku. Je založené aj vlákno na hromadnú sťažnosť na fóre M$.
Skúste.
Skúste pomocou Custom Properties.
Bunky so vzorcami, ktoré nechcete omylom zmeniť, zamknite zámkom, a voľne meniteľné bunky zbavte zámku. Následne zamknite list (stačí bez hesla).
Makro Vám dá samozrejme hodnoty, nie vzorce (ak vzorce nechcete). No to treba prílohu - samozrejme.
EDIT:
Šmarjá, nikto ma nenapomenie. Ja som si to narýchlo zle prečítal. Myslel som na bránenie zmazania buniek, no Vy píšete o listoch. Skúste to ošetriť v udalosti
Workbook_SheetBeforeDelete
mrk na StackOverflow
Toto je téma porovnávania buniek zvislej oblasti s bunkami vo vodorovnej oblasti. Vy tam nič také nemáte. Nepotrebujete žiadne definované názvy OBLA1 a OBLA2, ani to druhé podmienené formátoanie s červeným rámikom a kontrolou či bunky N2:N3 obsahujú "OK" (nikdy nebudú). Vám stačí iba po 1 podmienenom formáte červenej výplne pre N2 a N3.
pre N2 dáte "Hodnota bunky<>$N$3"
pre N3 dáte "Hodnota bunky<>$N$2"
Ak sa má objaviť niekde "OK", tak kde? Nikde nie je na to vzorec upravený.
PS:
Tú úpravu makra ste skúšal? Teraz vidím viac ako z toho TXT súboru s makrom. Tak uvidím, či si to budem vedieť predstaviť a poupraviť.
V Inventár!F8 má byť "Celkom:" ???
V List1!A2:C2 sú duplicitné hlavičky?
OT:
....SK/EN...........CZ.........
--------------------------------
ARRAYTOTEXT....ARRAYTOTEXT
BYCOL..........BYCOL
BYROW..........BYROW
CHOOSECOLS.....ZVOLITSLOUPCE
CHOOSEROWS.....ZVOLITŘÁDKY
DROP...........ZAHODIT
EXPAND.........ROZBALIT
FIELDVALUE.....POLE.HODNOTA
HSTACK.........SROVNAT.VODOROVNĚ
IMAGE..........OBRÁZEK
ISOMITTED......ISOMITTED
LAMBDA.........LAMBDA
MAKEARRAY......MAKEARRAY
MAP............MAP
REDUCE.........REDUCE
SCAN...........SCAN
STOCKHISTORY...STOCKHISTORY
TAKE...........VZÍT
TEXTAFTER......TEXTZA
TEXTBEFORE.....TEXTPŘED
TEXTSPLIT......ROZDĚLIT.TEXT
TOCOL..........DO.SLOUPCE
TOROW..........DO.ŘÁDKU
VALUETOTEXT....VALUETOTEXT
VSTACK.........SROVNAT.SVISLE
WRAPCOLS.......ZABALSLOUPCE
WRAPROWS.......ZABALŘÁDKY
GROUPBY........?
PIVOTBY........?
PY.............?
Neporadím, lebo to nevidím. Neviem, aké sú rozsahy, od ktorého riadku/stĺpca začínajú atď. To je potreba vidieť pre to podmienené formátovanie.
=INDEX(OBLA2;COLUMN()-2)
vs
=INDEX(OBLA1;;ROW()-9)
Priložte prílohu, namiesto opakovania dotazu dookola...
No vidím tam nejaké problémy hneď. Pridáme makro, ktoré to pri udalosti BeforeClose vykoná (urobí dočasnú kópiu súboru a pošle ho). Lenže keď ho adresát otvorí, tak mu to urobí pri zatváraní to isté. Lebo je tam stále to makro. Adresát musí dostať plne funkčný súbor s makrom?
Alebo adresátovi ide len o niektoré dátové listy napr.?
Veď si urobte Kontingenčnú Tabuľku.
Alebo v E2024 či E365 napr. vzorec (nie je mi známe, či CZ Excel niečo z tých nových fnc prekladá):
=LAMBDA(N;HSTACK(N;SUMIF(D3:D23;N;E3:E23)))(SORT(UNIQUE(D3:D23);1;1))
Popis oblastí nesedí s tým makrom v TXT. Nevadí chytím sa tých G13:G64 a G76:G128. Pred hokejom to už nestihnem, možno po ňom. Tak čekujte neskôr, iba editnem tento post...
EDIT:
No ak som teda bez prílohy z makra správne pochopil, čo robí, tak tu je úprava, tentoraz robená hromadne cez polia.
Ak som niečo netrafil, priložte aj anonymizovanú Excel prílohu.
Jedná sa skutočne o text, alebo o chybu? Pretože chyba sa vo VBA zadáva v EN, teda #N/A. Priložte anonymizovanú prílohu s pár takými bunkami. Do tých buniek vôbec nechoďte.
Skúste radšej INDEX
=VLOOKUP(AD7;FIN_prij!AD$7:INDEX(FIN_prij!AL:AL;$B$1);8;FALSE)
=SVYHLEDAT(AD7;FIN_prij!AD$7:INDEX(FIN_prij!AL:AL;$B$1);8;NEPRAVDA)
ale môžete aj INDIRECT/NEPŘÍMÝ.ODKAZ
=VLOOKUP(AD7;INDIRECT("FIN_prij!AD7:AL"&$B$1);8;FALSE)
=SVYHLEDAT(AD7;NEPŘÍMÝ.ODKAZ("FIN_prij!AD7:AL"&$B$1);8;NEPRAVDA)
rozdiel zbadáte, ak premenujete list FIN_prij.
Pridal som nastavovacie parametre a nejaké popisy. Skúste.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články