Перейти к основному содержанию

Как в 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 общая сумма будет продолжать работать, как показано на скриншоте ниже.

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
hanks for this, Question: How do you change the address from A1 to another cell?
This comment was minimized by the moderator on the site
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo EndF

Application.EnableEvents = False

**insert the line below and choose the range(s) you would like to change.... every other value stays as "A1"**



If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then



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

End If



EndF:

Application.EnableEvents = True

mRangeNumericValue = 0

End Sub
This comment was minimized by the moderator on the site
How do I apply this to a column or multiple cells?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations