欢迎访问 重庆118考试网(cqrsksw.cn)

重庆人力资源和社会保障网 | 重庆事业单位招聘 | 重庆企业招聘
重庆118网

巧用VBA码快速检查每位教师的监考环节

时间:2020-04-27 18:17 来源: 重庆118百科知识网 网址: www.cqrsksw.cn 编辑:小多

每次月考排监考表,看着密密麻麻的名字,眼睛都能给瞅瞎了,一不小心看漏一场监考,就很容易耽误了考试。其实用Excel的VBA,只需短短几行代码就可以帮你一次性找出所有的监考场次,再也不用担心漏掉某一场考试了。

巧用VBA代码,快速查看每个老师的监考场次

下面是效果演示。点击任意一个教师的姓名,就可以高亮显示同一个老师的所有监考场次,非常好用。

巧用VBA代码,快速查看每个老师的监考场次

其制作方法如下:

第一步:开启『开发工具』菜单。

『开发工具』菜单默认是隐藏的,可以点击『文件』菜单,依次选择『选项』『自定义功能区』,然后勾选『开发工具』选项,使其显示出来。

巧用VBA代码,快速查看每个老师的监考场次

第二步:编写VBA代码

点击『开发工具』菜单,点击『Visual Basic』命令按钮,双击左侧『工程』窗口的Sheet1,并在右侧代码区输入如下代码:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'将B5:G20区域的单元格背景与字体颜色设置为默认
Range("B5:G20").Interior.Color = xlNone
Range("B5:G20").Font.Color = RGB(0, 0, 0)

'如果当前选择区域不在B5:G20范围则退出此过程
If Application.Intersect(Target, Range("B5:G20")) Is Nothing Then Exit Sub

'如果当前选择的不止一个单元格,则将选取的第一个单元格作为目标单元格
If Target.Count > 1 Then Set Target = Target.Cells(1)

'在B5:G20区域内循环判断单元格内容是否与活动单元格一致,如果一致则设置黄色背景和红色字体
Dim rng As Range
For Each rng In Range("B5:G20")
If rng.Value = Target.Value Then
rng.Interior.Color = RGB(255, 255, 0)
rng.Font.Color = RGB(255, 0, 0)
End If
Next rng
End Sub

如下图所示:

巧用VBA代码,快速查看每个老师的监考场次

为了让大家理解代码的含义,我还为代码添加了注释(上图中的绿色文字部分)。

代码中的Range("B5:G20")引用的是监考表中的姓名区域,大家在使用中可以换成自己需要的引用区域即可。

这样就完成了所有的制作过程,关闭代码窗口看看效果吧。



更多关于"巧用VBA码快速检查每位教师的监考环节"信息,请多多关注哦!

本文信息参考自:中国人事考试网

二维码
意见反馈