Как да преброя колко пъти една клетка се променя в Excel?
За да преброите колко пъти дадена клетка е променена в Excel, VBA кодовете, предоставени в тази статия, могат да помогнат.
Пребройте колко пъти дадена клетка е променена с VBA код
Пребройте колко пъти дадена клетка е променена с VBA код
Следните VBA кодове могат да ви помогнат да преброите колко пъти дадена клетка е променена в Excel.
1. В работен лист, който съдържа една или повече клетки, за които трябва да изчислите общата промяна, щракнете с десния бутон върху раздела на листа и след това щракнете върху Преглед на кода от контекстното меню. Вижте екранна снимка:
2. В откриването Microsoft Visual Basic за приложения прозорец, копирайте и поставете един от следните VBA кодове в код прозорец според вашите нужди.
VBA код 1: Проследяване на промените само в една клетка
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End Sub
Забележка: В кода B9 е клетката, от която се нуждаете, за да преброите нейните промени, а C9 е клетката, която да попълни резултата от преброяването. Моля, сменете ги според нуждите си.
VBA код 2: Проследяване на промените в множество клетки в колона
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End Sub
Забележка: В този ред "Задайте xRRg = xCell.Offset(0, 1)", броя 1 представлява броя на колоните за изместване вдясно от началната препратка (тук началната препратка е колона B, а броят, който искате да върнете, е в колона C който се намира до колона B). Ако трябва да изведете резултатите в колона S, сменете номера 1 да се 10.
Отсега нататък, когато клетка B9 или която и да е клетка в диапазона B9:B1000 се промени, общият брой промени ще бъде насложен и автоматично попълнен в посочената клетка.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!