Příspěvky uživatele


< návrat zpět

Přechod na office pro web (14.2.2023 14:39)

Dobrý den,

firma se rozhodla, že začneme používat microsoft 365 online a tak mě nyní čeká postupné převádění všech excel tabulek.

Narazil sem však na problém, že excel pro web nepodporuje makra a tak bych potřeboval vědět, jestli někoho napadá řešení výpočtů z přiloženého souboru bez maker.

Teď jednoduše zadám hodnoty do zvýrazněných sloupců a automaticky se mi dosadí vypočítané hodnoty do sloupců vpravo.

Private Sub CommandButton1_Click()
Range("E3:E10").Value = Evaluate("=E3:E10-C3:C10")
Range("E3:E10").Value = Evaluate("=E3:E10+D3:D10")
Range("F3:F10").Value = Evaluate("=F3:F10-(D3:D10/G3:G10)")
End Sub

Děkuji za případnou pomoc

Range - složitější vzorce (8.7.2020 13:10)

Děkuji, teď už to funguje, jak má. :)

Range - složitější vzorce (7.7.2020 11:51)

Ano, to je přesně ono, díky! :)

A dalo by se to udělat i pro celý sloupec?
Odtud mi poradili následující vzorec:
Range("F3:F214").Value = Evaluate("=F3:F214+D3:D214")
Tak jak by se dalo udělat, aby vzorec odpovídal podobě F3:F214 = F3:F214 - (D3:D214 * I3:I214)

Velice Vám děkuji.

Range - složitější vzorce (7.7.2020 7:16)

Dobrý den,

potřeboval bych poradit s následujícím problémem.

Používám v tabulce následující vzorec:
Range("K3").Value = Range("K3").Value - Range("D3").Value
Potřeboval bych poradit, jak použít složitější vzorce, selským rozumem jsem na to bohužel nepřišel.

Teď se mi do buňky K3 zapíše výsledek vzorce K3 - D3, ale potřeboval bych, aby výsledek byl například (K3 * H3) - D3.

Děkuji za pomoc a přeji hezký den.
S pozdravem
Smilek

Range pro více buněk (18.6.2020 13:17)

V jedné části používám přičítání, jinde zase odečítání. Koukám, že jsem napsal přičítat a do kódu poslal odečítání. :D

Ještě se tam teď snažím vytvořit nějakou historii zaznamenaných údajů, takže je možné, že se ještě ozvu s prosbou o radu. :D

Range pro více buněk (18.6.2020 10:08)

Děkuji, už to funguje přesně, jak potřebuji. :)

Range pro více buněk (18.6.2020 9:23)

Dobrý den,

je mi jasné, že řešení bude jistě jednoduché, ale jsem začátečník, tak buďte prosím shovívavý. :) Potřebuji poradit ohledně následujícího kódu:
Private Sub CommandButton1_Click()
Range("F3").Value = Range("F3").Value - Range("C3").Value
Range("F4").Value = Range("F4").Value - Range("C4").Value
Range("F5").Value = Range("F5").Value - Range("C5").Value
End SubJe to kód, který jednoduše vezme zapsanou hodnotu v jedné buňce a přičte ji k obsahu buňky druhé, při stisku tlačítka.

Problém je, že jako hňup vypisuji každou buňku zvlášť, protože zápis Range("F3:F214") mi na to nefunguje.

Prosím Vás tedy o radu. Jen doplním, že používám excel z řady office 365.

Velice Vám děkuji.


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje