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

Příspěvky uživatele

Děkuji kp57,
paráda, to je panečku podialogováníčko.
Poraď prosím ještě, kde najdu číselné vyjádření konstanty dialogu.
např.(xlDialogOpen)=1, (xlDialogNew)=119

Díky za snahu, podobně jako ty to řeším i já.
Jen mě napadlo prubnout to jinak.

Ano, výsledek je správně.
Já bych ale chtěl (jestli to jde) místo MsgBox využít vestavěný dialog Excelu

Zdravím všechny, poraďte prosím.
Ve VBA ukládám sešit. V případě, že již název existuje, kodem ošetřím chybu - bez problému.
Otázka - Jak využít ve VBA na tento případ Exelovský dialog: "Soubor BLABLA již existuje. Má se existující soubor nahradit? ANO x NE"?
Díky Mirek

Díky parádně funguje.
Jen třešničku na dortík.
Lze vypočítaná čísla formátovat jinak než vložený text?
například:5,35 až 9,66

Poraďte prosím s formátem buňky ve které je vzorec:
=A1/A2&" až "&B1/B2
Podíly zaokrouhlit na 2 desetinná místa.
Předem díky

pro jiné může být zajímavější diskutovat o horním indexu

všichni jste se soustředili na POZADÍ , ale to byl jen příklad pro zjednodušení

jj tak toho jsem se bál, že to přijde:
To podle mého názoru neuděláte. Jediná možnost je udělat tabulku
Je to smutné, chtěl jsem obecně pomocí buňky měnit kód. Škoda.
Přesto mnohokráte děkuji. Naděje umírá poslední

Vtipně a krásně jsi to obešel
Já to, ale potřebuji jak jsem psal, text v buňce dostat do proměnné. (jako-by pomocí hodnot v buňce měnit kód.)
Zítra bude v buňce třeba "xlPatternCrissCross" ať se také pozadí změní.

To je přesně ono.
Toto je jen příklad pro jednoduchost.
Obecně hledám funkci (něco jako Val či Str), která by převedla text z buňky na datový typ použitelný dále v kódu (viz Téma a uvozovky)

To Pavlus
v A1 není nastaveno pozadí, je tam text např. xlPatternHorizontal a podle něj chci nastavit pozadí v A2

Ahoj,
poraďte prosím. V hlavě mám temno a v buňce
A1 - např. xlPatternHorizontal. Jak tuto konstantu načíst do proměnné abych s ní mohl dále pracovat?
Trochu trápí uvozovky (datový typ)
Sub vypln()
pozadi = Cells(1, 1)
Cells(1, 2).Interior.Pattern = pozadi
End Sub
Díky

nebo krátce
Sub CommandButton1_Click()
JmenoMakra
End Sub

Možná tlačítku přiřadit
Application.Dialogs(xlDialogInsertHyperlink).Show

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje