Как да запиша променящи се стойности в клетка в 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
бележки: В кода C2 е клетката, в която искате да запишете всички нейни променящи се стойности. 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% и намалява стотици кликвания на мишката за вас всеки ден!