Có thể viết được bằng VBA. Mà hình như bài này có thành viên nào đó đã viết rồi thì phải, mình kiếm không raai biết chỉ giúp em với
Option Explicit
Function Chuyen(Num As Long) As Long
Dim J As Byte, Tmp As Integer
Dim StrC As String, Tam As String
StrC = CStr(Num)
For J = 1 To Len(StrC) - 1
Tmp = CByte(Mid(StrC, J, 1)) + CByte(Mid(StrC, J + 1, 1))
If Tmp > 9 Then Tmp = Tmp Mod 10
Tam = Tam & CStr(Tmp)
Next J
Chuyen = CLng(Tam)
End Function
Muốn kết quả ra sao ???ai viết giúp em với ạ
Nếu là số 1000000000 thì kết quả cuối cùng là bao nhiêu?dạ em muốn lấy kết quả như thế này ạ ( lấy đến 2 số cuối cùng ạ )
1234512345
357963579
82659826
0814708
895178
74685
1043
147
51
dạ em muốn lấy kết quả như thế này ạ ( lấy đến 2 số cuối cùng ạ )
1234512345
357963579
82659826
0814708
895178
74685
1043
147
51
Bạn thử file đính kèm xem.
p/s: Bạn nên giả lập dữ liệu vào file excel rồi gửi lên thì mới mong nhanh nhận được đáp án là bảng trong file excel!
dạ em có 30 cặp cần tính từ (A1,A1),(A1,B1)..... (I3,A1) .... (I3,I3) , anh có thể giúp em 1 bảng tính toàn bộ ko ạ ?