Násobení v rámci jedné buňky

[Daiqon]

Dobrý den,

měl bych na vás otázku. Potřebuji poradit s násobením v rámci jedné buňky. Tzn. že když do buňky A1 zadám libovolné číslo, automaticky se mi vynásobí vždy stejným koeficientem a ve stejné buňce A1 se zároveň zobrazí i výsledek.

Prosím odpovědi typu, abych to udělal do více buněk nepotřebuji.

Děkuji.

[Reklama]

[guest]

Jen makrem, událost Worksheet_Change.

[Azuzula]

Zdravím, pomocné buňky jsou nejlepší a nejjednodušší způsob jak toho docílit, jinak to půjde už jedině makrem.
Vložit do listu kde chcete provádět tu operaci

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aRange As Range
Dim konstanta As Double

konstanta = 1.21 'nastavení konstanty pro násobení
Set aRange = Range("A:A") 'nastavení oblasti pro kontrolu

Application.EnableEvents = False
If Not Intersect(aRange, Target) Is Nothing Then
    On Error GoTo konec 'odchytí error při zápisu textu, nebo mazání více buněk najednou
    Target = Target * konstanta
End If
konec:
Application.EnableEvents = True
End Sub