新建进销存记录

cj8828

问题：日常进销存工作都在源数据工作表操作，时常因为误操作修改了历史数据。

请求帮助解决： 如何把日常的进销存输入到另单列的工作表中，正确的进销存数据在确认之后自动导入源数据，不允许修改源数据！

沈默00

某宝上买一个小进销存软件，，也便宜的，，

Excel_muke

VBA实现


1. alt+f11 进入VBA窗口
2. 双击左边ThisWorkbook，输入

1. Sub 导入数据()
   
2.     Dim wsSource As Worksheet
   
3.     Dim wsInput As Worksheet
   
4.     Dim lastRow As Long
   
5.     Dim nextRow As Long
   
6. 
   
7.     Set wsSource = ThisWorkbook.Sheets("源数据")
   
8.     Set wsInput = ThisWorkbook.Sheets("每日输入")
   
9. 
   
10.     lastRow = wsInput.Cells(wsInput.Rows.Count, "A").End(xlUp).Row
    
11.     nextRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row + 1
    
12. 
    
13.     wsInput.Range("A2:D" & lastRow).Copy
    
14.     wsSource.Range("A" & nextRow).PasteSpecial Paste:=xlPasteValues
    
15. 
    
16.     wsInput.Range("A2:D" & lastRow).ClearContents
    
17. End Sub
    

复制代码

3.建两个表，一个叫源数据，一个叫每日输入，
在每日输入表中 开发工具-插入-按钮，指定宏为导入数据
之后只要在每日输入表中输入之后，按按钮，就会自动把数据导入源数据

cj8828

Excel_muke 发表于 2024-8-12 19:30
VBA实现

感谢！试试看，有问题继续咨询

cj8828

Excel_muke 发表于 2024-8-12 19:30
VBA实现

感谢！我先试试看咋操作，有问题继续咨询