W tym artykule utworzymy niestandardową funkcję do obliczania sumy cyfr w komórce.
Przykładowe dane dla tego przykładu składają się z danych sprzedaży. Każdy agent sprzedał inny produkt. W komórce mamy liczbę sprzedanych przedmiotów, a następnie nazwę produktu. Chcemy znaleźć całkowitą liczbę przedmiotów sprzedanych przez każdego agenta.
Stworzyliśmy funkcję „SumDigits” do obliczania sumy cyfr w komórce. Ta funkcja przyjmuje jako dane wejściowe zakres komórki i zwraca sumę cyfr w komórce.
Wyjaśnienie logiczne
Stworzyliśmy niestandardową funkcję „SumDigits”, aby obliczyć sumę cyfr w komórce. W tej funkcji znajdujemy długość ciągu w komórce, a następnie wykonujemy pętlę od pierwszego znaku do ostatniego znaku w ciągu. Następnie znajdujemy i dodajemy wartości liczbowe znalezione w ciągu, aby uzyskać sumę cyfr.
Wyjaśnienie kodu
Środek (liczba, i, 1)
Funkcja Mid służy do wyodrębnienia podciągu z głównego ciągu. Powyższy kod wyciągnie jeden znak z głównego ciągu na raz.
Czy liczbowe (wartość)
Funkcja IsNumeric służy do sprawdzenia, czy podana wartość jest liczbowa.
Wart(Wartość)
Funkcja Val służy do konwersji ciągu na wartość liczbową.
Proszę postępować zgodnie z poniższym kodem!
Opcja Funkcja jawna SumDigits(Number As Variant) Dim i As Integer For i = 1 To Len(Number) If IsNumeric(Mid(Number, i, 1)) Then SumDigits = SumDigits + Val(Mid(Number, i, 1)) Zakończ, jeśli dalej i Zakończ funkcję
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail