ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ

質問
QNo.4094430 エクセルの関数を使って１３桁のＩＳＢＮ番号を１０桁に変更する方法
質問者：yosuke333 質問をさせて頂きます。

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

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

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

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

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

恐れ入りますが、ご存知の方がおりましたら、ご教授の程頂ければ幸いです。
お手数をお掛け致しますが、どうぞ宜しくお願い致します。
困り度：
  • 困っています
質問投稿日時：
08/06/12 10:49
この質問に対する回答は締め切られました。
最新から表示｜回答順に表示｜良回答のみ表示

回答良回答20pt
ANo.2 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))
回答者：ts3m-ickw
種類：回答
どんな人：一般人
自信：参考意見
回答日時：
08/06/12 12:55
この回答へのお礼早速、ご教授頂きまして誠にありがとうございました。

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

回答
ANo.1 難しいことは判りません。紹介されたページに書いてあるとおりにしました。
{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」になるので合ってるんじゃないかと。
解説は要りませんよね？ 変な関数とか使っていませんし。
回答者：ts3m-ickw
種類：回答
どんな人：一般人
自信：参考意見
回答日時：
08/06/12 12:14
この回答へのお礼この回答にお礼をつける(質問者のみ)
 
最新から表示｜回答順に表示｜良回答のみ表示
このページのトップへ