Kako prešteti, kolikokrat je celica spremenjena v Excelu?
Če želite prešteti, kolikokrat je določena celica spremenjena v Excelu, vam lahko pomagajo kode VBA, navedene v tem članku.
Preštejte, kolikokrat je celica spremenjena s kodo VBA
Preštejte, kolikokrat je celica spremenjena s kodo VBA
Naslednje kode VBA vam lahko pomagajo prešteti, kolikokrat je določena celica spremenjena v Excelu.
1. Na delovnem listu, ki vsebuje eno ali več celic, za katere morate izračunati skupno spremembo, z desno miškino tipko kliknite jeziček lista in nato kliknite Ogled kode iz kontekstnega menija. Oglejte si posnetek zaslona:
2. Na odprtju Microsoft Visual Basic za aplikacije oknu, kopirajte in prilepite eno od naslednjih kod VBA v Koda okno glede na vaše potrebe.
Koda VBA 1: Sledite spremembam samo v eni celici
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
Opombe: V kodi je B9 celica, ki jo morate prešteti, C9 pa celica, da izpolnite rezultat štetja. Prosimo, spremenite jih po potrebi.
Koda VBA 2: Sledite spremembam več celic v stolpcu
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
Opombe: V tej vrstici "Nastavite xRRg = xCell.Offset(0, 1)", število 1 predstavlja število stolpcev za zamik desno od začetnega sklica (tukaj je začetni sklic stolpec B, in število, ki ga želite vrniti, je v stolpcu C ki se nahaja poleg stolpca B). Če morate rezultate izpisati v stolpcu S, spremenite številko 1 do 10.
Od zdaj naprej, ko se spremeni celica B9 ali katera koli celica v obsegu B9:B1000, bo skupno število sprememb prekrito in samodejno zapolnjeno v določeni celici.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!