Hàm tính mã code thứ 13 từ dãy 12 số (3 người xem)

[hic1802]

Xin chào mọi người trên GPE,
Nhờ mọi người giúp cách (dùng hàm hoặc VBA) tìm số 13 từ dãy 12 số theo quy cách code mã vạch 13 số (Mã EAN-13 )
Ví dụ : khi ta điền ở ô A2 số (gồm 12 số) --> ô B2 sẽ chỉ ra số (số thứ 13)
Hiện tại e tính thủ công theo cách tính trên mạng hướng dẫn mà lâu quá
http://baohothuonghieu.com/banquyen...e-biet-co-chinh-xac-khong-ma-ean-13/1550.html
Cảm ơn mọi người.

 

[Phuocam]

Public Function SoKiemTra(s) As Byte
Dim soChan As Integer, soLe As Integer
Dim tam As Integer
Dim i As Integer
    s = Left(s, 12)
    For i = 1 To Len(s) Step 2
        soLe = soLe + Mid(s, i, 1)
        soChan = soChan + Mid(s, i + 1, 1)
    Next
    tam = soLe + soChan * 3
    tam = (tam Mod 10)
    SoKiemTra = IIf(tam = 0, 0, 10 - tam)
End Function

 

[HieuCD]

Xin chào mọi người trên GPE,
Nhờ mọi người giúp cách (dùng hàm hoặc VBA) tìm số 13 từ dãy 12 số theo quy cách code mã vạch 13 số (Mã EAN-13 )
Ví dụ : khi ta điền ở ô A2 số (gồm 12 số) --> ô B2 sẽ chỉ ra số (số thứ 13)
Hiện tại e tính thủ công theo cách tính trên mạng hướng dẫn mà lâu quá
http://baohothuonghieu.com/banquyen...e-biet-co-chinh-xac-khong-ma-ean-13/1550.html
Cảm ơn mọi người.

Mã ở ô A1

=-MOD(SUM(--MID(A1,{2,4,6,8,10,12},1))*3+SUM(--MID(A1,{1,3,5,7,9,11},1)),-10)

 

[batman1]

=MOD(-SUM(MID(A1,{1,2,3,4,5,6,7,8,9,10,11,12},1)*{1,3,1,3,1,3,1,3,1,3,1,3}),10)

 

[excel_lv1.5]

Xin chào mọi người trên GPE,
Nhờ mọi người giúp cách (dùng hàm hoặc VBA) tìm số 13 từ dãy 12 số theo quy cách code mã vạch 13 số (Mã EAN-13 )
Ví dụ : khi ta điền ở ô A2 số (gồm 12 số) --> ô B2 sẽ chỉ ra số (số thứ 13)
Hiện tại e tính thủ công theo cách tính trên mạng hướng dẫn mà lâu quá
http://baohothuonghieu.com/banquyen...e-biet-co-chinh-xac-khong-ma-ean-13/1550.html
Cảm ơn mọi người.

Cho bạn thêm 1 cách:

=MOD(-SUM(MID(A1,{1;2;3;4;5;6}*2-1+{0,1},1)*{1,3}),10)

 

[HieuCD]

Cho bạn thêm 1 cách:

=MOD(-SUM(MID(A1,{1;2;3;4;5;6}*2-1+{0,1},1)*{1,3}),10)

Cách sử dụng mảng quá vi diệu

 

[hic1802]

Cảm ơn tất cả mọi người, diễn đàn mình nhiều cao thủ quá

 

[ic3tea]

Hàm này mình làm thấy đúng

Mã ở ô A1

=-MOD(SUM(--MID(A1,{2,4,6,8,10,12},1))*3+SUM(--MID(A1,{1,3,5,7,9,11},1)),-10)

Cách này làm ra số lẻ, không chính xác

Cho bạn thêm 1 cách:

=MOD(-SUM(MID(A1,{1;2;3;4;5;6}*2-1+{0,1},1)*{1,3}),10)