Hogyan számolhatjuk az összes kattintást egy adott cellában az Excelben?
Ez a cikk az összes kattintás számlálásáról szól az Excel egy meghatározott cellájában.
Számolja meg az összes kattintást egy VBA kóddal ellátott cellában
Számolja meg az összes kattintást egy VBA kóddal ellátott cellában
Kérjük, tegye a következőket, hogy megszámolja az összes kattintást egy adott cellában az Excelben.
1. A munkalap tartalmazza azt a cellát, amelynek meg kell számlálnia annak összes kattintását, kattintson a jobb gombbal a lap fülére, majd kattintson Kód megtekintése a helyi menüből.
2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a VBA kód alatt a Kód ablakba.
VBA-kód: Számolja meg az összes kattintást egy adott cellában az Excel-ben
Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Cells.Count > 1 Then Exit Sub
Set xRgS = Range("E2")
If xRgS Is Nothing Then Exit Sub
Set xRgD = Range("H2")
If xRgD Is Nothing Then Exit Sub
If Intersect(xRgS, Target) Is Nothing Then Exit Sub
xNum = xNum + 1
xRgD.Value = xNum
End Sub
Megjegyzések: A kódban az E2 az a cella, amelyre meg kell számolni az összes kattintást, és H2 a számlálás kimeneti cellája. Kérjük, változtassa meg őket szükség szerint.
3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.
Mostantól, amikor a megadott munkalapon az E2 cellára kattint, az összes kattintás automatikusan feltöltődik a H2 cellában, az alábbi képernyőkép szerint. Például, ha ötször kattint az E2 cellára, akkor az H5 cellában megjelenik az 5. szám.
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!