Sut i gyfrif y nifer o weithiau y mae cell yn cael ei newid yn Excel?
I gyfrif y nifer o weithiau y mae cell benodol yn cael ei newid yn Excel, gall y codau VBA a ddarperir yn yr erthygl hon helpu.
Cyfrwch y nifer o weithiau mae cell yn cael ei newid gyda chod VBA
Cyfrwch y nifer o weithiau mae cell yn cael ei newid gyda chod VBA
Gall y codau VBA canlynol eich helpu i gyfrif y nifer o weithiau y mae cell benodol yn cael ei newid yn Excel.
1. Mewn taflen waith sy'n cynnwys un neu fwy o gelloedd y mae angen i chi gyfrifo cyfanswm y newid ar eu cyfer, de-gliciwch ar y tab taflen, ac yna cliciwch Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:
2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch un o'r codau VBA canlynol i mewn i'r Côd ffenestr yn ôl eich anghenion.
Cod VBA 1: Traciwch newidiadau i un gell yn unig
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
Nodyn: Yn y cod, B9 yw'r gell sydd ei hangen arnoch i gyfrif ei newidiadau, a C9 yw'r gell i boblogi'r canlyniad cyfrif. Newidiwch nhw yn ôl yr angen.
Cod VBA 2: Traciwch newidiadau i gelloedd lluosog mewn colofn
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
Nodyn: Yn y llinell hon"Gosod xRRg = xCell.Offset(0, 1)", y rhif 1 yn cynrychioli nifer y colofnau i'w gwrthbwyso i'r dde o'r cyfeirnod cychwyn (yma'r cyfeirnod cychwyn yw'r golofn B, ac mae'r cyfrif yr ydych am ei ddychwelyd yn y golofn C sy'n lleoli wrth ymyl colofn B). Os oes angen i chi allbynnu'r canlyniadau yn y golofn S, newid y rhif 1 i 10.
O hyn ymlaen, pan fydd cell B9 neu unrhyw gell yn yr ystod B9:B1000 yn newid, bydd cyfanswm y newidiadau yn cael eu harosod a'u llenwi'n awtomatig i'r gell benodedig.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!