Jak zachować sumę w jednej lub pojedynczej komórce w programie Excel?
W tym artykule pokażemy Ci metodę prowadzenia sumy w jednej lub pojedynczej komórce w programie Excel. Na przykład komórka A1 zawiera obecnie liczbę 10, podczas wprowadzania innej liczby, na przykład 5, wynikiem A1 będzie 15 (10 + 5). Aby łatwo to zrobić, możesz wykonać następujące czynności.
Utrzymuj sumę w jednej lub pojedynczej komórce z kodem VBA
Utrzymuj sumę w jednej lub pojedynczej komórce z kodem VBA
Poniższy kod VBA może pomóc w utrzymaniu sumy w komórce. Wykonaj następujące czynności krok po kroku.
1. Otwórz arkusz roboczy zawierający komórkę, w której będziesz przechowywać sumę. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego.
2. W otwarciu Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod VBA do okna Code. Zobacz zrzut ekranu:
Kod VBA: utrzymuj sumę w jednej lub jednej komórce
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End Sub
Note: W kodzie A1 to komórka, w której będziesz działać w sumie. Określ potrzebną komórkę.
3. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.
Odtąd podczas wpisywania liczb w komórce A1 suma będzie działać w środku, jak pokazano poniżej.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!