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

Příspěvky uživatele

Vo webovom Exceli Vám stačí 2Click na bunku naformátovanú ako dátum a DatePicker sa zobrazí.

Skôr preto, že nemáte XLOOKUP. Verzia Office ?
A určite sú aj ďalšie možnosti...

EDIT:
napr. ďalšie
=SUMIFS(tabulka!$C$2:$C$6;tabulka!$A$2:$A$6;"<="&A2;tabulka!$B$2:$B$6;">="&A2)
=INDEX(tabulka!$C$2:$C$6;6-COUNTIF(tabulka!$B$2:$B$6;">="&A2))

=XLOOKUP(A2;tabulka!$B$2:$B$6;tabulka!$C$2:$C$6;NA();1;1)

Chýba Vám predsa makro v module ThisWorkbook:
Option Explicit

Private Sub Workbook_Open()
CreateMyTag
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CreateMyTag
Call RefreshRibbon(Tag:=MyTag)
End Sub

A keď tam vyberiete prihlásenie cez MS účet, alebo Win ?
Nemôžem prísť na to, ako znovu vyvolám to okno s voľbou prihlásenia, ak už som sa ho raz zbavil...

Ak zadáte do prázdneho dotazu toto, načíta Vám zoznam súborov (alebo čokoľvek) ?
Zdroj = SharePoint.Files("https://lannuttigroup-my.sharepoint.com/personal/radek_braum_lannutti_com/Documents/pokus/relativni cesta/kj", [ApiVersion = 15])

Môžete sa s tým hrajkať

OK. Napíšte mi teraz presne, ktoré tlačítka majú byť aktívne na ktorom liste.
Očakávam takéto nejaké inštrukcie:
List ____ Tlačítka
..................
Plán ____ "Plán", "Tisk do PDF"
Data ____ "data", "Tisk do PDF"
Doklad __ "data", "data+doklad", "Tisk do PDF", "složka PDF"
Inak som tú origo prílohu zjednodušil do pochopiteľnejšej podoby (snáď). Tak by som obdobne urobil aj Vašu.

Dokážete si odtiaľto vybrať čo potrebujete?

Použil som rovnaký objekt ako Vy. Aký iný obdĺžnik má ešte E2003?
Či to ide presne takto aj na iné objekty sa paušálne asi povedať nedá. Uveďte príklad, o aký objekt máte záujem a pozriem v štruktúre vlastností daného objektu.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim shape As Object

If Not Intersect(Range("A1"), Target) Is Nothing Then
On Error Resume Next
Set shape = Shapes("Popisek_1")
If Err.Number <> 0 Then
Set shape = Shapes.AddShape(msoShapeRectangle, 50, 50, 200, 50)
shape.Name = "Popisek_1"
End If
On Error GoTo 0

shape.OLEFormat.Object.Text = Range("A1")
shape.Visible = True
Set shape = Nothing
Else
On Error Resume Next
Shapes("Popisek_1").Visible = False
On Error GoTo 0
End If
End Sub

Ale neodpovedáte na jedinú otázku.
Ak je požadovaná tlačiareň predvolená, netreba vôbec čachre s ActivePrinter.

Heh :)
Ale to nie je úprava k funkčnosti, ale úprava na preskočenie chyby. Chybu to nijako nenapraví, chyba ostáva, žiadna tlačiareň sa nezmení, ostáva pôvodná. A funguje Vám to len preto, lebo pôvodná bola tá, ktorú chcete.
Akú hodnotu má tmp po kroku?
tmp = .ActivePrinter
Aký je názov tej tlačiarne na mieste, ktoré som Vám písal?
Po otvorení úplne prvého súboru v kroku
.Documents.Open Soubor
pozrite do otvoreného Wordu, a tam kde sa mení tlačiareň, aká je tam nastavená?

Máte v systéme tlačiareň, ktorá sa volá "Duplex" ? Otvorte si Word, Súbor - Tlačiť - Tlačiareň - rozkliknite a presne (!) opíšte požadovaný názov.

Pred spaním rýchlo. Nemám ako vyskúšať.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje