Hàm VBA tự tạo phép cộng theo ý muốn (1 người xem)

[duynhatgpe]

Xin chào mọi người thân mến !
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel để làm phép cộng số có kết quả theo ý muốn của mình .ở đây các số công nhau ở hàng đơn vị hay hàng chục ,hàng trăm .....đều bỏ hàng chục (nếu có)chỉ lấy con số đơn vị với nhau
Thành thật cảm ơn !

 

[giaiphap]

Bạn thử sử dụng code sau:

Public Function TinhTong(Vung As Range) As Long
Dim dv As Integer, chuc As Integer, tram As Integer, sCell As Range
For Each sCell In Vung
    dv = (dv + sCell.Value Mod 10) Mod 10
    chuc = (chuc + (sCell.Value Mod 100) \ 10) Mod 10
    tram = (tram + (sCell.Value Mod 1000) \ 100) Mod 10
Next
TinhTong = tram * 100 + chuc * 10 + dv
End Function

Sử dụng để tính tổng D12 là

=tinhtong(D1:D2)

 

[minhtungph]

Bạn thử sử dụng code sau:

Public Function TinhTong(Vung As Range) As Long
Dim dv As Integer, chuc As Integer, tram As Integer, sCell As Range
For Each sCell In Vung
    dv = (dv + sCell.Value Mod 10) Mod 10
    chuc = (chuc + (sCell.Value Mod 100) \ 10) Mod 10
    tram = (tram + (sCell.Value Mod 1000) \ 100) Mod 10
Next
TinhTong = tram * 100 + chuc * 10 + dv
End Function

Sử dụng để tính tổng D12 là

=tinhtong(D1:D2)

code này còn hạn chế với số có 3 chữ số, code của mình hỏi dài dòng, và thuật toán chắc chưa tối ưu nhưng có thể chơi tới số double
Cú pháp: Tong(số A, Số B)

Function Tong(a As Double, b As Double) As Double
    Dim i As Integer, a1 As String, b1 As String
    a1 = "" & StrReverse(a): b1 = "" & StrReverse(b)
    For i = 1 To WorksheetFunction.Min(Len(a1), Len(b1))
        Tong = Tong & Right("" & Val(Mid(a1, i, 1)) + Val(Mid(b1, i, 1)), 1)
    Next i
    If Len(a1) > Len(b1) Then
        Tong = Tong & StrReverse(Right(a1, Len(a1) - Len(b1)))
    ElseIf Len(a1) < Len(b1) Then
        Tong = Tong & StrReverse(Right(b1, Len(b1) - Len(a1)))
    Else
        Tong = Tong
    End If
    Tong = CDbl(StrReverse(Tong))
End Function

 

[duynhatgpe]

Mình rất cảm ơn , nhưng cộng cho nhiều range chon riềng lẻ khác nhau thì chưa được ...

 

[minhtungph]

Mình rất cảm ơn , nhưng cộng cho nhiều range chon riềng lẻ khác nhau thì chưa được ...

cụ thể là bạn muốn quét 1 vùng nhiều range à

 

[duynhatgpe]

cụ thể là bạn muốn quét 1 vùng nhiều range à

mình muốn y như một phép cộng bình thường nhưng có đặc tính như trên

 

[minhtungph]

Bạn đánh TongNhieuVung( Quét vùng cần tính)

Function Tong(a As Double, b As Double) As Double
    Dim i As Integer, a1 As String, b1 As String, temp As String
    a1 = "" & StrReverse(a): b1 = "" & StrReverse(b)
    For i = 1 To WorksheetFunction.Min(Len(a1), Len(b1))
        temp = temp & Right("" & Val(Mid(a1, i, 1)) + Val(Mid(b1, i, 1)), 1)
    Next i
    If Len(a1) > Len(b1) Then
        temp = temp & Right(a1, Len(a1) - Len(b1))
    ElseIf Len(a1) < Len(b1) Then
        temp = temp & StrReverse(Right(b1, Len(b1) - Len(a1)))
    Else
        temp = temp
    End If
    Tong = CDbl(StrReverse(temp))
End Function
Function TongNhieuVung(rng As Range) As Double
    Dim rng1 As Range, i As Integer
    If rng.Count < 2 Then
        TongNhieuVung = rng.Value
        Exit Function
    End If
    TongNhieuVung = rng(1)
    For i = 2 To rng.Count
        If rng(i).Value > 0 Then
            TongNhieuVung = Tong(TongNhieuVung, rng(i))
        End If
    Next i
End Function

 

[ndu96081631]

Xin chào mọi người thân mến !
Hiện tại mình có vấn đề cần sự giúp đỡ về code excel để làm phép cộng số có kết quả theo ý muốn của mình .ở đây các số công nhau ở hàng đơn vị hay hàng chục ,hàng trăm .....đều bỏ hàng chục (nếu có)chỉ lấy con số đơn vị với nhau
Thành thật cảm ơn !

Thắc mắc: Bài toán này dùng vào việc gì?

 

[minhtungph]

Thắc mắc: Bài toán này dùng vào việc gì?

Có thể là một thuật toán tạo mã hóa, hehe, lúc trước em cũng từng làm cái phần tạo key , mã hóa và giải mã dùng các phép tính lạ như thế này

 

[giaiphap]

Thắc mắc: Bài toán này dùng vào việc gì?

Thầy Ndu ngứa nghề rồi chủ topic ơi, có thể giải thích cho mình học hỏi với. Một câu hỏi thêm nửa cho chủ topic là hàm này của bạn sử dụng bao nhiêu tham số.

 

[duynhatgpe]

Thắc mắc: Bài toán này dùng vào việc gì?

Thầy ơi ! em đang thực tập VBA có đề bài này tưởng dể mà khó quá thầy ơi !

 

[duynhatgpe]

Mình có thêm một cách giải quyết vấn đề trên nhưng còn lòng vòng trong thực hành VBA lắm ,xin nhờ các bậc anh chị ,thầy cô chỉ dẫn thêm .Thành thật cảm ơn