Re: 不正ISBN一覧（不明分） ← 素晴らしい〜！大変ですよね！×1869610221 → ○1869610202 かな？

こんばんは、ひつじです。

〉成雄さん、ひつじさん、ふおはようございます。　まりあです。

〉〉〉ちなみに、ISBN はやっぱり間違っているんです。微妙ですが．．．
〉〉〉旧システム：041850006
〉〉〉新システム：0041850006

〉　　こういうISBNは存在し得ないですね、前９桁が
〉あっていれば末尾は9だから。　

〉〉〉正解　　　：0416850006

〉　　これは存在しうる。
〉　　　　↓

〉　　ということを判定してくれるソフトってありますか？
〉私は表計算で+A1*10,+A2*9,+A3*8,...+A9*2 と式を
〉入れた下に=SUM, MOD であまりを出してチェックするのですが
〉（Amazon、紀伊国屋どこを回っても本が探せず、ISBNが違うのか？
〉と疑わしいとき試してみる）、１セルに１文字ずつ入力するのが
〉面倒臭い！　１０桁を一気に入力したら正誤を判定してくれる
〉ものがあってもいいと思うのですが．．　　　　

先頭９桁から１０桁目を計算なんて、誰もやらないと思っていたんですが、やっぱり
やっている方もいらっしゃったんですね．．．まりあさんは特別？？

実は私もちょっと前までは、「A列に1文字ずつ入力して計算」と言うのをやっていました！
で、今回は約5000冊くらい一気にチェックしようと思ったので、エクセルのヘルプ見ながら
長〜い計算式を入力してチェックしました。
A1 に文字列(!)として ISBN が入っている場合に
B1 で =MOD(VALUE(MID(A1,1,1))*10+VALUE(MID(A1,2,1))*9+...+VALUE(MID(A1,9,1))*2,11)
なんて計算をしてその後 C1 で「10桁目になるべき１文字」を計算(?)。それを
A1 の 10 桁目と比較して不一致のものには "NG" を表示すると言う感じで "NG" 部分を
拾ったのがこのツリーの最初の不正ISBN一覧です。
＃チェックするだけならもうちょっと短く書けるはずなのですが．．．

既に、くまくまさんから便利なページのご紹介があったので自力で計算する機会もないかと
思いますが何かのご参考に．．．ならないか(^^;
ではでは。