请老师帮用VBA忙编写一个标签制作的表

dbg111222

我想根据收入表中的数据对应到标签制作表中，通过标签制作表中P4输入数字提取与收入表中行号所对应的数据，由于我设定好了行高和列宽，不想让别人改动，除了E5、P4元格和D3:K4合并单元格可以通过下拉菜单选择输入，P4单元格可以手动输入，表中别的地方别人都不能动。请老师帮忙给写个代码，谢谢！

饮冰e士

如果不需要批量打印，这不是函数擅长的事情么？
表格中有”序号“，应该可以代替行号来用的吧？

dbg111222

饮冰e士 发表于 2025-3-28 20:19
如果不需要批量打印，这不是函数擅长的事情么？
表格中有”序号“，应该可以代替行号来用的吧？

我要对应行号，而不是序号

taller

taller

1. Sub ProtectLabelTemplate()
   
2.     Const TAB_CELL = "I6 D6 D7 D9 D10 D8 I8" ' 标签单元格，可自行添加
   
3.     Const DATA_CELL = "B C D E I K L" ' 收入 表中数据列
   
4.     Dim iVal: iVal = Sheets("标签打印").[P4]
   
5.     If Len(iVal) = 0 Or Not IsNumeric(iVal) Then
   
6.         MsgBox "请输入行号"
   
7.         Exit Sub
   
8.     Else
   
9.         If Application.CountA(Sheets("收入").Rows(iVal)) = 0 Or iVal = 1 Then
   
10.             MsgBox "[输入]表中第" & iVal & "行没有数据"
    
11.             Exit Sub
    
12.         End If
    
13.     End If
    
14.     Dim trr: trr = Split(TAB_CELL)
    
15.     Dim drr: drr = Split(DATA_CELL)
    
16.     Dim i As Long
    
17.     For i = LBound(trr) To UBound(trr)
    
18.         Sheets("标签打印").Range(trr(i)) = Sheets("收入").Cells(iVal, drr(i))
    
19.     Next
    
20.     MsgBox "标签创建完成"
    
21. End Sub
    

复制代码