Oldukça sık, bir hücreye sırayla girilen birkaç değeri toplamamız (biriktirmemiz) gerektiğinde bir durum ortaya çıkar:
Şunlar. örneğin, A1 hücresine 5 sayısını girerseniz, B1 hücresinde 15 sayısı görünmelidir. Daha sonra A1'ye 7 sayısını girerseniz, B1 hücresinde 22 görünmelidir, vb. Genel olarak, muhasebecilerin (sadece onların değil) kümülatif toplam dediği şey.
Basit bir makro kullanarak böyle bir depolama hücresi akümülatörü uygulayabilirsiniz. A1 ve B1 hücrelerinin bulunduğu sayfa sekmesine sağ tıklayın ve içerik menüsünden seçim yapın Kaynak metin (Kaynak kodu). Açılan Visual Basic düzenleyici penceresinde basit makro kodunu kopyalayıp yapıştırın:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Hedefli If .Address(False, False) = "A1" Sonra IsNumeric(.Value) ise Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = End If End If End Sub ile True End A1 ve A2 hücrelerinin adresleri elbette kendi adresinizle değiştirilebilir.
Veri girişini izlemeniz ve tek tek hücreleri değil, tüm aralıkları özetlemeniz gerekiyorsa, makronun biraz değiştirilmesi gerekecektir:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Kesişmiyorsa(Target, Range("A1:A10")) Hiçbir Şey Değilse, IsNumeric(Target.Value) Sonra Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End If End Sub A1:A10 aralığındaki hücrelere veri girildiği ve girilen sayıların sağdaki bitişik sütunda toplandığı varsayılır. Sizin durumunuzda bitişik değilse, Ofset operatöründe sağa kaydırmayı artırın - 1'i daha büyük bir sayı ile değiştirin.
- Makrolar nedir, VBA'da makro kodu nereye eklenir, nasıl kullanılır?