● Table of Contents :

こちらのサイトから拝借いたしました|ありがとうございます

ISBNを13桁から10桁にするEXCEL計算式: 備忘録

(1)D列に[ハイフン(-)]の入った[ISBN-13]が入力されていると仮定します

(2)G列〔2行目〕に以下の文字列をコピー&ペーストする|この列が[ISBN-13]からハイフン(-)を取り除いた列になります

=substitute(D2,"-","")

(3)H列〔2行目〕に以下の文字列をコピー&ペーストする|この列が[ISBN-10]の列になります

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

(4)適宜、行をコピーします

表計算ソフトは、行をコピーすると、セルのアドレスも連番式に自動的にズレてくれます。

D列に[ハイフン(-)]の入った[ISBN-13]をコピー&ペーストする