[已解决]常规项目预算实时控制

tayisha

按项目及人员做预算，并对实时费用进行控制，如附件

最佳答案

月排行榜 / 总排行榜

know

2012-3-4 21:49

提示：
在账1 表的 I，M，N 三列的 第 18 行开始使用 Change 事件

当同一行中三列的都有值，就去 要求 表的 分项目分人员核算 区域A43：F100 中

去查找 当前输入的 项目，姓名 所对应的 结余 是否为负数

如果是负数，则给出提示
msgbox "该人员在当前项目的余额已经为负，请核实！"
给出提示后，删除 该行中的 I列 贷方(流出) 金额

若 当前输入的 项目或姓名 在 要求表中 不存在，则给出对应的提示

msgob "当前输入的该项目不存在，请先添加后再输入"

同时删除当前输入的项目（也可使用代码自动添加到要求表中）

若姓名不存在，也是同样的提示和处理！！

跳转到最佳答案楼层

tayisha

还没有人回复，自己顶下，我自己的想法是用公式做，但是公式太多，表格会变慢呢

绝无仅有

帮顶{:101:}{:101:}

happym8888

如果不是太麻烦，就是太难，要不就是没说清。

know

提示：
在账1 表的 I，M，N 三列的 第 18 行开始使用 Change 事件

当同一行中三列的都有值，就去 要求 表的 分项目分人员核算 区域A43：F100 中

去查找 当前输入的 项目，姓名 所对应的 结余 是否为负数

如果是负数，则给出提示
msgbox "该人员在当前项目的余额已经为负，请核实！"
给出提示后，删除 该行中的 I列 贷方(流出) 金额

若 当前输入的 项目或姓名 在 要求表中 不存在，则给出对应的提示

msgob "当前输入的该项目不存在，请先添加后再输入"

同时删除当前输入的项目（也可使用代码自动添加到要求表中）

若姓名不存在，也是同样的提示和处理！！

tayisha

know 发表于 2012-3-4 21:49
提示：
在账1 表的 I，M，N 三列的 第 18 行开始使用 Change 事件

我的水平写不出来呢

tayisha

{:091:}{:091:}自己顶下，

梅一枝

别急给我N天时间，我来试试看

sliang28

别急，就这一两天我有时间了就做

sliang28

这题没什么难度，就是烦了点，我只写其中一个表的统计代
码，楼主自己看吧，其它两张表都依葫芦画瓢就可以完成了。

答案说明：答案结果在“result”表中，没有设置按钮，改变“账1”表中任何一个数
据，“result”表都会自动更新，就算添加新成员，基本都按要求来，只是名字按先
后出现顺序来排列，要求表中的名字按拼音字母顺序来排列，这个没作要求基本无
所谓了。