No.1ベストアンサー
- 回答日時:
ユーザ定義関数例です。
標準モジュールにサンプルコードを貼り付けてお試しください。
仮にA1に文字(半角)入力とすると、=mdl43(A1)
Function mdl43(rng)
Dim lst, i As Long, j As Long, tot As Long
lst = Split("0,1,2,3,4,5,6,7,8,9," & _
"A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," & _
"-,., ,$,/,+,%", ",")
For i = 1 To Len(rng)
For j = 0 To UBound(lst)
If Mid(rng, i, 1) = lst(j) Then tot = tot + j
Next
Next
mdl43 = rng & lst(tot Mod 43)
End Function
mu2011様
早速のご回答ありがとうございます。
教えて頂いたユーザー定義関数でcode39のチェックデジット付与されたバーコード作成することができました。
mu2011様のお陰で正確かつ迅速な業務が出来るようになりました。
本当にありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
- Excel(エクセル) セルを数式で指定する方法 5 2022/04/13 16:55
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
チェックデジット計算できる関数計算機ありませんか?
その他(プログラミング・Web制作)
-
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
VBA Shapes コピーと名前
Excel(エクセル)
-
-
4
「タイプ初期化子が例外をスローしました」エラー何?
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセルで同じ大きさ、同じ倍率、同じ余白なのにプレビューが違います。なぜ?
Excel(エクセル)
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
Excelでセルに入力されたカラー...
-
Excelで同じセルに箇条書きをし...
-
エクセルで既に入力してある文...
-
Excelでロト6の数字を決めたい
-
自分のEXCELに株価を自動的に取...
-
入力したところまでを自動的に...
-
【Excel】セル内の時間帯が特定...
-
バーコードが読み取れない原因...
-
エクセルで複数の条件で掛け算...
-
お世話になります。 Excel VBA...
-
エクセルの数式がかぶって、選...
-
エクセルで時間の判定をしてい...
-
excel 関数にて文字を0として認...
-
Excel:文字と数字の組合せ、次...
-
ExcelでA1に「年」B2に「干支」...
-
空白でないセルの値を返す方法...
-
値を入力後、自動的にアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
A1セルに入力したら、入力時間...
-
Excelで同じセルに箇条書きをし...
-
参照先セルに値が入っていない...
-
IF関数で0より大きい数値が入力...
-
Excel:文字と数字の組合せ、次...
-
エクセルで既に入力してある文...
-
値を入力後、自動的にアクティ...
-
エクセルの数式がかぶって、選...
-
エクセルで時間の判定をしてい...
-
空白でないセルの値を返す方法...
-
Excelでセルに入力されたカラー...
-
yyyy/mm/ddからyyyy/mmへの変換
-
入力したところまでを自動的に...
-
excel 関数にて文字を0として認...
-
バーコードが読み取れない原因...
-
エクセルで複数の条件で掛け算...
-
ExcelVBAでセルを編集状態にす...
-
エクセルで、特定のセルの内容...
-
【vba】指定範囲の中に任意の文...
-
エクセルで10分ごとの時刻の...
おすすめ情報