菜鸟求助高手进！急，在线等-已上传附件

jackylu0119 · 发表于 2011-3-30 16:46

3列数据，A列是现有库存，B列是每次进货数，C列是最新库存，C=A+B，要求是B每次更新，C列显示最新库存，
请问怎么实现

[ 本帖最后由 jackylu0119 于 2011-3-30 17:52 编辑 ]

haowell · 发表于 2011-3-30 16:54

你这个问题简单得让高手们太纠结了

areva2009 · 发表于 2011-3-30 16:55

原帖由 jackylu0119 于 2011-3-30 16:46 发表
3列数据，A列是现有库存，B列是每次进货数，C列是最新库存，C=A+B，要求是B每次更新，C列显示最新库存，
请问怎么实现

能把问题再描述清楚些吗？
举例说明：
C1=A1+B2
C2=A2+B2
.......
Cn=An+Bn
是这样的吗？

skyzxh · 发表于 2011-3-30 16:57

没有附件不知道你是怎么做的。一般是采用三张表：表一是进货，表二是出货，表三是库存。这样表一表二记流水帐，表三通过函数公式自动统计库存

areva2009 · 发表于 2011-3-30 16:57

原帖由 areva2009 于 2011-3-30 16:55 发表

能把问题再描述清楚些吗？
举例说明：
C1=A1+B2
C2=A2+B2
.......
Cn=An+Bn
是这样的吗？

如果是这样的话，那么你是不会还是嫌麻烦不愿意一行一行的写公式上去？请讲清楚！

haowell · 发表于 2011-3-30 16:59

上传个附件吧

areva2009 · 发表于 2011-3-30 17:07

原帖由 areva2009 于 2011-3-30 16:57 发表

如果是这样的话，那么你是不会还是嫌麻烦不愿意一行一行的写公式上去？请讲清楚！

简单的方法就是按ALT+F11，选择你的数据所在的sheet, 双击进入该页的模块，如果是sheet1,那么只需打入以下代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10 'i = 1 to 10中的10是任意值，根据你自己需要
Cells(i, 3) = Cells(i, 1) + Cells(i, 2)
Next
End Sub

如果是在其他的sheet,比如在sheet2中，那么需要修改如下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 10 'i = 1 to 10中的10是任意值，根据你自己需要
sheets(2)Cells(i, 3) = sheets(2)Cells(i, 1) + sheets(2)Cells(i, 2)
Next
End Sub
需要说明的是你的sheet名称没有改变

jackylu0119 · 发表于 2011-3-30 17:50

已上传附件

jackylu0119 · 发表于 2011-3-31 08:16

急急急急急急急急急急急

areva2009 · 发表于 2011-3-31 08:53

目前在冥想中！

[ 本帖最后由 areva2009 于 2011-3-31 08:54 编辑 ]

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

[求助] 菜鸟求助高手进！急，在线等-已上传附件