Note: The other languages of the website are Google-translated. Back to English

Sut i gyfrif cyfanswm y cliciau mewn cell benodol yn Excel?

Mae'r erthygl hon yn sôn am gyfrif cyfanswm cliciau mewn cell benodol yn Excel.

Cyfrif cyfanswm y cliciau mewn cell benodol gyda chod VBA


Cyfrif cyfanswm y cliciau mewn cell benodol gyda chod VBA


Gwnewch fel a ganlyn i gyfrif cyfanswm y cliciau mewn cell benodol yn Excel.

1. Yn y daflen waith mae'n cynnwys y gell mae angen i chi gyfrif cyfanswm ei chliciau, de-gliciwch y tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen cyd-destun.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch islaw'r cod VBA i mewn i ffenestr y Cod.

Cod VBA: Cyfrif cyfanswm y cliciau mewn cell benodol yn Excel

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

Nodyn: Yn y cod, E2 yw'r gell sydd ei hangen arnoch i gyfrif cyfanswm ei chliciau, a H2 yw cell allbwn y cyfrif. Newidiwch nhw yn ôl yr angen.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, wrth glicio ar gell E2 yn y daflen waith benodol hon, bydd cyfanswm y cliciau yn cael eu poblogi'n awtomatig yng nghell H2 fel y dangosir isod y screenshot. Er enghraifft, os cliciwch ar y gell E2 5 gwaith, bydd rhif 5 yn cael ei arddangos yng nghell H2.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (27)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut allwch chi "ailosod" y cownter?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Dennis,
Ychwanegwch y cod VBA isod ar ddiwedd y cod gwreiddiol. Bob tro y byddwch chi'n rhedeg y cod hwn, bydd y cyfrif yn cael ei ailosod i 0. Diolch am eich sylw.

Cyfrif Is-glir()
xRgD.Value=""
xNum = 0
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Grisial,

A allwch chi ddarparu'r cod VBA llawn - ar gyfer hyn? hefyd sut y byddwn yn ei gymhwyso i un rhes - pob un angen ei cownter ei hun?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'r cod VBA llawn fel a ganlyn. Os ydych chi am ailosod y cownter, rhedwch yr ail god VBA. Ar gyfer cymhwyso'r cod i un rhes, mae'n ddrwg gennyf ni all eich helpu eto.

' Y VBA cyntaf
xRgS Cyhoeddus, xRgD Fel Ystod
xNum Cyhoeddus Cyhyd
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Gosod xRgS = Ystod ("E2")
Os Nad yw xRgS Yna Ymadael Is
Gosod xRgD = Ystod ("H2")
Os yw xRgD Yn Ddim Yna Ymadael Is
Os Nad yw Intersect(xRgS, Target) yn Dim Yna Gadael Is
xNum = xNum + 1
xRgD.Value = xNum
Is-End
' Yr ail VBA
Cyfrif Is-glir()
xRgD.Value=""
xNum = 0
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod, defnyddiol iawn.
Dydw i ddim yn rhaglennydd a hoffwn wybod sut i ymestyn y broses hon i bob llinell. Hynny yw, nid yn unig E2>H2 ond hefyd E3>H3, E4>H4, ac ati.
A oes cod ar gyfer hyn?


Diolch i chi ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Guido,

Gall y cod VBA isod eich helpu i ddatrys y broblem. Rhowch gynnig arni. Diolch am eich sylw.
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRgArray Fel Amrywiad
Dim xNum
Dim xStrR, xStrS, xStrD Fel Llinynnol
Dim xRgS, xRgD Fel Ystod

Dim xFNum Cyhyd
xRgArray = Array("E2,H2", "E3,H3", "E4,H4", "E5,H5", "E6,H6")
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.count > 1 Yna Gadael Is
Ar gyfer xFNum = LBound(xRgArray) I UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS=""
xStrS = Chwith(xStrR, 2)
xStrD=""
xStrD = I'r dde(xStrR, 2)
Gosod xRgS = Dim byd
Gosod xRgS = Ystod(xStrS)
Os TypeName(xRgS) <> "Dim byd" Yna
Gosod xRgD = Dim byd
Gosod xRgD = Ystod(xStrD)
Os TypeName(xRgD) <> "Dim byd" Yna
Os yw TypeName(Crossect(xRgS, Target)) <> "Dim byd" Yna
xRgD.Value = xRgD.Value+1
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am hyn. Ceisiais ac fe weithiodd, ond dim ond tan nifer penodol o gelloedd y bu'n gweithio, sut allwn ni ymestyn y cod hwn tan ddiwedd y celloedd? er enghraifft, teipiaf y cod hwn isod a dim ond tan "G9, G9" y mae'n gweithio. Diolch


Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRgArray Fel Amrywiad
Dim xNum
Dim xStrR, xStrS, xStrD Fel Llinynnol
Dim xRgS, xRgD Fel Ystod

