こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルの関数を使って13桁のISBN番号を10桁に変更する方法

質問をさせて頂きます。

書籍についているISBN番号の件ですが、2007年以降に発行したものより10桁から13桁への表示に変更となりました。

そこで、この13桁のISBN番号を10桁に戻す式を考えているところなのですが、中々良い式が思い浮かびません。

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

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

例えば、A1のセルに13桁のISBN番号を入力して、B1にその式、C1にその結果を表示されるような式をエクセルの関数を使って作り出す事は可能でしょうか?

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

投稿日時 - 2008-06-12 10:49:42

QNo.4094430

困ってます

質問者が選んだベストアンサー

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

投稿日時 - 2008-06-12 12:55:52

お礼

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

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

投稿日時 - 2008-06-12 22:43:45

このQ&Aは役に立ちましたか?

4人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(2)

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」になるので合ってるんじゃないかと。
解説は要りませんよね? 変な関数とか使っていませんし。

投稿日時 - 2008-06-12 12:14:37

-広告-
-広告-

あなたにオススメの質問

-広告-
-広告-