Hur fortsätter jag att köra totalt i en eller en enda cell i Excel?
Den här artikeln visar dig en metod för att fortsätta köra totalt i en eller en enda cell i Excel. Till exempel har cell A1 ett nummer 10 för närvarande, när du anger ett annat nummer som 5, blir resultatvärdet för A1 15 (10 + 5). Du kan göra följande för att enkelt få det gjort.
Fortsätt köra totalt i en eller en enda cell med VBA-kod
Fortsätt köra totalt i en eller en enda cell med VBA-kod
Nedanstående VBA-kod kan hjälpa dig att fortsätta köra totalt i en cell. Gör så här steg för steg.
1. Öppna kalkylbladet innehåller cellen som du fortsätter att köra totalt i. Högerklicka på arkfliken och välj Visa kod från snabbmenyn.
2. I öppningen Microsoft Visual Basic för applikationer fönster, kopiera och klistra in nedanför VBA-koden i kodfönstret. Se skärmdump:
VBA-kod: Fortsätt att köra totalt i en eller en enda cell
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 SubAnmärkningar: I koden är A1 cellen som du fortsätter att köra totalt inuti. Ange en cell efter behov.
3. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.
Från och med nu, när du skriver siffror i cell A1, fortsätter summan att springa inuti enligt nedanstående skärmdump.
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
- Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
- Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
- Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
- Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
- Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
- Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
