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一覧です。
＃チェックするだけならもうちょっと短く書けるはずなのですが．．．

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

ひつじさん、今晩は。　まりあです。

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

　　　書店店頭や図書館などでISBNチェックしてきた本が、なかなか
探せないときとか、「ISBN間違えたかな？」って思うじゃないですか。
もう一度本を見に行くより、チェックした方が早いと思うから、
しこしこやるんですよ。　　

〉で、今回は約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一覧です。
〉＃チェックするだけならもうちょっと短く書けるはずなのですが．．．

　　　なるほど！　あんなにたくさんチェックされたということは、
何か秘密兵器を使っただろうな、と思って、この機会を捉えて
教えて頂こうと思ったのです。昔は自分で一生懸命マクロを手書き
したりしましたが（あぁ、あの頃私も若かった！）、最近スクリプト
が主流になって完全に置いてきぼりをくっています。もっぱら
若い人に教えて貰うことに．．．厚かましくなっているんですね。

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

　　「A列に1文字ずつ入力して計算」とかやるのって素人丸出しで
恥ずかしいじゃないですか。上記の計算法で出来る、と知ると
大手を振って歩ける気分？？になれるという利益がありましたよ。
ありがとう。

〉ひつじさん、今晩は。　まりあです。

ひつじさん、まりあさん、こんばんは。成雄です。

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

〉　　　書店店頭や図書館などでISBNチェックしてきた本が、なかなか
〉探せないときとか、「ISBN間違えたかな？」って思うじゃないですか。

そうそう！

〉もう一度本を見に行くより、チェックした方が早いと思うから、
〉しこしこやるんですよ。　　

え〜っと、この投稿をする前に、
新たに、くまくまさん紹介のページなどの仕組みを
新規書評登録のフォームのどこかにリンクして欲しいと、投稿しました。

私も、私だけではないと思いますが、新規に書評を登録する時に
とても緊張するのは、ISBNの数字とXを入れる時です。
こればっかりは誤入力すると、完全にエラーになり、
この間、データの修復作業で問題になっている二重登録や、誤登録につながります。

私は、数字だけをメモ帳にタイプして、それをコピーして、アマゾンで検索をかけます。
そこで該当本がヒットしたら、ISBNの空欄にそのまま貼り付けるということで、
対応してきました。

〉〉で、今回は約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一覧です。
〉〉＃チェックするだけならもうちょっと短く書けるはずなのですが．．．

〉　　　なるほど！　あんなにたくさんチェックされたということは、
〉何か秘密兵器を使っただろうな、と思って、この機会を捉えて
〉教えて頂こうと思ったのです。昔は自分で一生懸命マクロを手書き
〉したりしましたが（あぁ、あの頃私も若かった！）、最近スクリプト
〉が主流になって完全に置いてきぼりをくっています。もっぱら
〉若い人に教えて貰うことに．．．厚かましくなっているんですね。

えっ？
まりあさん、すご〜い！
自分と比べるというのは、とてもおこがましく恐縮ですが、私はマクロも書けません（今も昔も）…

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

ひつじさん、そんなことないですよ。

こういうのって、発想がポイントなんじゃないですか？
まりあさんも「ぷち鼻高々」みたいですが、知らない者にとっては
『へぇ〜、エクセルでも同じようにできるんだぁ〜』となるし、
考え方を知るというのは、とても有意義だと思います（作れるかどうかは無関係に）。
# そう思って、ISBNについて解説してあるページを紹介しました

「調子に乗って、こんなところで雑談 」なんかじゃなかったと、本当に思っています (^_^)
今回もためになるお話、ありがとうございます。

ではでは