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

MS Excel

Téma: Makro s odečtem

Zaslal/a parkovec 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)

Jméno
Kontrola
Text
	Ukázka

---

Lugr(2.12.2022 20:31)#054063

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

parkovec(2.12.2022 21:11)#054064

Tak makro funguje

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

Anonym(3.12.2022 8:57)#054066

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

Lugr(3.12.2022 8:58)#054067

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 Subcitovat

parkovec(3.12.2022 17:23)#054072

Teď je to dokonalé
Velice děkujicitovat

elninoslov(3.12.2022 23:03)#054078

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 Subcitovat

parkovec(4.12.2022 0:48)#054081

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

elninoslov(4.12.2022 0:54)#054082

Ja tam slovo "Hodnota" nemámcitovat

parkovec(4.12.2022 17:09)#054084

Aha, tak to se omlouvám, nějak to částečně asi přeložil prohlížeč a kvůli tomu to nefungovalo
Po opravě to funguje perfektně citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse