Bu yazıda, bir hücredeki rakamların toplamını hesaplamak için özel bir fonksiyon oluşturacağız.
Bu örnek için örnek veriler satış verilerinden oluşmaktadır. Her acente farklı ürün sattı. Bir hücrede, satılan ürün sayısı ve ardından ürün adı bulunur. Her bir temsilci tarafından satılan toplam ürünü bulmak istiyoruz.
Hücredeki rakamların toplamını hesaplamak için “SumDigits” fonksiyonunu oluşturduk. Bu işlev, girdi olarak hücre aralığını alır ve hücredeki rakamların toplamını döndürür.
Mantıksal açıklama
Bir hücredeki rakamların toplamını hesaplamak için özel “SumDigits” fonksiyonunu yarattık. Bu fonksiyonda, hücredeki dizenin uzunluğunu buluyoruz ve ardından dizedeki ilk karakterden son karaktere kadar döngü yapıyoruz. Ardından, rakamların toplamını elde etmek için dizede bulunan sayısal değerleri bulup toplarız.
Kod açıklaması
Orta(Sayı, ben, 1)
Mid işlevi, alt dizeyi ana dizeden çıkarmak için kullanılır. Yukarıdaki kod, bir seferde ana dizeden bir karakter çıkaracaktır.
Sayısaldır(Değer)
IsNumeric işlevi, verilen değerin sayısal olup olmadığını kontrol etmek için kullanılır.
Değer(Değer)
Val işlevi, dizeyi sayısal değere dönüştürmek için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Açık Fonksiyon SumDigits(Number As Variant) Dim i As Integer For i = 1 To Len(Sayı) If IsNumeric(Mid(Sayı, i, 1)) O zaman SumDigits = SumDigits + Val(Orta(Sayı, i, 1)) Son İse Sonraki i Bitir İşlevi
Bu blogu 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 geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın