如何打印标签（标签纸是一张A4纸十个标签的）

xledu

再次上传完整的附件，请老师指点！！！

xledu

谢谢指点，受益良多！！！

LangQueS

建议楼主做好录入表，方法请参考：

★利用单元颜色动态判断记录方式★        http://club.excelhome.net/thread-484976-1-1.html

形成“数据库”表后通过高级筛选将符合条件的数据行筛选到“高级筛选表”中，再用4楼的方法制作打印标签。

目前11楼的附件有些费解……

LangQueS

其他参考：

[原创]★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html

xledu

虽然没有全部解决，但提供了有效的思路，值得借鉴！同时非常感谢版主的指点。

yaozong

代码放在Sheet2（数据表）中。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 14 Or Target.Row < 11 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim r&, i&, j%
r = [n65536].End(3).Row
If Cells(r, 14) <> "" And r Mod 10 = 1 Then
  i = r - 9
  With Sheet1
      For j = 2 To 38 Step 9
        .Cells(j, 2) = Cells(i, 1)
        .Cells(j, 7) = Cells(i + 1, 1)
        .Cells(j, 4) = Cells(i, 7)
        .Cells(j, 9) = Cells(i + 1, 7)
        .Cells(j + 1, 2) = Cells(i, 2)
        .Cells(j + 1, 7) = Cells(i + 1, 2)
        .Cells(j + 1, 4) = Cells(i, 4)
        .Cells(j + 1, 9) = Cells(i + 1, 4)
        .Cells(j + 2, 2) = Cells(i, 3)
        .Cells(j + 2, 7) = Cells(i + 1, 3)
        .Cells(j + 3, 2) = Cells(i, 8)
        .Cells(j + 3, 7) = Cells(i + 1, 8)
        .Cells(j + 4, 2) = Cells(i, 6)
        .Cells(j + 4, 7) = Cells(i + 1, 6)
        .Cells(j + 4, 4) = Cells(i, 5)
        .Cells(j + 4, 9) = Cells(i + 1, 5)
        .Cells(j + 5, 2) = Cells(i, 9)
        .Cells(j + 5, 7) = Cells(i + 1, 9)
        .Cells(j + 5, 4) = Cells(i, 10)
        .Cells(j + 5, 9) = Cells(i + 1, 10)
        .Cells(j + 6, 2) = Cells(i, 11)
        .Cells(j + 6, 7) = Cells(i + 1, 11)
          i = i + 2
      Next
  End With
End If
End Sub

yaozong

附件包含打印设置。

[ 本帖最后由 yaozong 于 2011-1-24 07:13 编辑 ]

mfkpie8

xledu 发表于 2011-1-24 09:32
谢谢指点，受益良多！！！

这个原理是什么生成的呀。学习了

mfkpie8

yaozong 发表于 2011-1-23 21:24
代码放在Sheet2（数据表）中。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  ...

如果录入的数量不够想按需打印这关应该如何实现呢老师