求助大神帮忙写代码，小白在此多谢！

1161266082

求教各位高手，如何使要打印的标签表能自动引用汇总表里面的数据，实现自动、批量打印，实际数据有10000多条

序号	目的	说明
1	根据资产清单，用vba快速生成固定资产标签。	根据资产明细生成对应打印表格中项目，可设置从多少行开始打印至第几行，共打印几页。
2	最终样版，请见“打印表格”。	直接打印即可，不用调整表格间距。

liulang0808

楼主这样的需求，论坛里有不少案例，搜索下吧

719404338

这个不难，论坛里的代码稍作修改即可。

1161266082

719404338 发表于 2018-11-9 22:16
这个不难，论坛里的代码稍作修改即可。

关键是我不知道怎么用这些代码，我看有朋友上传后就有老师帮着修改了。能否帮忙修改一下，谢谢了。

1161266082

liulang0808 发表于 2018-11-9 21:42
楼主这样的需求，论坛里有不少案例，搜索下吧

关键是我不知道怎么用这些代码，我看有朋友上传后就有老师帮着修改了。能否帮忙修改一下，谢谢了。

719404338

1161266082 发表于 2018-11-10 13:15
关键是我不知道怎么用这些代码，我看有朋友上传后就有老师帮着修改了。能否帮忙修改一下，谢谢了。

你把你的资产明细表发上来看看。

1161266082

719404338 发表于 2018-11-10 13:31
你把你的资产明细表发上来看看。

资产明细表主体有呀，你是说明细表内只列了表头没写内容吗？我填了细项，请帮忙谢谢啦！

liulang0808

1. Sub 按钮4_Click()
   
2.     Application.ScreenUpdating = False
   
3.     arr = Sheets("资产明细").[a1].Resize(Sheets("资产明细").UsedRange.Rows.Count + 5, Sheets("资产明细").UsedRange.Columns.Count)
   
4.     r = 2
   
5.     For j = 4 To UBound(arr) Step 3
   
6.         For i = 0 To 2
   
7.             If Len(arr(j + i, 3)) > 0 Then
   
8.                 Cells(r + 1, i * 5 + 2) = arr(j + i, 3)
   
9.                 Cells(r + 3, i * 5 + 2) = arr(j + i, 5)
   
10.                 If arr(j + i, 17) <> "" Then
    
11.                     Cells(r + 2, i * 5 + 2) = arr(j + i, 17)
    
12.                 End If
    
13.             Else
    
14.                 GoTo l1
    
15.             End If
    
16.         Next i
    
17.         r = r + 6
    
18.     Next j
    
19. l1:
    
20.     Application.ScreenUpdating = True
    
21. End Sub
    

复制代码

liulang0808

楼主的附件，还是没有看大明白
就目前的信息的了解情况，处理见附件内容

鄂龙蒙

1. Sub 填写标签()
   
2.     Dim arr, i%, m, n
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     清空
   
5.     For i = 4 To UBound(arr)
   
6.        m = m + 1
   
7.        n = n + 1
   
8.        Cells((Int((n + 2) / 3) - 1) * 6 + 2, (m - 1) * 5 + 2) = "'" & arr(i, 2)
   
9.        Cells((Int((n + 2) / 3) - 1) * 6 + 3, (m - 1) * 5 + 2) = arr(i, 3)
   
10.        Cells((Int((n + 2) / 3) - 1) * 6 + 4, (m - 1) * 5 + 2) = arr(i, 17)
    
11.        Cells((Int((n + 2) / 3) - 1) * 6 + 5, (m - 1) * 5 + 2) = arr(i, 5)
    
12.        Cells((Int((n + 2) / 3) - 1) * 6 + 5, (m - 1) * 5 + 4) = arr(i, 18)
    
13.        If m = 3 Then m = 0
    
14.        If n = 21 Then
    
15.             Range("A1:N41").PrintOut
    
16.             n = 0: 清空
    
17.        End If
    
18.     Next
    
19.     Range("A1:N41").PrintOut
    
20. End Sub
    
21. Sub 清空()
    
22.     For i = 1 To 3
    
23.         For j = 1 To 7
    
24.             Range(Cells((j - 1) * 6 + 2, (i - 1) * 5 + 2), Cells((j - 1) * 6 + 4, (i - 1) * 5 + 4)) = ""
    
25.             Cells((j - 1) * 6 + 5, (i - 1) * 5 + 2) = ""
    
26.             Cells((j - 1) * 6 + 5, (i - 1) * 5 + 4) = ""
    
27.         Next
    
28.     Next
    
29. End Sub

复制代码