Dim xFNum Cyhyd
xRgArray = Array("C4,C4", "D4,D4", "E4,E4", "F4,F4", "G4,G4", "C6,C6", "D6,D6", "E6,E6 ", "F6,F6", "G6,G6", "C7,C7", "D7,D7", "E7,E7", "F7,F7", "G7,G7", "C8,C8", "D8,D8", "E8,E8", "F8,F8", "G8,G8", "C9,C9", "D9,D9", "E9,E9", "F9,F9", "G9 ,G9", "C10,C10", "D10,D10", "E10,E10", "F10,F10", "G10,G10", "C11,C11", "D11,D11", "E11,E11" ", "F11,F11", "G11,G11", "C14,C14", "D14,D14", "E14,E14", "F14,F14", "G14,G14", "C15,C15", "D15,D15", "E15,E15", "F15,F15", "G15,G15", "C16,C16", "D16,D16", "E16,E16", "F16,F16", "G16 ,G16", "C17,C17", "D17,D17", "E17,E17", "F17,F17", "G17,G17", "C18,C18", "D18,D18", "E18,E18" ", "F18,F18", "G18,G18", "C20,C20", "D20,D20", "E20,E20", "F20,F20", "G20,G20")
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.count > 1 Yna Gadael Is
Ar gyfer xFNum = LBound(xRgArray) I UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS=""
xStrS = Chwith(xStrR, 2)
xStrD=""
xStrD = I'r dde(xStrR, 2)
Gosod xRgS = Dim byd
Gosod xRgS = Ystod(xStrS)
Os TypeName(xRgS) <> "Dim byd" Yna
Gosod xRgD = Dim byd
Gosod xRgD = Ystod(xStrD)
Os TypeName(xRgD) <> "Dim byd" Yna
Os yw TypeName(Crossect(xRgS, Target)) <> "Dim byd" Yna
xRgD.Value = xRgD.Value+1
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ruth,
Mae'n anodd optimeiddio'r cod i ddiwallu'ch anghenion. Sori am hynny.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw'r cod yn darllen rhif cell digid dwbl hy C10 pam mae hyn os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i gefnogi'r cyfrif ar gyfer unrhyw rif yr wyf ei eisiau? Er enghraifft: Roeddwn i wedi gwneud 5 clic, ond roeddwn i eisiau 3 yn unig. Felly rwy'n newid y rhif yn y gell i 3, a phan fyddaf yn clicio eto, mae'n parhau o 3.
Diolch am y cod!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Mae'n ddrwg gennym ni all eich helpu gyda hyn, croeso i chi bostio unrhyw gwestiwn am Excel i'n fforwm: https://www.extendoffice.com/forum.html. Byddwch yn cael mwy o gefnogaeth Excel gan ein cefnogwyr Excel proffesiynol neu eraill.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo
Hay alguna manera de programar el conteo de clicks de acuerdo a la fecha, es decir programar varias celdas para que cuenten con la fecha del día?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwch chi ddarparu cod sy'n caniatáu cyfrif cliciau o gelloedd A2, B2 trwy gelloedd A14, B14. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Barbara,
Ydych chi'n golygu cyfrif cyfanswm y cliciau yn ystod A2:B14? Neu gliciau ar gyfer pob cell yn ystod A2:B14?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Como zerar a contagem? Sut i ailosod y sgôr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Os ydych chi am ailosod y cownter, ychwanegwch y cod VBA isod ar ddiwedd y cod gwreiddiol a ddarparwyd uchod, ac yna ei redeg.

