Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3340|回复: 8

单元格值发生变化则运行程序

[复制链接]
发表于 2013-9-29 18:57 | 显示全部楼层 |阅读模式
本帖最后由 木牙水 于 2013-9-30 13:36 编辑

       工作表是保护的,只能编辑3个表单控件。表单控件分别链接a24:c24单元格 。想实现功能: 当a24:c24 值发生变化时,运行死淘原因()程序,图表发生变化。
       好像不能用seletechange 或change事件!!!
1234.jpg




数据.rar

70.84 KB, 下载次数: 4

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-9-29 20:46 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2013-9-29 21:24 | 显示全部楼层
hwc2ycy 发表于 2013-9-29 20:46
密码呢。还保护做啥。

忘了还有密码了,已经重新上传
回复

使用道具 举报

发表于 2013-9-29 21:38 | 显示全部楼层
       If arr(j, 2) Like Sheet9.Range("a59") And arr(j, 11) Like Sheet9.Range("b59") And arr(j, 10) Like Sheet9.Range("c59") Then
这A59:C59全为空,就错了吧,字典最后啥也没有。

回复

使用道具 举报

发表于 2013-9-29 21:39 | 显示全部楼层
按里这三个单元格应该是猪场,猪只类别,死淘类型。
回复

使用道具 举报

 楼主| 发表于 2013-9-29 21:42 | 显示全部楼层
hwc2ycy 发表于 2013-9-29 21:38
If arr(j, 2) Like Sheet9.Range("a59") And arr(j, 11) Like Sheet9.Range("b59") And arr(j, 10)  ...

应该是第33行!
If arr(j, 2) Like Sheet9.Range("a33") And arr(j, 11) Like Sheet9.Range("b33") And arr(j, 10) Like Sheet9.Range("c33") Then
回复

使用道具 举报

 楼主| 发表于 2013-9-29 22:10 | 显示全部楼层
hwc2ycy 发表于 2013-9-29 21:39
按里这三个单元格应该是猪场,猪只类别,死淘类型。

本来是想把源文件修改下的,删除了一些行,结果代码就不好用了,还是上传了源文件方便看!
回复

使用道具 举报

 楼主| 发表于 2013-9-30 08:58 | 显示全部楼层
hwc2ycy 发表于 2013-9-29 21:39
按里这三个单元格应该是猪场,猪只类别,死淘类型。

请问 hwc2ycy版主,这个问题是不是需要用 ComboBox控件解决啊
回复

使用道具 举报

发表于 2013-9-30 14:19 | 显示全部楼层
木牙水 发表于 2013-9-30 08:58
请问 hwc2ycy版主,这个问题是不是需要用 ComboBox控件解决啊

这个随意嘛。只要能解决问题,你可以用不同的方法,看个人习惯 。

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-6-6 12:35 , Processed in 0.169872 second(s), 12 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表