Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com seguir executant el total en una o una sola cel·la d'Excel?

Aquest article us mostrarà un mètode per seguir executant el total en una o una sola cel·la d'Excel. Per exemple, la cel·la A1 té un número 10 actualment, quan introdueix un altre número com 5, el valor de resultat d'A1 serà 15 (10 + 5). Podeu fer el següent per fer-ho fàcilment.

Continueu executant el total en una o una sola cel·la amb codi VBA


Continueu executant el total en una o una sola cel·la amb codi VBA


El codi de sota de VBA us pot ajudar a continuar executant el total en una cel·la. Feu el següent pas a pas.

1. Obrir el full de càlcul conté la cel·la que continuareu executant en total. Feu clic dret a la fitxa del full i seleccioneu Veure codi des del menú contextual.

2. A l'obertura Microsoft Visual Basic per a aplicacions finestra, copieu i enganxeu per sota del codi VBA a la finestra Codi. Mostra la captura de pantalla:

Codi VBA: manteniu-vos en execució total en una o una sola cel·la

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

Nota: En el codi, A1 és la cel·la que continuareu executant en total. Especifiqueu una cel·la com necessiteu.

3. Premeu el botó Alt + Q claus per tancar el Microsoft Visual Basic per a aplicacions finestra.

A partir d'ara, quan escriviu números a la cel·la A1, el total continuarà estant dins, com es mostra a continuació de la pantalla.



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.