Jak udržet běh celkem v jedné nebo jedné buňce v aplikaci Excel?
Tento článek vám ukáže metodu, jak udržet průběžný součet v jedné nebo jedné buňce v aplikaci Excel. Například buňka A1 má aktuálně číslo 10, při zadávání jiného čísla, například 5, bude výsledná hodnota A1 15 (10 + 5). Chcete-li to snadno provést, postupujte následovně.
Pokračujte v běhu celkem v jedné nebo jedné buňce s kódem VBA
Pokračujte v běhu celkem v jedné nebo jedné buňce s kódem VBA
Níže uvedený kód VBA vám pomůže udržet běh celkem v buňce. Postupujte prosím krok za krokem.
1. Otevřete list obsahující buňku, v níž budete udržovat celkový běh. Klikněte pravým tlačítkem na kartu listu a vyberte Zobrazit kód z kontextové nabídky.
2. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte pod kód VBA do okna Kód. Viz snímek obrazovky:
Kód VBA: Pokračujte v běhu celkem v jedné nebo jedné buňce
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
Poznámka: V kódu je A1 buňka, ve které budete běžet celkem. Podle potřeby zadejte buňku.
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od této chvíle bude při zadávání čísel do buňky A1 součet pokračovat uvnitř, jak je uvedeno níže.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!