Cyfrif Is-glir()
xRgD.Value=""
xNum = 0
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio dod o hyd i ffordd o gyfrif y nifer o weithiau mae 20 o gelloedd gwahanol yn cael eu clicio (dylai pob un gael ei gyfrif ar wahân). Deuthum ar draws eich awgrym cod VBA, ceisiais ei addasu i'm hanghenion penodol ond ni fydd yn gweithio. a allwch chi roi gwybod sut y dylid ysgrifennu'r cod? y celloedd yr hoffwn eu cyfrif a'r celloedd y dylai'r gwerthoedd ymddangos ynddynt yw: F12> AU12, F13> AU13, G12> AV12, G13> AV13, H10> AW10, H11> AW11, H12> AW12, H13>AW13 , H14>AW14, H15>AW15, I10>AX10, I11>AX11, I12>AX12, I13>AX13, I14>AX14, I15>AX15, J12>AY12, J13>AY13, K12>AZ12, K13>AZ13).
Dyma'r cod VBA rydw i wedi rhoi cynnig arno heb unrhyw lwyddiant:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRgArray Fel Amrywiad
Dim xNum
Dim xStrR, xStrS, xStrD Fel Llinynnol
Dim xRgS, xRgD Fel Ystod

Dim xFNum Cyhyd
xRgArray = Array("F12,AU12", "F13,AU13", "G12,AV12", "G13,AV13", "H10,AW10", "H11,AW11", "H12,AW12", "H13,AW13 "," H14,AW14", "H15,AW15", "I10,AX10", "I11,AX11", "I12,AX12", "I13,AX13", "I14,AX14", "I15,AX15", "J12,AY12", "J13,AY13", "K12,AZ12", "K13,AZ13")
Ar Ail-ddechrau Gwall Nesaf
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
Ar gyfer xFNum = LBound(xRgArray) I UBound(xRgArray)
xStrR = xRgArray(xFNum)
xStrS=""
xStrS = Chwith(xStrR, 2)
xStrD=""
xStrD = I'r dde(xStrR, 2)
Gosod xRgS = Dim byd
Gosod xRgS = Ystod(xStrS)
Os TypeName(xRgS) <> "Dim byd" Yna
Gosod xRgD = Dim byd
Gosod xRgD = Ystod(xStrD)
Os TypeName(xRgD) <> "Dim byd" Yna
Os yw TypeName(Crossect(xRgS, Target)) <> "Dim byd" Yna
xRgD.Value = xRgD.Value+1
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Is-End

Diolch ymlaen llaw, am eich cymorth.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, gall y cod isod helpu. Rhowch gynnig arni. Diolch. Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRgS, xRgD Fel Ystod
Dim xStrRg Fel Llinyn
Dim xFNum Fel Cyfanrif
Dim xArr1, xArr2
Os Targed.Cells.Cyfrif > 1 Yna Gadael Is
xStrRg = "F12-AU12; F13-AU13; G12-AV12; G13-AV13; H10-AW10; H11-AW11; H12-AW12; H13-AW13; H14-AW14; H15-AW15; I10-AX10; I11-AX11; I12-AX12; I13-AX13; I14-AX14; I15-AX15; J12-AY12; J13-AY13; K12-AZ12; K13-AZ13"
Ar Ail-ddechrau Gwall Nesaf
xArr1 = Hollti(xStrRg, ";")
Ar gyfer xFNum = 0 I UBound(xArr1)
xArr2 = Hollti(xArr1(xFNum), "-")
Gosod xRgS = Ystod(xArr2(0))
Gosod xRgD = Ystod(xArr2(1))
Os Nad yw (Croesffordd(xRgS, Targed) Yn Dim) Yna
xRgD.Value = xRgD.Value+1
Gorffennwch Os
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod wedi'i gywiro uchod yn wych ar gyfer y daflen rydw i'n gweithio gyda hi, diolch. Ond mae gen i gwestiwn am ychwanegu macro amser fel bod y cyfrif bob dydd (ac eithrio penwythnosau) yn symud i'r rhes nesaf yn y ddalen er enghraifft:
Rhes 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3"Rhes 4 - 7/2/2021"B1-B4; C1-C4; D1-D4"Rhes 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Crystal, Mae'r cod Uchod yn wych ar gyfer y daflen rydw i'n gweithio gyda hi, diolch. Ond mae gen i gwestiwn am ychwanegu macro amser fel bod y cyfrif bob dydd (ac eithrio penwythnosau) yn symud i'r rhes nesaf yn y ddalen er enghraifft:

