Як записати змінні значення в комірці в Excel?
Як записати кожне мінливе значення для часто мінливої комірки в Excel? Наприклад, оригінальне значення в комірці C2 дорівнює 100, при зміні числа 100 на 200 оригінальне значення 100 автоматично відображатиметься в комірці D2 для запису. Вперед, змініть 200 на 300, число 200 буде вставлено в комірку D3, зміна 300 на 400 відобразить 300 на D4 і так далі. Метод у цій статті може допомогти вам його досягти.
Запис змінних значень у комірку з кодом VBA
Запис змінних значень у комірку з кодом VBA
Наведений нижче код VBA може допомогти вам записати кожне змінне значення в комірці в Excel. Будь ласка, виконайте наступне.
1. На робочому аркуші міститься клітинка, яку потрібно записати, змінюючи значення, клацніть правою кнопкою миші вкладку аркуша, а потім клацніть Переглянути код з контекстного меню. Дивіться знімок екрана:
2. Тоді Microsoft Visual Basic для додатків відкривається вікно, скопіюйте нижче код VBA у вікно коду.
Код VBA: запис змінних значень у комірці
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
примітки: У коді С2 - це клітинка, в яку ви хочете записати всі її змінні значення. D2 - це клітинка, яку ви заповните першим змінним значенням C2.
3 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікна.
Відтепер щоразу, коли ви змінюєте значення в комірці C2, попередні мінливі значення записуватимуться в D2, а клітинки нижче D2.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!