伝票の入力関係で一番手間がかかるのが
伝票の入力・・・。
仕入れ先さんに・・
データでのやりとりを
お願いしているんですが・・・
なかなか・・・この手間が少しでも少なくなれば・・
本当にたすかるんですが・・
帳票にバーコードを出力して入力の手間を少しでも削減する為に・・
１．商品台帳の方にセットしてみる
出力するのはＡの列に出力
２．コードを記載してみる・・
VBAのツール→参照設定をしてＭｉｃｒｏＳｏｆｔ Access Barcode Control 1**.*を選ぶ
３．コードを記載する
今回はセルの中にセット
‘コードは以下
‘————————————————————————–
Sub test4() ‘バーコードの生成
Dim i As Long
Dim r As Range ‘レンジの設定
Dim LastRow As Long
With Worksheets(“Sheet1”)
.Columns(1).ColumnWidth = 20
LastRow = .Cells(Rows.Count, 2).End(xlUp).Row
Select Case .Shapes.Count
Case 0
Case Is > 0
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next i
End Select
End With
For i = 3 To LastRow ‘1700
Set r = Worksheets(“Sheet1”).Cells(i, 1)
With Worksheets(“Sheet1″).OLEObjects.Add(classtype:=”BARCODE.BarCodeCtrl”)
.Top = r.Top + 2
.Left = r.Left + 2
.Height = r.Height – 3
.Width = r.Width – 4
With .Object
.Style = 2
.SubStyle = 0
.Value = Worksheets(“Sheet1”).Cells(i, 2).Value
End With
End With
Next i
End Sub
‘————————————————————————–
４．コードを実行してみるとバーコードが出力できる
５．バーコードを消去するコードを書く
‘————————————————————————–
Sub text5() ‘バーコードの消去
Dim i As Long
With Worksheets(“Sheet1”)
For i = .Shapes.Count To 1 Step -1
.Shapes(i).Delete
Next i
.Columns(1).ColumnWidth = 1
End With
End Sub
‘————————————————————————–
６．コードを実行すると消去される
７．今度は既存のコードを変更してみる・・０を入れてみる
‘————————————————————————–
Sub test6() ‘バーコードへのデータを変える
With Worksheets(“Sheet1”)
For i = 1 To .Shapes.Count
.Shapes(i).Select
With Selection.Object
.Style = 2
.Value = “0000000000000”
End With
Next i
End With
End Sub
‘————————————————————————–
７．コードを実行してみると変わっている?
８．拡大すると・・変わっている
‘最後は細かな設定部分を記録しておく
‘**バーコードコントロールプロパティ設定**
‘プロパティについては以下URLのMSDN参照
‘https://msdn.microsoft.com/ja-jp/library/cc427149.aspx
Const BC_Style As Integer = 7
‘スタイル
‘0: UPC-A, 1: UPC-E, 2: JAN-13, 3: JAN-8, 4: Casecode, 5: NW-7,
‘6: Code-39, 7: Code-128, 8: U.S. Postnet, 9: U.S. Postal FIM, 10: 郵便物の表示用途（日本） 11:QRコードが新たにセットされた
Const BC_Substyle As Integer = 0
‘サブスタイル (下記URL参照)
‘https://msdn.microsoft.com/ja-jp/library/cc427156.aspx
Const BC_Validation As Integer = 1
‘データの確認
‘0: 確認無し, 1: 無効なら計算を補正, 2: 無効なら非表示
‘Code39/NW-7の場合、「1」でスタート/ストップ文字(*)を自動的に追加
Const BC_LineWeight As Integer = 3
‘線の太さ
‘0: 極細線, 1:細線, 2:中細線, 3:標準, 4:中太線, 5: 太線, 6:極太線, 7:超極太線
Const BC_Direction As Integer = 0
‘バーコードの表示方向
‘0: 0度, 1: 90度, 2: 180度, 3: 270度 [0]が標準
Const BC_ShowData As Integer = 1
‘データの表示
‘0: 表示無し, 1:表示有り
Const BC_ForeColor As Long = rgbBlack
‘前景色の指定
Const BC_BackColor As Long = rgbWhite
‘背景色の指定
‘rgbBlackなどの色定数は以下URLのMSDN参照
‘https://msdn.microsoft.com/ja-jp/VBA/Excel-VBA/articles/xlrgbcolor-enumeration-excel