Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9057 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【29606】CODE128 ぴろぴろ 05/10/9(日) 10:36 質問[未読]
【29607】Re:CODE128のバーコード変換 かみちゃん 05/10/9(日) 10:43 回答[未読]
【29609】Re:CODE128のバーコード変換 ぴろぴろ 05/10/9(日) 11:01 質問[未読]
【29611】Re:CODE128のバーコード変換 かみちゃん 05/10/9(日) 11:40 回答[未読]
【29612】Re:CODE128のバーコード変換 ぴろぴろ 05/10/9(日) 11:54 お礼[未読]
【29608】Re:CODE128 ichinose 05/10/9(日) 10:53 発言[未読]
【29610】Re:CODE128 ぴろぴろ 05/10/9(日) 11:07 お礼[未読]
【29606】CODE128
質問  ぴろぴろ  - 05/10/9(日) 10:36 -
引用なし
パスワード
   VBA初心者です。
数々のバーコード変換のフリーソフトがありますが、CODE128に変換するフリーソフト知りませんか？
A1セルの値をA2セルにCODE128で表示するようなもので結構なんですが。
なにか良い案があったり、ご存知の方がいましたらお願い致します。
【29607】Re:CODE128のバーコード変換
回答  かみちゃん E-MAIL  - 05/10/9(日) 10:43 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>数々のバーコード変換のフリーソフトがありますが、CODE128に変換するフリーソフト知りませんか？
>A1セルの値をA2セルにCODE128で表示するようなもので結構なんですが。

「CODE128 Excel」で検索したら、次のようなものが使えるのではないでしょうか？
http://www.vector.co.jp/soft/winnt/writing/se333820.html

>なにか良い案があったり、ご存知の方がいましたらお願い致します。

コードも公開されていますので、ご希望のものには修正できるかと思います。
【29608】Re:CODE128
発言  ichinose  - 05/10/9(日) 10:53 -
引用なし
パスワード
   ▼ぴろぴろ さん：
おはようございます。

>VBA初心者です。
>数々のバーコード変換のフリーソフトがありますが、CODE128に変換するフリーソフト知りませんか？
>A1セルの値をA2セルにCODE128で表示するようなもので結構なんですが。
>なにか良い案があったり、ご存知の方がいましたらお願い致します。

私も以前Janコードは作成した経験がある程度で
それぞれバーコードの知識はありませんが、
アクセスがインストールされていてExcel2000以上なら、
バーコードコントロールが使えませんか？

コマンドバー「コントロールツールボックス」の
コントロールの選択から探してみて下さい。
（Microsoft BarCode Control9.0）
又は、

'======================
Sub Macro1()
　　ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", Link:=False _
　　　　, DisplayAsIcon:=False, Left:=285.75, Top:=273.75, Width:=130.5, _
　　　　Height:=42).Select
　　
End Sub

上記のコードでバーコードが表示されるようなら、
使用可能かと思います（マクロの記録より）。
【29609】Re:CODE128のバーコード変換
質問  ぴろぴろ  - 05/10/9(日) 11:01 -
引用なし
パスワード
   ▼かみちゃん さん：

早々の回答ありがとうございます。

>「CODE128 Excel」で検索したら、次のようなものが使えるのではないでしょうか？
>http://www.vector.co.jp/soft/winnt/writing/se333820.html
>
>>なにか良い案があったり、ご存知の方がいましたらお願い致します。
>
>コードも公開されていますので、ご希望のものには修正できるかと思います。

上記フリーソフトはインストールしてみたのですが、なんせVBA初心者なもので簡単なコードならわかるのですが・・・。
ビットマップイメージに変換すのではなくて、その部分をセルに置き換えれば良いのですよね？
【29610】Re:CODE128
お礼  ぴろぴろ  - 05/10/9(日) 11:07 -
引用なし
パスワード
   ▼ichinose さん：
早々の返信ありがとうございます。

そちらも参考にしながらやってみます。
【29611】Re:CODE128のバーコード変換
回答  かみちゃん E-MAIL  - 05/10/9(日) 11:40 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>ビットマップイメージに変換すのではなくて、その部分をセルに置き換えれば良いのですよね？

バーコードは、ビットマップイメージ等画像データでないといけないのでは？
「その部分をセルに置き換える」という意味がよくわかりません。
ちなみに、バーコードのコードが表示されているセルの隣のセルに表示するならば

CreateBarcodeモジュール内の
Public Function PrintBar 〜 の中の

　　' コピー＆ペースト
　　If CopyDIBToClipBoard(myData) Then
　　　　Selection.Offset(, 1).Select '★
　　　　ActiveSheet.Paste　　　　　　　　　 'クリップボードから貼り付け

★の行を追加すると、できるようです。（検証済み）
【29612】Re:CODE128のバーコード変換
お礼  ぴろぴろ  - 05/10/9(日) 11:54 -
引用なし
パスワード
   ▼かみちゃん さん

こんにちは。ぴろぴろです。
やはりビットマップイメージしか駄目ですか。

フォントでCODE39やCODE128があります。
CODE39は任意のセルの値の先頭に"*"を付けてSTART、後ろにも"を付けてENDなのはわかりました。
例："HIV3773"→"*HIV3773*"
CODE128の場合何がSTARTで何がENDなのかわかりませんでした。

かみちゃんさんから教えていただいたソフトのコードを読めば解るかなと思いましたけどやはりよく解りませんでした。

ありがとうございました。
もう少しバーコードについて勉強してみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9057 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free