Hogyan lehet az Excel egy vagy egyetlen cellájában futtatni az összeget?
Ez a cikk bemutatja azt a módszert, amellyel az Excel egy vagy egyetlen cellájában továbbra is futhat az összes. Például az A1 cella jelenleg egy 10-es számot tartalmaz, amikor másik számot, például 5-öt ad meg, az A1 eredményértéke 15 (10 + 5) lesz. Az alábbiak szerint teheti meg egyszerűen.
Futtassa az összeset egy vagy egy cellában VBA kóddal
Futtassa az összeset egy vagy egy cellában VBA kóddal
Az alábbi VBA-kód segíthet abban, hogy az összes cellában fusson. Kérjük, tegye a következőket lépésről lépésre.
1. Nyissa meg azt a munkalapot, amely tartalmazza azt a cellát, amelyben az összes futni fog. Kattintson a jobb gombbal a lap fülre, és válassza a lehetőséget Kód megtekintése a helyi menüből.
2. A nyílásban Microsoft Visual Basic for Applications ablakba, másolja és illessze be a VBA kód alatt a Kód ablakba. Lásd a képernyőképet:
VBA kód: Futtassa az összeset egy vagy egyetlen cellában
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
Megjegyzések: A kódban A1 az a cella, amelyen belül folyamatosan futni fog. Adja meg a kívánt cellát.
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Mostantól kezdve, amikor beírja a számokat az A1 cellába, a teljes összeg tovább fog futni, ahogy az alábbi képernyőkép látható.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!