Excel'de bir hücrenin değiştirilme sayısı nasıl sayılır?
Excel'de belirli bir hücrenin kaç kez değiştirildiğini saymak için bu makalede sağlanan VBA kodları yardımcı olabilir.
VBA koduyla bir hücrenin kaç kez değiştirildiğini sayın
VBA koduyla bir hücrenin kaç kez değiştirildiğini sayın
Aşağıdaki VBA kodları, Excel'de belirli bir hücrenin kaç kez değiştirildiğini saymanıza yardımcı olabilir.
1. Toplam değişikliği hesaplamanız gereken bir veya daha fazla hücre içeren çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:
2. Açılışta Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki VBA kodlarından birini kopyalayıp yapıştırın. Kod ihtiyaçlarınıza göre pencere.
VBA kodu 1: Değişiklikleri yalnızca bir hücrede izleyin
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
not: Kodda, B9, değişikliklerini saymanız gereken hücredir ve C9, sayım sonucunu doldurmak için gereken hücredir. Lütfen ihtiyaç duyduğunuzda değiştirin.
VBA kodu 2: Bir sütunda birden çok hücrede yapılan değişiklikleri izleyin
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
not: Bu satırda "xRRg = xCell.Offset(0, 1) olarak ayarlayın", numara 1 başlangıç referansının sağına kaydırılacak sütunların sayısını temsil eder (burada başlangıç referansı sütundur B, ve döndürmek istediğiniz sayı sütunda C B) sütununun yanında bulunur. Sonuçları sütunda çıkarmanız gerekiyorsa S, numarayı değiştir 1 için 10.
Şu andan itibaren, B9 hücresi veya B9:B1000 aralığındaki herhangi bir hücre değiştiğinde, toplam değişiklik sayısı üst üste gelecek ve belirtilen hücreye otomatik olarak doldurulacaktır.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!