Как в 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 for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!