函数公式写成即时运行的VBA代码

zsyouli · 发表于 2018-3-26 15:20

要求：（1）将C6到C14列的（IFERROR(LOOKUP(1,0/((数据库!E:E=$C$3)*(数据库!C:C=B6)),数据库!D:D),0)和E6到E14的IFERROR(LOOKUP(1,0/((数据库!E:E=$C$3)*(数据库!C:C=B6)),数据库!M:M),0)函数公式写成在C3和B列中有数据输入时即时运行的VBA代码。
（2）注意，数据库的格式是在另一个软件导出的固定格式，所以不能改变。

r_zxf · 发表于 2018-3-28 15:51

原作不是挺好吗?为什么要那样做呢?

zsyouli · 发表于 2018-3-28 16:06

r_zxf 发表于 2018-3-28 15:51
原作不是挺好吗?为什么要那样做呢?

下面的操作人员经常不小心就把公式删除

zsyouli · 发表于 2018-3-28 16:07

r_zxf 发表于 2018-3-28 15:51
原作不是挺好吗?为什么要那样做呢?

操作人员经常不小心就把公式删除

r_zxf · 发表于 2018-3-28 17:23

可以把有公式的单元格保护起来，不让改动。就是用VBA写成自定义函数，也得用公式调用。如果写成批处理操作，需要人为启动，不直接。

keletang1984 · 发表于 2018-3-28 17:32

本帖最后由 keletang1984 于 2018-3-29 08:45 编辑

。。。。。。。。。。

r_zxf · 发表于 2018-3-28 20:57

keletang1984 发表于 2018-3-28 17:32

除了把原来的公式去掉了，修改了什么?

keletang1984 · 发表于 2018-3-29 08:26

本帖最后由 keletang1984 于 2018-3-29 08:46 编辑

r_zxf 发表于 2018-3-28 20:57
除了把原来的公式去掉了，修改了什么?

今天测试下来似乎有点问题，我改一下

keletang1984 · 发表于 2018-3-29 09:54

收款收据带备份123.rar (24.96 KB, 下载次数: 5)
做了打开工作簿自动清空内容
不需要的话把thisworkbook里的代码删掉就可以了

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

[求助] 函数公式写成即时运行的VBA代码