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

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

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

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

〉　　　書店店頭や図書館などで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について解説してあるページを紹介しました

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

ではでは