【デ ー タ名】 CreateBarcode.xls MS-Excelバーコード作成マクロ(ソース付)

==============================================================================

【ソ フ ト名】 CreateBarcode Ver1.3(NW7・CODE39・CODE128・JAN標準)

【登 録 名】 CreateBarcode.xls

【検索キー 】 1:EXCEL 2:マクロ

【著作権者 】 偉鷹 仁 ([email protected])

【対応 環境】 Microsoft Excel 2000 (Windows XP)

【動作 確認】 ・PC/AT互換機(IBM NetVista,Intel Pentium4 1.9GHz,640MB)

WinXP Pro + Excel2000(9.0.3821 SR-1)

【開発 言語】 VBA:Retail 6.0.8714

【ソフト種別】 フリーソフトウェア

【サポート 】 電子メールでお願いします

【転載 条件】 可能であれば私宛にメールにて報告してください

【出版 関連】 出版物への掲載・メディアへの添付は必ずご連絡願います

==============================================================================

【内容紹介】

１．概要

　選択したバーコードに対応した文字列で構成するセル範囲の内容を一括で

　NW7、CODE39、CODE128、JAN のいずれかにバーコード化(図)するマクロです。

　バーコード作成モジュールと条件設定画面は切り分けていますので、作成

　モジュールを他のマクロから呼び出して使用することも可能です。

　VBAのソースには保護をかけていませんのでご自由に改変してください。

２．使用方法

　CreateBarcode.xls をマクロを有効にして開きます｡

　バーコード模様のボタンがあるツールバーが現れなければ[表示]→[ツールバ

　ー]で[バーコード]にチェックを入れてください。

　任意のシートの任意のセルに､作成したい文字(NW7とCODE39は英数字[0～9､

　A～Z]及び[-]･[/]、CODE128は下記参照、JANは数字のみ)を入力し、バーコー

　ド化したいセル範囲を選択します｡

　バーコード模様の「バーコード作成」ボタンをクリックすると、「バーコー

　ド作成」ダイアログが開きますので、種類等を選択してから「実行」ボタンを

　クリックすると、選択した範囲にセルと同じ大きさのバーコード画像が自動作

　成されます｡

　CODE128では以下のコードに対応します。モードがABCの三種類ありますので、

　開始時のコードを「開始」欄で選択してください。

　1文字であらわせないコードは「括文字」で指定した文字にて両側をはさむこ

　とであらわします。

　例えば「 0099abc」は「開始」を「A」にして

　↑はTAB

　|HT||CODEC||00||99||CODEB|abc

　などと指定します。

CODE128 コード表

Ａ Ｂ Ｃ

-------------------

SP SP 00

! ! 01

" " 02

# # 03

$ $ 04

% % 05

& & 06

' ' 07

( ( 08

) ) 09

* * 10

+ + 11

, , 12

- - 13

. . 14

/ / 15

0 0 16

1 1 17

2 2 18

3 3 19

4 4 20

5 5 21

6 6 22

7 7 23

8 8 24

9 9 25

: : 26

; ; 27

< < 28

= = 29

> > 30

? ? 31

@ @ 32

A A 33

B B 34

C C 35

D D 36

E E 37

F F 38

G G 39

H H 40

I I 41

J J 42

K K 43

L L 44

M M 45

N N 46

O O 47

P P 48

Q Q 49

R R 50

S S 51

T T 52

U U 53

V V 54

W W 55

X X 56

Y Y 57

Z Z 58

[ [ 59

\ \ 60

] ] 61

^ ^ 62

_ _ 63

NUL ' 64

SOH a 65

STX b 66

ETX c 67

EOT d 68

ENO e 69

ACK f 70

BEL g 71

BS h 72

HT i 73

LF j 74

VT k 75

FF l 76

CR m 77

SO n 78

SI o 79

DLE p 80

DC1 q 81

DC2 r 82

DC3 s 83

DC4 t 84

NAK u 85

SYN v 86

ETB w 87

CAN x 88

EM y 89

SUB z 90

ESC { 91

FS | 92

GS } 93

RS ~ 94

US DEL 95

FNC3 FNC3 96

FNC2 FNC2 97

SHIFT SHIFT 98

CODEC CODEC 99

CODEB FNC4 CODEB

FNC4 CODEA CODEA

FNC1 FNC1 FNC1

制御文字キーボード割り当て表

　（リーダーによって多少なり変化する場合がありますので、

　　詳しくはバーコードリーダーの説明書を参照してください）

コントロール キー入力割り当て

-------------+-------------------

SOH UP（移動キー↑）

STX DOWN（移動キー↓）

ETX LEFT（移動キー←）

EOT RIGHT（移動キー→）

ENQ PageUp

ACK PageDown

BEL （割り当て無し）

BS BackSpace

HT TAB

LF （割り当て無し）

VT Home

FF End

