

No.2ベストアンサー
- 回答日時:
チェックデジットを数式に変えて判定するということですよね?
簡単なことだと思いますが。
8桁と13桁の違いは対象のレングス(文字列長)を判定して式を分岐させればいいですし、特に難易度は高いとは思えません。
とりあえず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の情報は、関数を作成するというものですね。自分で試してみたことはないのですが、頼ってばかりですと成長できないので、こちらを参考に何とか組み立てていきます。
No.3
- 回答日時:
>数式で一度に行うということは可能でしょうか
エクセルの通常の関数式では出来ません。複雑になりすぎると言うのが正しいでしょうが。
#1のご回答のようなことを、関数式でやろうとすると
関数のネストが深くなり過ぎて、手におえないでしょう。
そこでユーザー定義関数を作るのが、この場合適当でしょう。
>VBは初心者で、エクセルのVBA以外の知識は殆どないもので・
VBAだって、そう甘いものやおまへんで。
VBAのユーザ定義関数を作るのポイントは、シートのセルには、=JAN8(A1)のように,引数にセル番地を入れ、VBEの標準モジュール(必ず標準モジュール)には
Function jan8(a)
(aをセルに入っている数や文字列として扱う、すなわち演算する)
End Function
とします。JAN8としたのは、JAN13と関数を分けられれば分けた方が、2モジュールになるが、考えやすいかと思いました。各行に混合しておれば、1つの関数にして、#2のご回答のように、Case分で分けざるを得ません。
了解です。
この辺まで複雑な計算になると、ユーザー定義関数の領域ということですね。
mld_sakuraさんに教えていただいたURLを参考にがんばってみます。
ご親切にありがとうございました。
No.1
- 回答日時:
データ=4912345?の場合(?=cd)
5+3+1+4=13(偶数桁を足す)
13x3=39 (それに3を書ける)
4+2+9=15 (奇数桁を足す)
39+15=54 (両方を足す)
54の下一桁を取り出し
10-4=6 (10から下一桁を引く)
チェックディジットは6 (ゆえに)
49123456 がコード
13桁の場合も同じ
補足の質問に対してimogasiさんより回答がありました。
数式では、難しいみたいですね。
何とかユーザー定義関数を組み立てていきます。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
差し込み印刷で文字化け!
-
エクセルのセル内でタブキーの...
-
エクセルにアクセスカウンター...
-
エクセルのセルが突然選択でき...
-
エクセル 文字の先頭4文字だ...
-
エクセルの神よ、ご回答を! エ...
-
エクセルで3Dの円錐形を作成...
-
エクセルのグラフでデータテー...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
Excelの入力規則で2列表示したい
-
excelでSUBTOTAL関数を設定した...
-
お肉の下のシートを煮込んでし...
-
複数の文字列のいずれかが含ま...
-
エクセルで既に入力してある文...
-
エクセルの複数のセルを一括で...
-
セルを結合したA4とA5の条件付...
-
入力したところまでを自動的に...
-
Excel マクロ モジュラス43 vba
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのセル内でタブキーの...
-
エクセルのグラフでデータテー...
-
エクセルで3Dの円錐形を作成...
-
エクセル 文字の先頭4文字だ...
-
エクセルオンラインのみ勝手に...
-
差し込み印刷で文字化け!
-
エクセルの神よ、ご回答を! エ...
-
エクセルのセルが突然選択でき...
-
エクセルで全波整流回路の波形
-
VBA初心者です。電話番号の数字...
-
日報のデータを月報にデータを...
-
ウェブから貼ったドロップダウ...
-
エクセルにて指定文字数以上の...
-
エクセルマクロでセルの文字サ...
-
文字をアルファベット順に3つ...
-
エクセルで列の取得
-
エクセルで未入力セルを指定す...
-
エクセルのトレンドグラフの式
-
エクセルの関数について
-
EXCEL (VBA)表示形式の変更
おすすめ情報