Excel'de tek bir hücrede sürekli toplamı nasıl korursunuz?
Bu makale, Excel’de tek bir hücrede sürekli toplamı korumanıza yardımcı olacak pratik bir yöntemi adım adım gösterecektir. Örneğin, A1 hücresi şu anda 10 değerini içeriyor olsun; bu hücreye yeni bir sayı (örneğin 5) girdiğinizde, A1’in değeri otomatik olarak 15’e (10 + 5) yükselsin. Bu işlemi kolayca gerçekleştirmek için aşağıdaki adımları izleyin.
VBA kodu ile bir veya tek bir hücrede sürekli toplamı koruyun
VBA kodu ile bir veya tek bir hücrede sürekli toplamı koruyun
Aşağıdaki VBA kodu, bir hücrede sürekli toplamı korumanıza yardımcı olur. Lütfen aşağıdaki adımları sırayla uygulayın.
1. Sürekli toplamı tutmak istediğiniz hücreyi içeren çalışma sayfasını açın. Sayfa sekmesine sağ tıklayıp bağlam menüsünden Kodu Görüntüle seçeneğini belirleyin.
2. Açılan Microsoft Visual Basic for Applications penceresinde, aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:
VBA kodu: Bir veya tek bir hücrede sürekli toplamı koru
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 SubNot: Kodda A1, sürekli toplamı saklayacağınız hücredir. İhtiyacınıza göre farklı bir hücre belirtebilirsiniz.
3. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.
Şimdi itibarıyla, A1 hücresine girdiğiniz sayılar, aşağıdaki ekran görüntüsünde gösterildiği gibi hücre içinde sürekli olarak toplanmaya devam edecektir.
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla grafiklere dönüştürün.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve anında uygulayın.
- Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve verimlilikten önce hiç yaşanmamış bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okumayı etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve sizin için her gün yüzlerce fare tıklamasını ortadan kaldırır!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir—bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada kurulum tamamlanır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın alımına göre tasarruf edin