|
▼tokiya さん:
勘違いあれば指摘願います。
目的が貼り札の印刷ということのようですので、各データ毎に貼り札シートにセットして
印刷(コードではプレビューにしてありますが)します。
Sub Sample()
Dim r As Range
Dim c As Range
Dim ctnNo As String
Dim comNo As String
Dim color As String
Dim qty As Long
With Sheets("色別一覧表")
On Error Resume Next
Set r = .Range("B3:M35").SpecialCells(xlCellTypeConstants)
On Error GoTo 0
End With
If r Is Nothing Then
MsgBox "処理すべきデータがありません"
Exit Sub
End If
For Each c In r
comNo = c.EntireRow.Cells(1).Value
color = c.EntireColumn.Cells(1).Value
qty = Val(c.Value)
ctnNo = c.EntireRow.Range("O1").Value
With Sheets("貼り札")
.Range("A1").Value = comNo
.Range("A4").Value = ctnNo
.Range("C1").Value = color
.Range("C4").Value = qty
.PrintPreview '本番では .PrintOut
End With
Next
End Sub
|
|