logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Excel: Jak automatycznie dodawać/odejmować wartości z C2 do A2?

njerzy98 09 Sty 2025 13:37 168 3
REKLAMA
  • #1 21384857
    njerzy98
    Poziom 2  
    Posty: 2
    Witam Wszystkich
    Jak na obrazku:
    Zrzut ekranu przedstawiający arkusz Excel z przykładowymi danymi do dodawania i odejmowania w komórkach.

    Opis:
    A2 ma sumować (dodać/odjąć) dowolną cyfrę z komórki C2, a następnie wyczyścić C2 żeby można było podawać kolejne cyfry.
    Najlepiej by było: w C2 wpisuję +100 lub -50 to dodaje lub odejmuje od A2 te wartości, a następnie czyści się.
    Znaki + i - w komórce z cyfrą nie działają w ten sposób, dlatego podzieliłem to na dwie kolumny (kolumna + i kolumna -)
    AI: Jaka wersja programu Excel jest używana?
    office 2019
    AI: Czy preferujesz rozwiązanie oparte na VBA, czy wolisz używać formuł?
    Nie boję się VBA :)
  • REKLAMA
  • #2 21384863
    kindlar
    Poziom 42  
    Posty: 7886
    Pomógł: 919
    Ocena: 1621
    To daj tu plik aby łatwiej było rozmawiać.
  • REKLAMA
  • #4 21384908
    njerzy98
    Poziom 2  
    Posty: 2
    >>21384873
    dziękuję.
    ChatGpt też dobrze sobie poradził, chodź dużo więcej linijek :)

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim CellA1 As Range
    Dim CellB1 As Range

    ' Ustawianie komórek A1 i B1
    Set CellA1 = Me.Range("A1")
    Set CellB1 = Me.Range("B1")

    ' Sprawdzenie, czy zmieniana komórka to B1
    If Not Intersect(Target, CellB1) Is Nothing Then
    If IsNumeric(CellB1.Value) And CellB1.Value <> "" Then
    ' Dodanie wartości z B1 do A1
    CellA1.Value = CellA1.Value + CellB1.Value
    ' Wyczyszczenie B1
    Application.EnableEvents = False
    CellB1.ClearContents
    Application.EnableEvents = True
    End If
    End If
    End Sub
REKLAMA