< návrat zpět

MS Excel


Téma: Makro s odečtem rss

Zaslal/a 2.12.2022 20:08

Dobrý večer,
tentokrát bych chtěl poprosit o pomoc s makrem:

-makro by se spustilo, pokud by došlo ke změně v buňce A1
-hodnotu v buňce B1 by to odečetlo od hodnoty v buňce C1 (nejnižší hodnota v C1 musí být 0, takže to nesmí odečítat do záporné hodnoty)

Zaslat odpověď >

#054063
Lugr
nevím co se má stát s výsledkem, tak jsem ho šoupl do buňky D1

Je to jen tak narychlo.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("A1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range("B1").Value - Range("C1").Value < 0 Then
Range("D1").Value = 0
Else
Range("D1").Value = Range("B1").Value - Range("C1").Value
End If
End If

End Sub


Vložit do Modulu listu.citovat
#054064
avatar
Tak makro funguje 1

Jen bych potřeboval, aby výsledek nebyl v D1, ale aby se prostě hodnota v C1 snížila o hodnotu, která je v B1.citovat
#054066
avatar
Range("D1").Value = Range("B1").Value - Range("C1").Value

mělo by stačit nahradit nebo doplnit řádek

Range(C1").Value = Range("C1").Value - Range("B1").Valuecitovat
#054067
Lugr
Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("A1")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
If Range("C1").Value - Range("B1").Value < 0 Then
Range("C1").Value = 0
Else
Range("C1").Value = Range("C1").Value - Range("B1").Value
End If
End If

End Sub
citovat
#054072
avatar
Teď je to dokonalé 1
Velice děkujicitovat
#054078
elninoslov
Nie je to príliš zložité?
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1"), Target) Is Nothing Then
Range("C1").Value = WorksheetFunction.Max(Range("C1").Value - Range("B1").Value, 0)
End If
End Sub
citovat
#054081
avatar
Vyzkoušel jsem, ale v tomto řádku:

Range("C1").Value = WorksheetFunction.Max(Range("C1").Value - Range("B1").Hodnota, 0)

to háže chybu:

Object doesn’t support this property or method.citovat
#054082
elninoslov
Ja tam slovo "Hodnota" nemámcitovat
#054084
avatar
Aha, tak to se omlouvám, nějak to částečně asi přeložil prohlížeč a kvůli tomu to nefungovalo 4
Po opravě to funguje perfektně 1citovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

Výmaz řádku podle hodnoty v konkrétním sloupci

elninoslov • 7.2. 21:49

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 14:02

Výmaz řádku podle hodnoty v konkrétním sloupci

Alfan • 7.2. 11:44

plán 12 h směn na celý rok

PE1PA • 6.2. 14:56

plán 12 h směn na celý rok

elninoslov • 6.2. 14:16

plán 12 h směn na celý rok

elninoslov • 6.2. 14:15

plán 12 h směn na celý rok

elninoslov • 6.2. 13:21