用VBA如何在一个单元格输入数据然后鼠标就跳转到内容所在单元格里？

Question

例如，我在A1中输24 ，鼠标点选筐就跳转到24所在的单元格里，最好能双击下24所在的单元格能返回A1,因为数据太多，拉横条有时拉不过来，表内的数据不重复，可以放在表格的任何地方也可以排列成一排的，求教高手怎么做到！

Answer 1

如图：打开VBE，转贴代码，关闭VBE，OK！

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    [a1].Activate
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = ("$A$1") Then
        Cells.Find(what:=Target, after:=Target, lookat:=xlWhole).Activate
    End If
End Sub

Answer 2

下载附件后试试吧，一定是你想要的效果！

Answer 3

这个我hui做，做好找你。追问

好

追答

怎么联系你

追问

你能帮我修改一个工作表里的代码吗？给200分，我另在一个版面出一个题目，，分都给你 ！这个问题已经有人最先给出回答了，，你们都很优秀，而最佳答案就一个！先谢过

追答

可以

发来

q传我

➕你了