《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》_提升工作效率_2.6 当单元格内容或链接改变时触发事件

【摘要】 本书摘自《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》一书中第2章，第6节，陈锡卢、李应钦著。

2.6 当单元格内容或链接改变时触发事件

学习了 Worksheet.SelectionChange 触发事件，接下来学习Worksheet.Change 事件。

Worksheet.C hange 事件的触发要素为，当单元格被编辑时或者工作表上的链接数据刷新时 引起单元格内容改变时都能触发该事件，先来看看这个事件的过程外壳。

当用户更改工作表中的单元格或外部链接引起单元格内容的更改时发生此事件

Private Sub Worksheet_Change(ByVal Target As Range)

Statements(中间代码语句)

End Sub

2.6.1 汇率价格填写

现将该事件运用到实际案例中来，要求：当在指定区域输入一个数值之后按照指定(内置) 汇率将转换后的价格写入单元格中，如图2-8所示。

示例过程如代码2-4所示。

代 码 2 - 4 在 F 列指定范围输入后自定计算汇率价格

001|Private Sub Worksheet_Change(ByVal Target As Range)

002| Dim MxRAs Integer

003| Const HuiLv As Single=35.314:Const MnR As Byte=16

004| With Target

0051

If.Count>1Or.Column～ 6 Then Exit Sub

0061

MxR=Cells(Rows.Count,1).End(xIUp).Row-5

007| If.RowMnR And.Column=6 And.Offset(0,-5)～""Then

008| If.Value>0 Then

009| Application.EnableEvents =False

010| .Value =Format(.Value /HuiLv,"#,##0.00")

011| Application.EnableEvents =True

012| End If

013| End If

014 End With

015|End Sub

代码2-4示例过程执行情况下如下。

(1)声明了2个常数 HuiLv和MnR。HuiLv 常数为汇率比值， MnR 则是发货清单中的标 题行号。

(2)通过If.Count>1Or. Column～6 Then 语句判断选中的是否为一个单元格或选中的 不为 F 列，否则退出事件过程。

(3)接着通过Cells(Rows.Count,1).End(XIUp).Row -5语句获取清单中的有效行数并赋值 给 MxR 变量，语句中最末-5是因为在清单中 TOTAL 合计行后还有5行相关信息，该区域不 在触发区域范围内，所以将该区域放置到触发区域之外。