CR ENTER

SO （割り当て無し）

SI Delete

DC1 F1

DC2 F2

DC3 F3

DC4 F4

NAK F5

SYN F6

ETB F7

CAN F8

EM F9

SUM F10

ESC ESC

FS F11

GS F12

RS Alt

US Ctrl

　制御コードの意味

　-----------------------

NUL ヌル(空文字)

SOH ヘディング開始

STX テキスト開始

ETX テキスト終了

EOT 伝送終了

ENQ 問い合わせ

ACK 肯定応答

BEL ベル

BS バックスペース

HT 水平タブ

LF/NL 復帰/改行

VT 垂直タブ

FF 改ページ

CR 復帰

SO シフトアウト

SI シフトイン

DLE データリンクでの拡張

DC1 制御装置1

DC2 制御装置2

DC3 制御装置3

DC4 制御装置4

NAC 否定応答

SYN 同期文字

ETB 伝送ブロック終了

CAN 取消

EM 媒体終端

SUB

ESC (制御コード)拡張

FS ファイルセパレータ

GS グループセパレータ

RS レコードセパレータ

US ユニットセパレータ

SP (半角)スペース

DEL 削除

　なお、バーコードスキャナーが対応していれば、CODE39でもフルアスキー

　を入力することは、CODE39で使用される

　「0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%」を用いて可能です。

フルアスキーモード時のCODE39では『$/+%』の4文字は制御キャラクタで、

　この4文字と他の文字を組み合わせて以下の様にフルアスキーを表わす事が

　出来ます。

CODE39フルアスキー変換表

ASCII CODE39 ASCII CODE39 ASCII CODE39 ASCII CODE39

---------------- ---------------- ---------------- ----------------

NUL %U SP SP @ %V ' %W

SOH $A ! /A A A a +A

STX $B " /B B B b +B

ETX $C # /C C C c +C

EOT $D $ /D D D d +D

ENQ $E % /E E E e +E

ACK $F & /F F F f +F

BEL $G ' /G G G g +G

BS $H ( /H H H h +H

HT $I ) /I I I i +I

LF $J * /J J J j +J

VT $K + /K K K k +K

FF $L , /L L L l +L

CR $M - - M M m +M

SO $N . . N N n +N

SI $O / /O O O o +O

DLE $P 0 0 P P p +P

DC1 $Q 1 1 Q Q q +Q

DC2 $R 2 2 R R r +R

DC3 $S 3 3 S S s +S

DC4 $T 4 4 T T t +T

NAK $U 5 5 U U u +U

SYN $V 6 6 V V v +V

ETB $W 7 7 W W w +W

CAN $X 8 8 X X x +X

EM $Y 9 9 Y Y y +Y

SUB $Z : /Z Z Z z +Z

ESC %A ; %F [ %K { %P

FS %B < %G \ %L | %Q

GS %C = %H ] %M } %R

RS %D > %I ^ %N ~ %S

US %E ? %J _ %O DEL %T

※「SP」は半角スペースです。

※ 特殊キャラクタは「<キャラクタ>」と表記します。

※ %X, %Y, %Z も <DEL> を表わします。

Ex.1

CODE-39で「Delphi」を表わす場合「D+E+L+P+H+I」と入力します。

３．その他・制限事項など

　現行はNW7、Code39、Code128、JAN標準しか対応していませんが、マクロの

　ソースには保護をかけていませんので、必要であればご自分で改変すること

　が出来ます。

　改変した場合のサポートはご容赦ください。

　本ソフトはフリーウェアですが、著作権は放棄していません。

　インターネット上で多数のヒントを公開してくださっている皆様に感謝を捧

　げます。

　また、あまりに色々さまよい過ぎてインターネット上で参考にしたコードの

　初出がわかりませんので、公開されているページに気付かれた場合はご一報

　下されば、このコード配布に賛成であればリンクをさせていただくなり、

　反対であれば同等機能別コードへの書き換えなりをさせていただきますので

　よろしくお願いいたします。　m(__)m

=====================================================================

【変更履歴】

　2006.03.08 Ver1.3公開

　CODE39のチェックディジット（モジュラス43）計算にスタート・ストップコ

　ードが入っている間違いを訂正

　2006.03.03

　縦方向が106ピクセルを超える場合にエラーになるのを修正

　2005.04.04

　読み取り率向上のためCODE39のバー比率(細：太)を1:1から1:2.5に変更

　2004.07.26 Ver1.2公開

　JAN標準へ対応

　2004.07.15 Ver1.1公開

　CODE128へ対応

　2004.06.28 Ver1.0公開

=====================================================================

偉鷹 仁（いたか じん） e-mail:[email protected]

無限電網(mugen-web.com)

URL:http://mugen-web.com

＜無限大陸(TRPG)・無限画廊(Comic)・無限書房(Novel)＞

=====================================================================