【WorksheetSelectionChange事件】我应该监考哪一场.pdfVIP

别怕，ExcelVBA其实很简单

5.5.2我该监考哪一场

一张监考安排表，密密麻麻的全是监考老师的名字，如图5-25所示。

图5-25监考安排表

怎样才能快速知道张姣老师监

考哪些考场？

总不能让我一个一个单元格地

数吧？

1

别怕，ExcelVBA其实很简单

你应该试试用Worksheet_

SelectionChange事件编写过程，当选

中某位老师姓名所在的单元格后，自

动把写有该老师姓名的所有单元格填

充相同的底纹颜色。

事件

Step1:在“监考安排表”所在的工作表模块中输入程序：

Intersect方法返回参数指定的多个单元格

的公共区域。参数至少是两个Range对象。

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)

Range(B3:Q22).Interior.ColorIndex=xlNone清除单元格里原有底纹颜色

IfTarget.Count1Then当选中的单元格个数大于1时，重新给Target赋值

SetTarget=Target.Cells(1)

EndIf

当选中的单元格不包含指定区域的单元格时，退出程序

IfApplication.Intersect(Target,Range(B3:Q22))IsNothingThen

ExitSub

EndIf

DimrngAsRange定义一个Range型变量

ForEachrngInRange(B3:Q22)遍历单元格

Ifrng.Value=Target.ValueThen

rng.Interior.ColorIndex=39

EndIf

Next

EndSub

Step2:返回工作表区域，想知道张姣老师监考哪些考场，就用鼠标选中她的姓名所

在的任意一个单元格，如图5-26所示。

2

别怕，ExcelVBA其实很简单

选中单元格后，所