Excel'de bir veya tek bir hücrede toplam çalıştırmaya nasıl devam edilir?
Bu makale, Excel'deki bir veya tek hücrede toplamı çalıştırmaya devam etmenin bir yöntemini gösterecektir. Örneğin, A1 hücresi şu anda 10 sayısını tutar, 5 gibi başka bir sayı girerken A1'in sonuç değeri 15 (10 + 5) olacaktır. Kolayca halletmek için aşağıdaki işlemleri yapabilirsiniz.
VBA kodu ile bir veya tek hücrede toplam çalıştırmaya devam edin
VBA kodu ile bir veya tek hücrede toplam çalıştırmaya devam edin
Aşağıdaki VBA kodu, bir hücrede toplam çalıştırmaya devam etmenize yardımcı olabilir. Lütfen aşağıdaki işlemleri adım adım yapın.
1. Çalışma sayfasını açın, içinde toplam çalıştırmaya devam edeceğiniz hücreyi içerir. Sayfa sekmesine sağ tıklayın ve seçin Kodu Görüntüle bağlam menüsünden.
2. Açılışta Uygulamalar için Microsoft Visual Basic penceresinde, VBA kodunu kopyalayıp Kod penceresine yapıştırın. Ekran görüntüsüne bakın:
VBA kodu: Bir veya tek hücrede toplam çalışmaya devam edin
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End Sub
not: Kodda A1, içinde toplam çalıştırmaya devam edeceğiniz hücredir. Lütfen ihtiyacınız olan hücreyi belirtin.
3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
Şu andan itibaren, A1 hücresine sayı yazarken, toplam aşağıda gösterilen ekran görüntüsü gibi içeride çalışmaya devam edecektir.
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!