手抄报 安全手抄报 手抄报内容 手抄报图片 英语手抄报 清明节手抄报 节约用水手抄报

vba选中单元格事件的应用:监考表中的查找姓名

时间:2024-10-12 11:29:26

现实生活中,我们常常悍钹氦蒯遇到需要在表格中查找某个相同单元格内容的数量或需要高亮显示,普通的方法是ctrl+F,进行查找,然后下一个下一个下一个,很不方便

本文解决监考班次表,表格发到每个老师后,需要让老师更加方便的去看到自己在什么时间在哪间教室,监考哪门课。

我们利用excel vba

首先分析,我们从老师的角度来考虑,他们在接到监考表之后,只需要知道自己在什么时候监考什么,他们需要更加直观的显示,至少我是这么认为。

我们可以

1、将每个老师的监考任务分到一张表,老师看得很轻松,不过,做表的人就吃力了

2、在同一个表中,将相同老师的表格标记成同一个颜色,制表人稍微轻松了点,可是面对乌鸦六色的表格,老师会看眼花的。

基于上述的第二点,我们可以考虑,如果老师看这张表时,选中自己的名字,就能在表中将自己所有的名字都高亮显示不久行了,制表人任务简单,老师看得也更明白。

想想。。。、

对,我们利用vba中的Worksheet_SelectionChange 事件!

vba选中单元格事件的应用:监考表中的查找姓名

代码如下

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

Sheet1.Range("b2:k10").Interior.ColorIndex = 0

'将排课表中的所有颜色清空

For Each rng In Sheet1.Range("b2:k10")

If rng.Value = Target.Value Then

rng.Interior.ColorIndex = 3

End If

Next

'进入for each循环体,判断,如果循环到的单元格中的内容等于选择到的单元格中的内容,那么就将其单元格颜色标记为3

End Sub

最后达到的效果如下图,并且,单机任意单元格,相同内容单元格都改为背景红色。

vba选中单元格事件的应用:监考表中的查找姓名

© 手抄报圈