Bu yazıda, Microsoft Excel'de VBA aracılığıyla toplamın nasıl sayılacağını ve görüntüleneceğini öğreneceğiz.
Basit bir alıştırmayla, Microsoft Excel'de VBA aracılığıyla toplamları nasıl ve nerede sayabileceğimizi ve görüntüleyebileceğimizi anlayalım.
Sayfa 1'de A sütununun kategori, B sütununun Rakip Kimliği ve C sütununun durumu içerdiği verilerimiz var.
Şimdi, kategorik olarak başarılı ve başarısız adayların verilerini içeren aynı çalışma kitabında Sayfa2'de bir rapor almak istiyoruz.
Aşağıda verilen adımları izleyin: -
- Makroyu yazmak üzere VBE sayfasını açmak için Alt+F11 tuşlarına basın.
- Ardından sekmeye gidin ve bir modül ekleyin.
- Sayfaya aşağıda belirtilen kodu yazın.
Sub CountStatus() Son Satır Kadar Uzun, Countpass1 As Long, countfail1 Uzun Dim erow As Long, Countpass2 As Long, CountFail2 As Long Lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Satır erow = Sheet2 .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row Countpass1 = 0 countfail1 = 0 Countpass2 = 0 CountFail2 = 0 For i = 2 For Sheet1.Cells(i, 1) = "CTY1" Ve Sheet1.Cells(i, 3) = "Geçti" O zaman Saypass1 = Saypass1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY1" Ve Sheet1.Cells(i, 3) = "Başarısız" Sonra countfail1 = countfail1 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" Ve Sheet1.Cells(i, 3) = "Geçti" Sonra Saypass2 = Saypass2 + 1 ElseIf Sheet1.Cells(i, 1) = "CTY2" Ve Sheet1.Cells(i, 3) = "Başarısız" Sonra CountFail2 = CountFail2 + 1 End If Next i i 'Msgbox "Geçme sayısı CTY1" & " " & Countpass1 & " " & "CTY1 Başarısız Sayısı" & " " & countfail1 & vbCrLf & "CTY2," & " " & Countpass2 & " " & "CTY2 Başarısız Sayısı," & " " & CountFail2 Sheet2.Range("A2:C500").Clear Sheet2.Cells( erow, 1) = "CTY1" Sheet2.Cells(erow, 2) = Countpass1 Sheet2.Cells(erow, 3) = sayımfail1 erow = erow + 1 Sheet2.Cells(erow, 1) = "CTY2" Sheet2.Cells(erow, 2) = Sayımpass2 Sheet2.Cells (erow, 3) = CountFail2 End Sub
• Makroyu çalıştırmak için F5 tuşuna basın.
• Tüm ayrıntılar, gereksinime göre Sayfa2'de güncellenecektir.
Microsoft Excel'de VBA aracılığıyla toplamları saymanın ve görüntülemenin yolu budur.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın