Cum să continuați să rulați total într-una sau într-o singură celulă din Excel?
Acest articol vă va arăta o metodă pentru a rula în total într-una sau într-o singură celulă în Excel. De exemplu, celula A1 deține un număr 10 în prezent, atunci când introduceți un alt număr, cum ar fi 5, valoarea rezultatului A1 va fi 15 (10 + 5). Puteți face după cum urmează pentru a o face ușor.
Continuați să rulați total într-una sau într-o singură celulă cu cod VBA
Continuați să rulați total într-una sau într-o singură celulă cu cod VBA
Codul VBA de mai jos vă poate ajuta să continuați să rulați total într-o celulă. Vă rugăm să faceți următoarele pas cu pas.
1. Deschideți foaia de lucru conține celula pe care o veți rula în total în ea. Faceți clic dreapta pe fila foi și selectați Afișați codul din meniul contextual.
2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți sub codul VBA în fereastra Cod. Vedeți captura de ecran:
Cod VBA: continuați să rulați total într-una sau într-o singură celulă
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
notițe: În cod, A1 este celula pe care o veți rula total în interior. Vă rugăm să specificați o celulă după cum aveți nevoie.
3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
De acum înainte, atunci când tastați numere în celula A1, totalul va continua să ruleze în interior, așa cum este prezentat mai jos.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!