JANコードのチェックデジットを調査

いつもお世話になっております。

エクセルファイルに13ケタ・8ケタのJANコードを羅列した行があるのですが、手作業で入力した為、間違っている可能性があります。

そこで、チェックデジットが合っているかを調べる数式を作成したいと思うのですが、そのようなことは可能でしょうか？
また、8ケタと13ケタを1度にチェックできるでしょうか？
ご存知の方がいらっしゃったら、宜しくご教授お願い致します。

No.2 ベストアンサー 回答者： mld_sakura 回答日時： 2003/12/10 15:39

チェックデジットを数式に変えて判定するということですよね？

簡単なことだと思いますが。

８桁と１３桁の違いは対象のレングス（文字列長）を判定して式を分岐させればいいですし、特に難易度は高いとは思えません。

とりあえずVBの例がここにあります。
http://www.ruriplus.com/msaccess/tch/tch_049.html
ExcelのVBAにするのにはそんなに違いはないでしょう。

参考URL：http://www.ruriplus.com/msaccess/tch/tch_049.html

この回答へのお礼

ありがとうございます。

何分VBは初心者で、エクセルのVBA以外の知識は殆どないもので・・・。

いただいたURLの情報は、関数を作成するというものですね。自分で試してみたことはないのですが、頼ってばかりですと成長できないので、こちらを参考に何とか組み立てていきます。

お礼日時：2003/12/10 16:49

No.3 回答者： imogasi 回答日時： 2003/12/10 21:25

＞数式で一度に行うということは可能でしょうか

エクセルの通常の関数式では出来ません。複雑になりすぎると言うのが正しいでしょうが。
＃１のご回答のようなことを、関数式でやろうとすると
関数のネストが深くなり過ぎて、手におえないでしょう。
そこでユーザー定義関数を作るのが、この場合適当でしょう。
＞VBは初心者で、エクセルのVBA以外の知識は殆どないもので・
ＶＢＡだって、そう甘いものやおまへんで。
ＶＢＡのユーザ定義関数を作るのポイントは、シートのセルには、＝ＪＡＮ８（Ａ１）のように,引数にセル番地を入れ、ＶＢＥの標準モジュール（必ず標準モジュール）には
Function jan8(a)
(aをセルに入っている数や文字列として扱う、すなわち演算する）
End Function
とします。ＪＡＮ８としたのは、ＪＡＮ１３と関数を分けられれば分けた方が、２モジュールになるが、考えやすいかと思いました。各行に混合しておれば、1つの関数にして、＃２のご回答のように、Ｃａｓｅ分で分けざるを得ません。

この回答へのお礼

了解です。
この辺まで複雑な計算になると、ユーザー定義関数の領域ということですね。

mld_sakuraさんに教えていただいたURLを参考にがんばってみます。

ご親切にありがとうございました。

お礼日時：2003/12/11 08:37

No.1 回答者： S-Fuji 回答日時： 2003/12/10 15:30

データ＝４９１２３４５？の場合（？＝cd）

５＋３＋１＋４＝１３（偶数桁を足す）
１３ｘ３＝３９　　　　（それに３を書ける）
４＋２＋９＝１５　　　（奇数桁を足す）
３９＋１５＝５４　　　（両方を足す）
５４の下一桁を取り出し
１０－４＝６　　　　　（１０から下一桁を引く）
チェックディジットは６　　（ゆえに）
４９１２３４５６　がコード
１３桁の場合も同じ

この回答への補足

早速ありがとうございます。

こちらの算出方法を、数式で一度に行うということは可能でしょうか？

補足日時：2003/12/10 16:51

この回答へのお礼

補足の質問に対してimogasiさんより回答がありました。
数式では、難しいみたいですね。
何とかユーザー定義関数を組み立てていきます。

ありがとうございました。

お礼日時：2003/12/11 08:40