Excel精英培训网

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

[习题] [原创] 单元格改变事件

[复制链接]
发表于 2008-12-12 17:39 | 显示全部楼层 |阅读模式
新手一名,刚刚学VBA,之前对它就一直很感冒,可又一直没学.今天好歹学了点单元格数值改变事件,也是帮同事完成EXCEL 表格功能,觉得很爽. <br/><br/>实现功能:双击A单元格,B单元格数值也随着变化.这小功能在结合网络、VBA帮助,了解大半天.最终玩了出来.<br/>rivate Sub Worksheet_Change(ByVal target As Range)<br/><br/>&#160;&#160;&#160; If target.Row = 8 And target.Column = 3 Then<br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; Sheet1.Cells(8, 4).Value = target.Value * Sheet1.Cells(8, 2).Value<br/>&#160;&#160;&#160; End If<br/>&#160;&#160;&#160; <br/>&#160;&#160;&#160; If target.Row = 8 And target.Column = 4 Then<br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; Sheet1.Cells(8, 3).Value = target.Value / Sheet1.Cells(8, 2).Value<br/>&#160;&#160;&#160; End If<br/><br/>End Sub<br/><br/>或者<br/>rivate Sub Worksheet_Change(ByVal target As Range)<br/>&#160;&#160;&#160; <br/>&#160;&#160;&#160; If target.Address = "$D$8" Then<br/>&#160;&#160;&#160; <br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; Sheet1.Cells(8, 3).Value = target.Value / Sheet1.Cells(8, 2).Value<br/>&#160;&#160;&#160;&#160;&#160; <br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; <br/>&#160;&#160;&#160; End If<br/>&#160;&#160;&#160; <br/>&#160;&#160;&#160; If target.Address = "$C$8" Then<br/>&#160;&#160;&#160; <br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; Sheet1.Cells(8, 4).Value = target.Value * Sheet1.Cells(8, 2).Value<br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160;&#160; <br/>&#160;&#160;&#160;&#160;&#160;&#160;&#160; <br/>&#160;&#160;&#160; End If<br/>End Sub<br/>
<br/>
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2008-12-12 17:42 | 显示全部楼层

一方面想与大家分享下,另一方面也问询下DX 还有哪些语句能实现上述功能。<br/><br/>
回复

使用道具 举报

发表于 2008-12-12 18:02 | 显示全部楼层
回复

使用道具 举报

发表于 2008-12-12 18:39 | 显示全部楼层

看不懂,一听见VBA我就怕了。
回复

使用道具 举报

发表于 2008-12-15 10:37 | 显示全部楼层

<p>看看,学习一下有好处</p>
回复

使用道具 举报

发表于 2011-12-14 21:03 | 显示全部楼层
写得很好,学习一下

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-5-18 09:30 , Processed in 0.196228 second(s), 3 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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