Excel'de belirli bir hücredeki toplam tıklamalar nasıl sayılır?

Bu makale, Excel'de belirli bir hücredeki toplam tıklamaları saymayı anlatmaktadır.

VBA kodu ile belirli bir hücredeki toplam tıklamaları sayma

VBA kodu ile belirli bir hücredeki toplam tıklamaları sayma

Excel'de belirli bir hücredeki toplam tıklamaları saymak için lütfen aşağıdaki adımları izleyin.

1. Toplam tıklamalarını saymanız gereken hücreyi içeren çalışma sayfasında, sayfa sekmesine sağ tıklayın ve ardından bağlam menüsünden Görünüm Kodu'nu seçin.

2. Microsoft Visual Basic for Applications penceresinde, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA Kodu: Excel'de belirli bir hücredeki toplam tıklamaları sayma

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

Not: Kodda, E2, toplam tıklamalarını saymanız gereken hücredir ve H2, sayımın çıktı hücresidir. Gereksinimlerinize göre bunları değiştirin.

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

Şimdi itibaren, bu belirli çalışma sayfasındaki E2 hücresine tıkladığınızda, toplam tıklamalar aşağıdaki ekran görüntüsünde gösterildiği gibi H2 hücresine otomatik olarak doldurulacaktır. Örneğin, E2 hücresine 5 kez tıklarsanız, H2 hücresinde 5 sayısı görüntülenecektir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!