Question

在excel里用vba编写一个按钮程序

现已有表格sheet1，单击查找按钮后弹出个对话框：在对话框中输入姓名之后自动找到sheet1中所对应的那一行并加颜色

Answer 1

Sub test()
Dim str1$
str1 = InputBox("请输入要查找的姓名", "姓名查找")
If str1 = "" Then Exit Sub
i = Cells.Find(str1).Row
Rows(i).Interior.ColorIndex = 6
End Sub
运行此代码得到你要的结果

Answer 2

可以参考下列网址：

http://office.microsoft.com/zh-cn/excel-help/HA001136623.aspx?pid=CH001085946&CTT=1&origin=EC001022986
建议使用其他更专业的软件来做数据管理系统。

Answer 3

把表发我邮箱，举例说清楚要求与目的。mfk1288@126.com