Rhes 3 - 7/1/2021 "B1-B3; C1-C3; D1-D3"
Rhes 4 - 7/2/2021 "B1-B4; C1-C4; D1-D4"
Rhes 5 - 7/3/2021 "B1-B5; C1-C5; D1-D5"

Os yw hyn yn bosibl? thx, Ken
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, diolch am y codau VBA hyn, nhw bron gweithio ar gyfer fy anghenion. Rwy'n ofni bod y ffaith bod angen i mi fynd heibio i ddigidau dwbl yn golygu na fydd yn gweithio. Mae angen i mi gael C8 drwodd i C110 a'r cyfrif cyfatebol yw L8 drwodd i L110. Gallwch chi helpu? Llawer o ddiolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Andy, Gall y cod VBA canlynol wneud ffafr i chi. Rhowch gynnig arni. Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRgS, xRgD Fel Ystod
Dim xStrRg Fel Llinyn
Dim xCStr, xVStr Fel Llinyn
Dim xItem Fel Cyfanrif
xCStr = "C8: C110" "Ystod y celloedd rydych chi am gofnodi cliciau pob cell
xVStr = "L8:L110" 'Ystod y celloedd i osod y cofnodion ynddynt
Gosod xRgS = Ystod(xCStr)
Gosod xRgD = Ystod(xVStr)
Os Nad yw (Croesffordd(xRgS, Targed) Yn Dim) Yna
xItem = Targed.Row - xRgS.Item(1).Rhes + 1
xRgD.Item(xItem).Gwerth = xRgD.Item(xItem).Gwerth + 1
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i olrhain y cyfrif rhifau yn ôl? Er enghraifft: Roeddwn i wedi gwneud 5 clic, ond roeddwn i eisiau 3 yn unig. Felly rwy'n newid y rhif yn y gell i 3, a phan fyddaf yn clicio eto, mae'n parhau o 3. NEU mae gennych y gallu i wasgu cell arall a lleihau'r cyfrif erbyn 1 os yw hynny'n haws.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Bonjour,
j'aimerai comment je pourrais le nombre de clics sur les cellules D10 à M10 et le retranscrire à la ligne R10 et le faire pour toutes les lignes suivante donc compter les clics sur les cellules D11 à M11 et le transcrire à la ligne R11 ac ati ?

Cofion cynnes
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo DUFOUR,
I gyfrif nifer y cliciau o D10 i M10 ac allbwn cyfanswm nifer y cliciau yn R10, gallwch gymhwyso'r cod VBA canlynol i'w wneud.
Nodyn: Yn y cod, yr ystod "D10:M30" yn golygu mai dim ond o'r rhes 10 i res 30 y mae'r cod yn gweithio, felly nodwch y rhesi rydych am eu cyfrif.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 20220609
    Dim xNum As Long
    Dim xRgCount, xRg As Range
    
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub

    Set xRg = Range("D10:M30")
    If Intersect(xRg, Target) Is Nothing Then Exit Sub
    Set xRgCount = Range("R" & Target.Row)
    
    If IsNumeric(xRgCount.Value) Then
        xNum = xRgCount.Value + 1
    Else
        xNum = 1
    End If
    xRgCount.Value = xNum
End Sub
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Muchas gracias por los codigos.
Me gustaría saber cómo contar las veces que se hace clic sobre un enlace en una celda.
Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo jose maria,
I gyfrif y cliciau ar hyperddolen, gallwch roi cynnig ar y cod VBA canlynol.
Tybiwch fod hypergysylltiadau yng ngholofn A a'ch bod am i'r nifer o gliciau gael eu poblogi yng nghell gyfatebol colofn B (fel y dangosir yn y sgrinlun isod)
Rhowch y cod canlynol yn ffenestr y daflen waith (cod).

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
'Updated by Extendoffice 20220805
    Dim Hyperlink As Range
    Set Hyperlink = Target.Range

    Hyperlink.Offset(0, 1) = Hyperlink.Offset(0, 1) + 1
End Sub

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/clicks_on_a_hyperlink.png
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir