UC知道excel 另类查找
来源：百度知道 编辑：UC知道 时间：2024/07/02 10:55:35
材料上千种，在A4或者新建一个输入框， 输入关键字：如输入“丹麦”就自动跳到“丹麦面包专用油”这一行，我不想用CTRL+F，太大了，麻烦各位~\(≥▽≤)/~啦
byl341010202 - 助理 三级 的代码 好像只能搜索到A4上面的单元格，第4行以下的就没反应的！ 请帮忙改改
byl341010202 - 助理 三级 的代码 好像只能搜索到A4上面的单元格，第4行以下的就没反应的！ 请帮忙改改
用VBA编制如下Worksheet_Change事件程序：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rag As Range
If Target.Row = Range("A4").Row And Target.Column = Range("A4").Column Then
Set rag = Union(Range("A1:A3"), Range("A5:A65536"), Range("B1:IV65536")).Find(Range("A4").Value)
If Not (rag Is Nothing) Then
rag.Select
End If
End If
End Sub
注意，单元格A4的内容一定要有所改变，才能定位到所需搜索的位置。例如：你先前在A4单元格输入了“丹麦”，回车后定位到含有“丹麦”的单元格。之后你再定位到A4单元格，不做任何修改，回车后则不能定位到含有“丹麦”的单元格。若你还想定位到含有“丹麦”的单元格，你必须在A4单元格作些变动，例如加一个字符，再减一个字符，使之仍显示“丹麦”，这时再回车，就又能定位到含“丹麦”的单元格了。
VBA，我不会，前排就座，等待高人的解答！
CTRL+F是最简单的了
如果想输入就调的话,那还要设置公式,更麻烦
CTRL+F