跪求哪位大神给做个小程序，实现自动打印并录入

qiufeng8848

输入数据后打印，并将对应数据添加到对应车队的明细中，做的各车队的预付款情况有余额

qiufeng8848

有没有愿意教徒弟的，可以付费的

zpy2

https://club.excelhome.net/forum.php?mod=viewthread&tid=1677069&fromguid=hot&extra=&mobile

3190496160

qiufeng8848 发表于 2024-7-22 16:25
有没有愿意教徒弟的，可以付费的

可以加我v具体沟通确认方案

长安布衣

这个应该不难。你自己会编写VBA
收据F到M列不需要在细分列
R到Z列可删除，在收据后加几列辅助列输入车牌号等
在打印的模块中，加入自动录入到各客户的模块

即，主要是简化美化，在格式上可参考，以下我的账本中应收、应付等多帐页中格式，以及自动生成目录。这个应收、应付、销售等明细账，均是根据业务明细（一张EXCEL明细表），通过VBA自动记账到各个明细账的（一个客户一张工作表）

https://club.excelhome.net/thread-314031-1-1.html

gaotong2055

1. Sub AddDataAndPrint()
   
2.     Dim wsReceipt As Worksheet
   
3.     Dim wsDetail As Worksheet
   
4.     Dim lastRow As Long
   
5.     Dim lastRowDetail As Long
   
6.     Dim teamName As String
   
7.     Dim i As Integer
   
8.    
   
9.     ' 设置工作表
   
10.     Set wsReceipt = ThisWorkbook.Sheets("收据")
    
11.    
    
12.     ' 找到“收据”表中的最后一行数据
    
13.     lastRow = wsReceipt.Cells(wsReceipt.Rows.Count, "A").End(xlUp).Row
    
14.    
    
15.     ' 读取客户名称（车队名称）
    
16.     teamName = wsReceipt.Range("B3").Value
    
17.    
    
18.     ' 根据车队名称选择详细工作表
    
19.     Select Case teamName
    
20.         Case "信而达"
    
21.             Set wsDetail = ThisWorkbook.Sheets("信而达明细 ")
    
22.         Case "吉顺隆"
    
23.             Set wsDetail = ThisWorkbook.Sheets("吉顺隆明细")
    
24.         Case "邦达"
    
25.             Set wsDetail = ThisWorkbook.Sheets("邦达明细 ")
    
26.         Case "灵鹤"
    
27.             Set wsDetail = ThisWorkbook.Sheets("灵鹤明细")
    
28.         Case "得盛"
    
29.             Set wsDetail = ThisWorkbook.Sheets("得盛明细")
    
30.         ' 添加更多选项，如果有更多车队
    
31.         Case Else
    
32.             MsgBox "未找到对应的车队明细表。"
    
33.             Exit Sub
    
34.     End Select
    
35.    
    
36.     ' 在详细工作表的末尾添加一行数据
    
37.     lastRowDetail = wsDetail.Cells(wsDetail.Rows.Count, "A").End(xlUp).Row + 1
    
38.     For i = 1 To 11 ' 根据详细表的列数调整
    
39.         wsDetail.Cells(lastRowDetail, i).Value = wsReceipt.Cells(4, i).Value ' 调整行和列索引
    
40.     Next i
    
41.    
    
42.     ' 更新账户余额
    
43.     wsDetail.Cells(lastRowDetail, 10).Formula = "=D" & lastRowDetail & "-H" & lastRowDetail
    
44.    
    
45.     ' 打印收据工作表
    
46.     wsReceipt.PrintOut
    
47. End Sub
    

复制代码

qiufeng8848

gaotong2055 发表于 2024-8-6 15:50

非常感谢，我测试一下