Question

用Excel的按钮实现查询和定位功能

已知Excel表，有两列，A列和B列，A列和B列都是文本，如下所示：
A B
1 str1 str11
2 str2 str21
3 str3 str31
...
现在想要的功能是：输入一个字符串，点击查询按钮后，在A列查询该字符串，如果找到了，就定位到该行（即自动跳转到有该行的页，同时该行能醒目的显示）。否则提示没找到。

Answer 1

一定要按钮吗？这个就是Excel的查找功能，按Ctrl+F就出来了

出于练习的话，加个按钮，代码如下：

Option Explicit

Private Sub CommandButton1_Click()
Dim ttlC%, ttlR%, i%, j%, mTar$
ttlC = ActiveSheet.UsedRange.Columns.Count
ttlR = ActiveSheet.UsedRange.Rows.Count
mTar = InputBox("请输入要查找的值 ", "Search: ")
ActiveSheet.UsedRange.Interior.Pattern = xlNone

For i = 1 To ttlC '按列查找
For j = 1 To ttlR
If Cells(j, i).Value = mTar Then GoTo mselect
Next j
Next i
If i >= ttlC Then MsgBox "没有打到要查询的值", vbOKOnly, "Search: "
End

mselect:
Cells(j, i).Select
ActiveCell.Interior.Color = vbYellow
End Sub

Answer 2

none2001 是正解

Answer 3

这个其实不用"按钮"更容易.

你可以在F2输入一个字符串.
F3输入:
=IF(ISERROR(MATCH(F2,A:A,0)),"",MATCH(F2,A:A,0))
F4输入:
=HYPERLINK("#Sheet1!A"&F3,IF(ISNUMBER(F3),"点击显示","没有找到"))

这样一来如果可以找到,点F4即可定位.
如果还要A列醒目提示,可以选中A列,设置条件格式(顺次按下alt o d),选等于,后面输入=$F$2,然后选格式,可以选底色和字体色彩.确定.

Answer 4

用筛选 菜单→数据→筛选→自动筛选 设置好后 点击工作表里的三角按钮

就可以查看该列的全部内容

或许达不到你想要的效果 但这种方法比较简单 方便 你可以试试

希望能帮到你

Answer 5

vba实现，其他比较
难，而且，貌似你还要做后续处理

Answer 6

直接用超链接公式与条件格式就行了

或者直接用公式找出来就行了

详细的HI我看数据