エクセルの関数を使って１３桁のＩＳＢＮ番号を１０桁に変更する方法

質問

質問をさせて頂きます。

書籍についているＩＳＢＮ番号の件ですが、２００７年以降に発行したものより１０桁から１３桁への表示に変更となりました。

そこで、この１３桁のＩＳＢＮ番号を１０桁に戻す式を考えているところなのですが、中々良い式が思い浮かびません。

ちなみに式に関しては下記のページに詳細が載っております。

http://ja.wikipedia.org/wiki/ISBN

例えば、Ａ１のセルに１３桁のＩＳＢＮ番号を入力して、Ｂ１にその式、Ｃ１にその結果を表示されるような式をエクセルの関数を使って作り出す事は可能でしょうか？

恐れ入りますが、ご存知の方がおりましたら、ご教授の程頂ければ幸いです。
お手数をお掛け致しますが、どうぞ宜しくお願い致します。

回答No.2

ts3m-ickw · ベストアンサー

No.1です。チェックデジットが10以上のときの補足説明を読み損ねてました。
{C1}=IF(B1=10,MID(A1,4,9)&"X",IF(B1=11,MID(A1,4,9)&"0",MID(A1,4,9)&B1))

お礼

早速、ご教授頂きまして誠にありがとうございました。

期待通りの結果を得る事ができました！
かなり苦戦をしていたので、とても助かりました。
本当にありがとうございました。

回答No.1

ts3m-ickw

難しいことは判りません。紹介されたページに書いてあるとおりにしました。
{B1}=11-MOD(MID(A1,4,1)*10+MID(A1,5,1)*9+MID(A1,6,1)*8+MID(A1,7,1)*7+MID(A1,8,1)*6+MID(A1,9,1)*5+MID(A1,10,1)*4+MID(A1,11,1)*3+MID(A1,12,1)*2,11)
{C1}=MID(A1,4,9)&B1

{A1}に「9784101092058」を入れると{C1}が「4101092052」になるので合ってるんじゃないかと。
解説は要りませんよね？ 変な関数とか使っていませんし。