excel 小程序

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

项目实现：excel中在一个表中输入信息，在另一个表中保存信息。

如图：sheet1为财务收款，sheet2中按对应信息记录。

在sheet1中添加button，载入宏；宏的具体内容为：

Sub 按钮1_Click()
On Error Resume Next
mm = Sheets(2).Cells(Rows.Count, 5).End(xlUp).Row + 1
Sheets(2).Range("e" & mm) = Sheets(1).Range("c3")
Sheets(2).Range("b" & mm) = Sheets(1).Range("f3")
Sheets(2).Range("c" & mm) = Sheets(1).Range("h3")
Sheets(2).Range("d" & mm) = Sheets(1).Range("j3")

Sheets(2).Range("f" & mm) = Sheets(1).Range("c4")
Sheets(2).Range("g" & mm) = Sheets(1).Range("j2")
Sheets(2).Range("h" & mm) = Sheets(1).Range("g4")
Sheets(2).Range("i" & mm) = Sheets(1).Range("g2")
Sheets(1).Range("f3") = ""
Sheets(1).Range("h3") = ""
Sheets(1).Range("j3") = ""
Sheets(1).Range("c4") = ""
Sheets(1).Range("j2") = ""
Sheets(1).Range("g4") = ""
Sheets(1).Range("c3") = ""
Sheets(1).Range("g2") = ""
Sheets(1).Range("i5") = ""
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL exce xcel cel 小程序 excel button Error 程序 财务