Как да продължите да изпълнявате обща сума в една или отделна клетка в Excel?
Тази статия ще ви покаже метод за продължаване на текущата обща сума в една или отделна клетка в Excel. Например клетка A1 съдържа число 10 в момента, когато въведете друго число като 5, резултатната стойност на A1 ще бъде 15 (10+5). Можете да направите следното, за да го направите лесно.
Продължавайте да работите общо в една или отделна клетка с VBA код
Продължавайте да работите общо в една или отделна клетка с VBA код
Кодът на VBA по-долу може да ви помогне да продължите да изпълнявате обща сума в клетка. Моля, направете следното стъпка по стъпка.
1. Отворете работния лист, който съдържа клетката, която ще продължите да изпълнявате общо в него. Щракнете с десния бутон върху раздела на листа и изберете Преглед на кода от контекстното меню.
2. В откриването Microsoft Visual Basic за приложения прозорец, копирайте и поставете под кода на VBA в прозореца на кода. Вижте екранна снимка:
Код на VBA: Продължавайте да изпълнявате общо в една или отделна клетка
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
Забележка: В кода A1 е клетката, в която ще поддържате обща сума. Моля, посочете клетка, която ви е необходима.
3. Натисни Друг + Q ключове за затваряне на Microsoft Visual Basic за приложения прозорец.
Отсега нататък, когато въвеждате числа в клетка A1, общата сума ще продължи да работи вътре, както е показано на екранната снимка по-долу.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!