EXCEL VBA 連続のバーコード印刷
EXCEL2010にて同シートにて下記コードでバーコードを１シート４件
表示してプリントアウトの繰り返しを行おうと思いますが
ステップイン[F8]で１行づつ送ると思うようにバーコードが
印字されますがボタンクリックの自動処理を行いますと
バーコード対象の品番は処理どおり印字されますが
バーコードは１枚目と同様の項目で印字されてしまいます。
調べる限りバーコードVisible = True,Falseで表示されるなどありましたので
組み込みましたが変わりませんでした。
どのように変更すればよいのかご教示の程よろしくお願いいたします。
Private Sub CommandButton2_Click()
Dim 最終行 As Long
With ActiveSheet
Call クリヤ処理
入力 = 21
最終行 = .Cells(Rows.Count, 34).End(xlUp).Row
次:
For 入力 = 入力 To 最終行
If .Cells(7, 1).Value = "" Then '左上
.Cells(7, 1).Value = .Cells(入力, 34).Value
'バーコード用品番入力セル
.Cells(3, 34).Value = Left(.Cells(入力, 34).Value, 6) & Mid(.Cells(入力, 34).Value, 8, 3)
ActiveSheet.BarCodeCtrl5.LinkedCell = "AH" & 3
ActiveSheet.BarCodeCtrl5.Visible = True
ElseIf .Cells(7, 17).Value = "" Then '右上
.Cells(7, 17).Value = .Cells(入力, 34).Value
'バーコード用品番入力セル
.Cells(3, 35).Value = Left(.Cells(入力, 34).Value, 6) & Mid(.Cells(入力, 34).Value, 8, 3)
.BarCodeCtrl2.LinkedCell = "AI" & 3
.BarCodeCtrl2.Visible = True
ElseIf .Cells(44, 1).Value = "" Then '左下
.Cells(44, 1).Value = .Cells(入力, 34).Value
'バーコード用品番入力セル
.Cells(5, 34).Value = Left(.Cells(入力, 34).Value, 6) & Mid(.Cells(入力, 34).Value, 8, 3)
.BarCodeCtrl3.LinkedCell = "AH" & 5
.BarCodeCtrl3.Visible = True
ElseIf .Cells(44, 17).Value = "" Then '右下
.Cells(44, 17).Value = .Cells(入力, 34).Value
'バーコード用品番入力セル
.Cells(5, 35).Value = Left(.Cells(入力, 34).Value, 6) & Mid(.Cells(入力, 34).Value, 8, 3)
.BarCodeCtrl4.LinkedCell = "AI" & 5
.BarCodeCtrl4.Visible = True
'プリントアウト
ActiveWindow.SelectedSheets.PrintOut Copies:=1
.BarCodeCtrl5.Visible = False
.BarCodeCtrl2.Visible = False
.BarCodeCtrl3.Visible = False
.BarCodeCtrl4.Visible = False
Call クリヤ処理
入力 = 入力 + 1
GoTo 次
End If
Next 入力
End With
End Sub
Private Sub クリヤ処理()
With ActiveSheet
'左上
.Cells(7, 1).Value = ""
.Cells(3, 34).Value = "" 'バーコード品番
'右上
.Cells(7, 17).Value = ""
.Cells(3, 35).Value = "" 'バーコード品番
'左下
.Cells(44, 1).Value = ""
.Cells(5, 34).Value = "" 'バーコード品番
'右下
.Cells(44, 17).Value = ""
.Cells(5, 35).Value = "" 'バーコード品番
End With
End Sub
お礼
ありがとうございました。 これからも使うコードですので大変感謝しています。 ちなみに手作業ではやっていませんでした。 また質問した際にはよろしくお願いします。