ISBNを13桁から10桁にするEXCEL計算式

ISBNを、13桁から10桁にするEXCEL計算式

13桁のISBNから
チェックデジットを付け替えて10桁のISBNへ変換する数式

A3セルに入力場合(他のセルの場合、A3を置き換えてください)

=IF(11-MOD(MID(A3,4,1)*10+MID(A3,5,1)*9+MID(A3,6,1)*8+MID(A3,7,1)*7+MID(A3,8,1)*6+MID(A3,9,1)*5+MID(A3,10,1)*4+MID(A3,11,1)*3+MID(A3,12,1)*2,11)=11,CONCATENATE(MID(A3,4,9),"0"),IF(11-MOD(MID(A3,4,1)*10+MID(A3,5,1)*9+MID(A3,6,1)*8+MID(A3,7,1)*7+MID(A3,8,1)*6+MID(A3,9,1)*5+MID(A3,10,1)*4+MID(A3,11,1)*3+MID(A3,12,1)*2,11)=10,CONCATENATE(MID(A3,4,9),"X"),CONCATENATE(MID(A3,4,9),11-MOD(MID(A3,4,1)*10+MID(A3,5,1)*9+MID(A3,6,1)*8+MID(A3,7,1)*7+MID(A3,8,1)*6+MID(A3,9,1)*5+MID(A3,10,1)*4+MID(A3,11,1)*3+MID(A3,12,1)*2,11))))


使用例
画像

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 1

なるほど(納得、参考になった、ヘー)

この記事へのコメント

この記事へのトラックバック