Příspěvky uživatele
< návrat zpět
Neotvárať klikom, lebo to otvorí prehliadač, ktorý nekorektne zobrazí kódovanie. Treba to stiahnuť do PC (pravý klik - uložiť odkaz ako).
Tlačiareň je na jednom prepnutá na iné DPI?
Chyba je asi iba v tom, že odkazujete na celé Tabuľku ...tblKontejnery... . Musíte iba na stĺpec ...tblKontejnery[porovnat]...
Nie
=IF([@porovnat]="";"";IF(COUNTIF(tblKontejnery;[@porovnat])>0;1;""))
=KDYŽ([@porovnat]="";"";KDYŽ(COUNTIF(tblKontejnery;[@porovnat])>0;1;""))
ale
=IF([@porovnat]="";"";IF(COUNTIF(tblKontejnery[porovnat];[@porovnat])>0;1;""))
=KDYŽ([@porovnat]="";"";KDYŽ(COUNTIF(tblKontejnery[porovnat];[@porovnat])>0;1;""))
Dá, ale potrebujete tie krkolomné adresy na súbory.
Napr. ja mám jeden súbor PDF s názvom "InnoHikes_Devices_Dez2023.pdf" ale linky sú
https://1drv.ms/b/c/8f76314c21cd8c6b/EX6OpzIobV9KvoWMCIJWPNIBu6vLQvZ9BFwgGTzdU5HPxw?e=tm2rRk
https://onedrive.live.com/view.aspx?resid=8F76314C21CD8C6B!s32a78e7e6d284a5fbe858c0882563cd2
https://onedrive.live.com/?cid=8F76314C21CD8C6B&id=8F76314C21CD8C6B%21s32a78e7e6d284a5fbe858c0882563cd2
A to sa Vám budú ešte otvárať v prehliadači, nie v predvolenej PDF aplikácii.
Ak je to Váš OneDrive, ktorý máte prihlásený a synchronizovaný v PC tak pripojte obyčajnú cestu
c:\Users\Elnino\OneDrive\PDF\InnoHikes_Devices_Dez2023.pdf
Teda napr:
=HYPERLINK("c:\Users\Elnino\OneDrive\PDF\"&A1;A1)
To pôjde ale iba na Vašom PC.
Tak už len naposledy som pridal na koniec procedúru iba na to vytiahnutie toho jediného atribútu.
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.
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