[[20070330100320]]　『チェックデジット計算式』（裕）　ページの最後に飛ぶ

『チェックデジット計算式』（裕）

計算式をお教えください。

１２桁の数字（例えばＡ１列に１２３４５６７８９０１２）の

奇数桁を足して「３」をかける（１＋３＋５＋７＋９＋１にＸ３）

今度は偶数桁を足す（２＋４＋５＋８＋０＋２）

それぞれの答え（偶数桁の合計＋奇数桁の合計＝総計）

最後に（１０－総計の下１桁）この答えが１２桁の数字の１２桁目と

正しいかどうかのチェックをしたいのですが

お願い致します。

 こんにちは～♪

 説明のまんま、１つの式にしますと
 こんな風になりました。。。

 B1セルへ

 =IF(A1="","",IF(RIGHT(A1,1)*1=10-RIGHT(SUM(INDEX(MOD(MID(A1,COLUMN(A:L),1),2)*
MID(A1,COLUMN(A:L),1),))*3+SUM(INDEX((MOD(MID(A1,COLUMN(A:L),1),2)=0)*
MID(A1,COLUMN(A:L),1),)),1),"一致","不一致"))

 ★式の中の SUM(INDEX は、SUMPRODUCT にしてもいいですね。。

 ご参考にどうぞ。。。

 。。。Ms.Rin～♪♪

 **************

 編集でチョット訂正しました。。。

Ｍｓ．Ｒｉｎさん

有難うございました。

ただ、私が間違っていまして、偶数の方は（２＋４＋５＋８＋０）で

最後の１２桁目は足さずに（１０桁目までを足す）でした。

その答えが１２桁目と同じかどうかでした。

申し訳ございませんがもう一度お教えください。

 ふたたび～です。。♪

 >偶数の方は（２＋４＋５＋８＋０）で 
 >最後の１２桁目は足さずに（１０桁目までを足す）でした。

 でしたら～。。

 =IF(A1="","",IF(RIGHT(A1,1)*1=10-RIGHT(SUM(INDEX(MOD(MID(A1,COLUMN(A:L),1),2)*
MID(A1,COLUMN(A:L),1),))*3+SUM(INDEX((MOD(MID(A1,COLUMN(A:J),1),2)=0)*
MID(A1,COLUMN(A:J),1),)),1),"一致","不一致"))

 になりますね。。

 参考に

 ★奇数合計

 SUM(INDEX(MOD(MID(A1,COLUMN(A:L),1),2)*MID(A1,COLUMN(A:L),1),))*3

 ★偶数合計
 SUM(INDEX((MOD(MID(A1,COLUMN(A:J),1),2)=0)*MID(A1,COLUMN(A:J),1),))
 です。。。

 。。。Ms.Rin～♪♪

Ms.Rin さん

度々有難うございます。

私のやり方が間違いなのかもしれませんが、うまく出来ません。

例えば（８５０５６７５３９３８９）この数字だと

１２桁目の「９」が答えとなり一致しなければいけないのですが・・・

１．（８＋０＋６＋５＋９＋８）Ｘ３＝１０８

２．（５＋５＋７＋３＋３）＝２３

３．１０８＋２３＝１３１

４．１３１の下１桁の「１」　１０－「１」＝９

こんな感じなのですが　どうでしょう？

（裕）

 こんなんはどうですか？

 =IF(OR(LEN(A1)>12,LEN(A1)=0,NOT(ISNUMBER(A1))),"",REPT("不",1-(10-RIGHT(SUMPRODUCT(MOD(ROW(1:12),2)
  *MID(TEXT(A1,REPT("0",12)),ROW(1:12),1))*3+SUMPRODUCT((MOD(ROW(1:10),2)=0)
  *MID(TEXT(A1,REPT("0",12)),ROW(1:10),1)))=--RIGHT(A1)))&"一致")
 (ROUGE)

 １２桁の数字（例えばＡ１列に１２３４５６７８９０１２）の 
奇数桁を足して「３」をかける（１＋３＋５＋７＋９＋１にＸ３）の1桁 
=MOD(SUMPRODUCT(MID(A1,ROW(A1:A11),1)*(MOD(ROW(A1:A11),2)=1))*3,10)
今度は偶数桁を足す（２＋４＋５＋８＋０＋２）の1桁
=MOD(SUMPRODUCT(MID(A1,ROW(A1:A11),1)*(MOD(ROW(A1:A11),2)=0)),10)
（JJKU)

 それぞれの答え（偶数桁の合計＋奇数桁の合計＝総計） 
 最後に（１０－総計の下１桁）
 =10-MOD(SUMPRODUCT(MID(A1,ROW(A1:A11),1)*((MOD(ROW(A1:A11),2)=1)*3+(MOD(ROW(A1:A11),2)=0))),10)
この結果を１２桁の数字の１２桁目と比較すれば
（JJKU)

 すみません～♪

 ワウツ！！
 違ってましたね。ゴメンナサイ！！

 =IF(A1="","",IF(RIGHT(A1,1)*1=10-RIGHT(SUM(INDEX((MOD(COLUMN(A:L),2))*
MID(A1,COLUMN(A:L),1),))*3+SUM(INDEX((MOD(COLUMN(A:J),2)=0)*
MID(A1,COLUMN(A:J),1),)),1),"一致","不一致"))

 これで良さそうです。。。Ms.Rin～♪♪

ありがとうございました。

出来ました。今日は家に帰れそうです。

みなさん有難うです。感謝します。

（裕）

コメント返信：

[ 一覧(最新更新順) ]

[[20070330100320]] 『チェックデジット計算式』（裕） ページの最後に飛ぶ

[[20070330100320]]　『チェックデジット計算式』（裕）　ページの最後に飛ぶ