Trong bài viết này, chúng tôi sẽ tạo một hàm tùy chỉnh để tính tổng các chữ số trong một ô.

Dữ liệu mẫu cho ví dụ này bao gồm dữ liệu bán hàng. Mỗi đại lý đã bán sản phẩm khác nhau. Trong một ô, chúng tôi có số lượng mặt hàng đã bán, theo sau là tên sản phẩm. Chúng tôi muốn tìm tổng mặt hàng được bán bởi mỗi đại lý.

ArrowRaw

Chúng tôi đã tạo hàm “SumDigits” để tính tổng các chữ số trong ô. Hàm này nhận phạm vi ô làm đầu vào và trả về tổng các chữ số trong ô.

ArrowOutput

Giải thích logic

Chúng tôi đã tạo hàm tùy chỉnh “SumDigits” để tính tổng các chữ số trong một ô. Trong hàm này, chúng ta tìm độ dài của chuỗi trong ô và sau đó lặp từ ký tự đầu tiên đến ký tự cuối cùng trong chuỗi. Sau đó, chúng tôi tìm và cộng các giá trị số tìm được trong chuỗi để có tổng các chữ số.

Giải thích mã

Mid (Số, i, 1)

Hàm Mid được sử dụng để trích xuất chuỗi con từ chuỗi chính.

Đoạn mã trên sẽ trích xuất một ký tự từ chuỗi chính tại một thời điểm.

IsNumeric (Giá trị)

Hàm IsNumeric được sử dụng để kiểm tra xem giá trị đã cho có phải là số hay không.

Val (Giá trị)

Hàm Val được sử dụng để chuyển đổi chuỗi thành giá trị số.

Vui lòng theo dõi bên dưới để biết mã

Option Explicit

Function 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))

End If

Next i

End Function

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]