如何用excel vba，实现用窗口可以查询表格上的重复信息，并用至少五种背景色彩高亮显示？

Question

如图，一点“按钮2”图表，就会弹出一个对话框，对话框里可以输入要查询的姓名和选择某种背景色，然后后就可以查询了。如图： 左边可以直接输入姓名，也可下拉菜单里选择，右边的下拉菜单里，可以选各种色。
谢谢了。

Answer 1

手机Excel表格中如何使用显示高亮功能，我们在手机上就可以查重

Answer 2

考虑到用窗体和控件在这里不方便，就用INPUTBOX来代替了

Sub xm()
Dim xm$, ys1%, ys%, rn As Range
xm = InputBox("请输入要查询的姓名，并输入显示背景颜色代码，例如：张三，1" & vbCr & "1.红色 2.绿色 3.蓝色 4.黄色 5.紫色 6.青色 7.桔色")
xm = Replace(xm, "，", ",")
If IsNumeric(Split(xm, ",")(1)) Then
If InStr(xm, ",") Then
ys1 = Split(xm, ",")(1)
Select Case ys1
Case 1
ys = 3
Case 2
ys = 4
Case 3
ys = 5
Case 4
ys = 6
Case 5
ys = 7
Case 6
ys = 8
Case Else
ys = 46
End Select
End If
For Each rn In Sheet1.UsedRange
If rn.Value = Split(xm, ",")(0) Then rn.Interior.ColorIndex = ys
Next
Else
MsgBox "输入有误，请重新输入"
End If
End Sub追问

没看懂啊，能不能按我的原意思去做？发个excel原件给我。

本回答被网友采纳

Answer 3

期待背景色的代码。追问

随便，只要红黄绿橙灰，都可以。