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

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

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

　　　書店店頭や図書館などで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文字ずつ入力して計算」とかやるのって素人丸出しで
恥ずかしいじゃないですか。上記の計算法で出来る、と知ると
大手を振って歩ける気分？？になれるという利益がありましたよ。
ありがとう。