为什么跨表及点按钮不行

xing_chen

老师，有代码如下：

Sub 查询()
    x = InputBox("请输入查找内容")
    On Error Resume Next
    Sheets("数据").Columns("E:E").Select
    Selection.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False, SearchFormat:=False).Activate
    ActiveCell.Select
    Sheets("数据").Select
end sub
为什么我跨表和点击运行代码不行，一定要激活数据表且在VBA编辑器中运行才可以。敬请老师赐教。谢谢

xing_chen

抱歉诸位阅读老师，此讨教问题是我查询及填充 https://club.excelhome.net/thread-1660577-1-1.html (出处: ExcelHome技术论坛)中的一个问题，因为审核时间太长，我将后面的大问题分解为2个问题的中间1个

xing_chen

xing_chen 发表于 2023-4-22 12:13
抱歉诸位阅读老师，此讨教问题是我查询及填充 https://club.excelhome.net/thread-1660577-1-1.html (出处: ...

这条也慢。

xing_chen

xing_chen 发表于 2023-4-22 13:50
这条也慢。

终审核好了，这么久，无语

zxsea_7426

After:=ActiveCell,

xing_chen

zxsea_7426 发表于 2023-4-22 16:50
After:=ActiveCell,

谢谢老师!可以再说全点吗？我的代码中有呀。

zxsea_7426

select 是选择定，不是激活。代码搜索是在当前活动单元格之后,所以如果当前activesheet不是Sheets("数据"),是到正确结果的 ,你可以在select 之前加上一句 Sheets("数据").activate

准提部林

沒什麼問題, 不是當前表, 就不能用 RANGE 的 SELECT,
之前的帖子都有提到, 怎還是繞不過來~~

xing_chen

准提部林 发表于 2023-4-22 17:55
沒什麼問題, 不是當前表, 就不能用 RANGE 的 SELECT,
之前的帖子都有提到, 怎還是繞不過來~~

谢谢老师！按你的意思我又加了1句选定表。现在可以了。哎！也许是自己过了学代码的最佳年龄了，都不记得以前也讨教同类问题过了，这问题折磨了我一天。
但第2个问题是将选定的单元格的平移左边的名称或整行复制到目录表，代码怎么写呀。可以给个指点吗？谢谢！

准提部林

xing_chen 发表于 2023-4-22 18:26
谢谢老师！按你的意思我又加了1句选定表。现在可以了。哎！也许是自己过了学代码的最佳年龄了，都不记得 ...

憑代碼難以猜想要做什麼???
不要只拿代碼問人...

另外, 不太喜歡用INPUTBOX, 有單元格可用何須另用其它介面???