求助一个查询姓名个数，并红色显示单元格的功能

yuan0574816 · 发表于 2019-1-23 13:27

有没有好心人做个查询姓名功能，并且查到的名字单元格红色显示？我们学校比较大，每次安排监考老师很多一下子找不到自己几场监考，要一个一个挑，可能要漏掉，让他们做查找替换命令，老教师又不太会，能做个简单功能，按按钮，输入自己名字，确定一下，就把表格当中自己名字的单元格全部红色显示。并显示一共出现几次，统计出监考次数。

以前我也发过这贴，发现附件出错　，所以重新再发一贴。

zpy2 · 发表于 2019-1-23 13:40

http://5809c7f4.nat123.cc:15216/bsbm/pdo/eh/a59/index.php?keywords=1602考场可以直接筛选吧。。

52赫兹rain · 发表于 2019-1-23 13:46

不知道是否是你想要的效果，供参考

719404338 · 发表于 2019-1-23 14:00

Sub t()
Dim i, j, name$, k
k = 0
UsedRange.Interior.Color = xlNone
name = InputBox("请输入要查询的姓名：")
For i = 1 To UsedRange.Rows.Count
For j = 1 To UsedRange.Columns.Count
If Cells(i, j) = name Then
Cells(i, j).Interior.ColorIndex = 3
k = k + 1
End If
Next j, i
MsgBox name & "老师：你监考" & k & "次！"
End Sub

复制代码

abc123281 · 发表于 2019-1-23 15:01

aaaaaaaaaaa - 123.rar (24.19 KB, 下载次数: 5)

yuan0574816 · 发表于 2019-1-23 15:14

本帖最后由 yuan0574816 于 2019-1-23 15:35 编辑

52赫兹rain 发表于 2019-1-23 13:46
不知道是否是你想要的效果，供参考

多谢大神，这是我要的效果，这个怎么做出来的，countif只是统计个数呀，这个颜色怎么同步的？还有我想改成色块显示怎么办。

yuan0574816 · 发表于 2019-1-23 15:14

abc123281 发表于 2019-1-23 15:01

Set usrange = Sheets(1).UsedRange，提示这个错误？？

yuan0574816 · 发表于 2019-1-23 15:40

719404338 发表于 2019-1-23 14:00

好像运行错误

ione_fox · 发表于 2019-1-23 15:49

这个其实不需要VBA，条件格式就可以

ione_fox · 发表于 2019-1-23 15:55

注意相对引用和混合引用

		自动登录	找回密码
密码			免费注册

[求助] 求助一个查询姓名个数，并红色显示单元格的功能

最新热点 /1