Як продовжувати виконувати загальну кількість в одній або одній комірці в Excel?
Ця стаття покаже вам спосіб продовження загального запуску в одній або окремій комірці Excel. Наприклад, клітинка А1 наразі містить число 10, при введенні іншого числа, наприклад 5, результатом значення А1 буде 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примітки: У коді А1 - це клітина, яку ви продовжуватимете виконувати всередині. Будь ласка, вкажіть клітинку, як вам потрібно.
3 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер, при введенні чисел у клітинку А1, загальна сума буде продовжувати працювати всередині, як показано на знімку екрана нижче.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
