一个按钮实现两条命令的功能

dtyghw

我这个工作簿中有出库新增工作表，工作表中有新增和保存两个按钮，我想在点击新增按钮时，即新增记录，同时也保存工作簿的内容，请问老师，这个功能能实现吗？如何操作，请老师指教。谢谢

zoran123321

在新增出库那个命令结尾加上 Thisworkbook.save 加上你之前(新增)的功能,就能同时实现这两个功能了

zoran123321

zoran123321 发表于 2023-8-13 11:59
在新增出库那个命令结尾加上 Thisworkbook.save 加上你之前(新增)的功能,就能同时实现这两个功能了

你每点击新增的同时,也就可以自动保存了

小爆龟

你好 水务信息管理系统 是您自己做的吗

dtyghw

zoran123321 发表于 2023-8-13 12:00
你每点击新增的同时,也就可以自动保存了

老师，我试了下不行，新增了没有保存，我的意思是保存整个工作簿

一江春水1688

dtyghw 发表于 2023-8-14 23:21
老师，我试了下不行，新增了没有保存，我的意思是保存整个工作簿

2楼正解

代码如下：

1. Sub 入库新增保存()
   
2.     ReDim brr(1 To 17)
   
3.     With Worksheets("入库新增")
   
4.         If .Range("c4") = Empty Then
   
5.             MsgBox "没有要保存的数据!"
   
6.             Exit Sub
   
7.         End If
   
8.         brr(1) = .Range("k6")
   
9.         brr(2) = .Range("g4")
   
10.         brr(3) = .Range("c6")
    
11.         brr(4) = .Range("c4")
    
12.         brr(5) = .Range("j4")
    
13.         brr(6) = .Range("g6")
    
14.         brr(7) = .Range("c8")
    
15. 
    
16.     End With
    
17.     With Worksheets("入库登记明细表")
    
18.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.         .Cells(r + 1, 1).Resize(1, 17) = brr
    
20.     End With
    
21.     '新增下面这行代码
    
22. <font color="#ff0000">    ThisWorkbook.Save</font>
    
23.     MsgBox "此记录已保存", vbOKOnly, "温馨提示"
    
24.             Exit Sub
    
25. 
    
26. End Sub
    

复制代码

zoran123321

dtyghw 发表于 2023-8-14 23:21
老师，我试了下不行，新增了没有保存，我的意思是保存整个工作簿

新增位置:  模块11==> 新增出库记录==>Thisworkbook.save放在 结尾  Exit Sub (注意不是End Sub) 之前

dtyghw

一江春水1688 发表于 2023-8-15 01:11
2楼正解

代码如下：

困扰好久的问题解决了，谢谢老师

dtyghw

zoran123321 发表于 2023-8-15 10:05
新增位置:  模块11==> 新增出库记录==>Thisworkbook.save放在 结尾  Exit Sub (注意不是End Sub) 之前

谢谢老师，您辛苦啦，非常感谢。