Πώς να μετρήσετε πόσες φορές έχει αλλάξει ένα κελί στο Excel;
Για να μετρήσετε πόσες φορές έχει αλλάξει ένα καθορισμένο κελί στο Excel, οι κωδικοί VBA που παρέχονται σε αυτό το άρθρο μπορούν να βοηθήσουν.
Μετρήστε πόσες φορές έχει αλλάξει ένα κελί με κωδικό VBA
Μετρήστε πόσες φορές έχει αλλάξει ένα κελί με κωδικό VBA
Οι ακόλουθοι κωδικοί VBA μπορούν να σας βοηθήσουν να μετρήσετε πόσες φορές έχει αλλάξει ένα καθορισμένο κελί στο Excel.
1. Σε φύλλο εργασίας που περιέχει ένα ή περισσότερα κελιά για τα οποία πρέπει να υπολογίσετε τη συνολική αλλαγή, κάντε δεξί κλικ στην καρτέλα του φύλλου και, στη συνέχεια, κάντε κλικ Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε έναν από τους παρακάτω κωδικούς VBA στο Κώδικας παράθυρο ανάλογα με τις ανάγκες σας.
Κωδικός VBA 1: Παρακολούθηση αλλαγών μόνο σε ένα κελί
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
Note: Στον κώδικα, το B9 είναι το κελί που πρέπει να μετρήσετε τις αλλαγές του και το C9 είναι το κελί για να συμπληρώσετε το αποτέλεσμα μέτρησης. Αλλάξτε τα όπως χρειάζεστε.
Κωδικός VBA 2: Παρακολούθηση αλλαγών σε πολλά κελιά σε μια στήλη
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
Note: Σε αυτή τη γραμμή "Ορισμός xRRg = xCell.Offset(0, 1)", ο αριθμός 1 αντιπροσωπεύει τον αριθμό των στηλών προς μετατόπιση στα δεξιά της αρχικής αναφοράς (εδώ η αρχική αναφορά είναι στήλη B, και το πλήθος που θέλετε να επιστρέψετε βρίσκεται στη στήλη C που βρίσκεται δίπλα στη στήλη Β). Εάν πρέπει να εξάγετε τα αποτελέσματα στη στήλη S, αλλάξτε τον αριθμό 1 προς την 10.
Από εδώ και στο εξής, όταν αλλάξει το κελί B9 ή οποιοδήποτε κελί στην περιοχή B9:B1000, ο συνολικός αριθμός αλλαγών θα υπερτίθεται και θα συμπληρώνεται αυτόματα στο καθορισμένο κελί.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!