给这个库存表添加程序

荒烟平楚 · 发表于 2010-4-25 21:14

请高手帮忙给这个库存表添加程序，谢谢！
要求：
在“库存数”一列中输入数字（如33）后点击“更新数据”按钮，系统自动将“以前库存”更改为：4489（即以前库存+库存数）请高手指点代码，谢谢！

mcpeipei · 发表于 2010-4-25 22:22

Sub 按钮1_单击()

Dim arr, c As Long
arr = Range("K65536").End(xlUp).Row
With Sheets("库存")
      For c = 6 To arr
         .Cells(c, 11).Value = .Cells(c, 11).Value + .Cells(c, 12).Value
      Next
End With

End Sub

荒烟平楚 · 发表于 2010-4-26 20:32

很好，谢谢mcpeipei 老兄的帮助！非常感谢！

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

[求助] 给这个库存表添加程序