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))))


使用例
画像

"ISBNを13桁から10桁にするEXCEL計算式" へのコメントを書く

お名前
メールアドレス
ホームページアドレス
コメント