[已解决][求助] 救助根据模版、数据生成固定资产卡片VBA程序 [复制链接]

hhj0201 · 发表于 2015-1-19 19:59

1、根据明细记录数据以模版为范本生成所需要的资产管理卡片；
2、所需的卡片数据根据明细记录的行数决定，涉及的明细行记录需要全部生成卡片；
3、模版格式不能改变，需要用固定的便签纸打印；程序不能写死了行高和列宽的设置。
4、需要设定一个“生产卡片”按钮编制一个VB程序，根据模版、明细数据生成卡片，需要达到如“生成记录”工作表的所示的式样。
5、目前“生产卡片”工作表中为了方便数据数据关系，用的公式，肯定各位用VBA程序代替公式。

模版文件如附件所述，跪求论坛众高手帮忙给予解答，万分感谢！！！！

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2015-1-20 10:08

Sub test()
Dim arrData, Temp(1 To 4, 1 To 4)
Dim i As Long
Application.ScreenUpdating = False
With Sheets("生成记录明细")
      arrData = .Range("a1").CurrentRegion
End With
n = 1
   Sheets("卡片").Cells.Clear
For i = 2 To UBound(arrData)
   Sheets("模版").Range("1:6").Copy
   Sheets("卡片").Rows(n).Insert Shift:=xlDown
   With Sheets("卡片")
         .Cells(n + 2, 2) = "'" & arrData(i, 2)
         .Cells(n + 3, 2) = "'" & arrData(i, 3)
         .Cells(n + 4, 2) = arrData(i, 4)
         .Cells(n + 5, 2) = arrData(i, 5)
         .Cells(n + 2, 4) = arrData(i, 6)
         .Cells(n + 3, 4) = arrData(i, 7)
         .Cells(n + 5, 4) = arrData(i, 8)
   End With
   n = n + 6
Next
Application.ScreenUpdating = True
End Sub

固定资产编码生成系统.rar (12.33 KB, 下载次数: 18)

JLxiangwei · 发表于 2015-1-20 10:08

这个最佳答案由 JLxiangwei 给出，感谢 JLxiangwei 的回答。

单击隐藏图章

Sub test()
Dim arrData, Temp(1 To 4, 1 To 4)
Dim i As Long
Application.ScreenUpdating = False
With Sheets("生成记录明细")
      arrData = .Range("a1").CurrentRegion
End With
n = 1
   Sheets("卡片").Cells.Clear
For i = 2 To UBound(arrData)
   Sheets("模版").Range("1:6").Copy
   Sheets("卡片").Rows(n).Insert Shift:=xlDown
   With Sheets("卡片")
         .Cells(n + 2, 2) = "'" & arrData(i, 2)
         .Cells(n + 3, 2) = "'" & arrData(i, 3)
         .Cells(n + 4, 2) = arrData(i, 4)
         .Cells(n + 5, 2) = arrData(i, 5)
         .Cells(n + 2, 4) = arrData(i, 6)
         .Cells(n + 3, 4) = arrData(i, 7)
         .Cells(n + 5, 4) = arrData(i, 8)
   End With
   n = n + 6
Next
Application.ScreenUpdating = True
End Sub

固定资产编码生成系统.rar (12.33 KB, 下载次数: 18)

		自动登录	找回密码
密码			注册

[已解决][求助] 救助根据模版、数据生成固定资产卡片VBA程序 [复制链接]

相关帖子