Příspěvky uživatele
< návrat zpět
Ale čo znamená, že chcete porovnávať???
Chcete aby Vám vypísalo dátum, kedy má prísť pacient na kontrolu o 14 dní?
=TODAY()+14
=DNES()+14
alebo ide o výpis počtu dní zostávajúcich do prehliadky?
=A1-TODAY()
=A1-DNES()
Skúste to čo potrebujete upresniť.
Medzitým som urobil podrobný popis, aj malú úpravu, aj jednu opravu chybky vyfarbovania čudlíkov.
Aspoň trochu chápete tomu kódu, či ani nie? Lebo nechcelo sa mi už robiť popis ...
Ja už som si to info našiel. Takto som to poriešil.
A kto máte k tomu nejaký popis? Nedokážem dohľadať žiadnu dokumentáciu, popis API, príklady, nič.
OT: Len doplním k predošlému zoznamu:
GROUPBY........SESKUPITPODLE
PIVOTBY........KONTPODLE
PY.............PY
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...
Uživatelské menu
\nMenu
Formulář 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