Hvordan fortsætter jeg med at køre i alt i en eller en enkelt celle i Excel?
Denne artikel viser dig en metode til at fortsætte med at køre i alt i en eller en enkelt celle i Excel. For eksempel indeholder celle A1 et nummer 10 i øjeblikket, når der indtastes et andet nummer såsom 5, vil resultatværdien af A1 være 15 (10 + 5). Du kan gøre som følger for let at få det gjort.
Fortsæt med at køre i alt i en eller en enkelt celle med VBA-kode
Fortsæt med at køre i alt i en eller en enkelt celle med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at fortsætte med at køre i alt i en celle. Gør som følger trin for trin.
1. Åbn regnearket indeholder den celle, du fortsætter med at køre i alt. Højreklik på arkfanen, og vælg Vis kode fra kontekstmenuen.
2. I åbningen Microsoft Visual Basic til applikationer vindue, kopier og indsæt under VBA-kode i kodevinduet. Se skærmbillede:
VBA-kode: Fortsæt med at køre i alt i en eller en enkelt celle
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
Bemærk: I koden er A1 den celle, du vil køre i alt indeni. Angiv en celle, som du har brug for.
3. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
Fra nu af, når du skriver tal i celle A1, fortsætter summen med at køre indeni som vist nedenstående skærmbillede.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!