Hogyan lehet megszámolni, hányszor változott egy cella az Excelben?
Az ebben a cikkben található VBA-kódok segíthetnek megszámolni, hogy egy adott cella hányszor módosult az Excelben.
Számolja meg, hányszor változott egy cella VBA-kóddal
Számolja meg, hányszor változott egy cella VBA-kóddal
A következő VBA-kódok segíthetnek megszámolni, hogy egy adott cella hányszor módosult az Excelben.
1. Azon a munkalapon, amely egy vagy több cellát tartalmaz, amelyeknél ki kell számítani a teljes változást, kattintson jobb gombbal a lapfülre, majd kattintson a Kód megtekintése a helyi menüből. Lásd a képernyőképet:
2. A nyílásban Microsoft Visual Basic for Applications ablakban másolja ki és illessze be a következő VBA-kódok egyikét a Kód ablak az Ön igényei szerint.
VBA-kód 1: Csak egy cella változásainak nyomon követése
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
Megjegyzések: A kódban B9 az a cella, amelyhez meg kell számolni a változásait, és C9 az a cella, amely feltölti a számlálási eredményt. Kérjük, változtassa meg őket szükség szerint.
VBA-kód 2: Kövesse nyomon a változásokat egy oszlop több cellájában
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
Megjegyzések: Ebben a sorban "Beállítás xRRg = xCell.Eltolás(0, 1)", a szám 1 a kezdő hivatkozástól jobbra eltolandó oszlopok számát jelenti (itt a kezdő hivatkozás oszlop B, és a visszaadni kívánt szám az oszlopban található C amely a B oszlop mellett található). Ha az eredményeket oszlopban kell kiírnia S, módosítsa a számot 1 nak nek 10.
Mostantól kezdve, amikor a B9 cella vagy a B9:B1000 tartomány bármely cellája megváltozik, a változtatások teljes száma szuperponálva lesz, és automatikusan kitöltődik a megadott cellában.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!