我正在使用以下宏:
'Copy active agency ID and paste into search on Worker Details
ActiveCell.Select
Selection.Copy
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Call macro to run the agency details search
Call AgencyDetails
Run Code Online (Sandbox Code Playgroud)
基本上,它使用活动单元格,将其粘贴到搜索字段中,然后运行一个宏来根据该条件提取数据。
单步执行时,它会复制并粘贴活动单元格,然后搜索工作正常。
运行宏时,它似乎没有将活动单元格复制并粘贴到搜索字段。或者被调用的宏运行得太早......
我曾尝试添加暂停doevents等,但我认为doevents是用于 odbc 连接。
使事情进一步复杂化。我有另一个几乎相同的宏,它将文本复制到搜索字段中,然后根据该条件返回数据:
'Copy active worker ID and paste into search on Worker Details
ActiveCell.Select
Selection.Copy
Sheets("Worker Details").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Call macro to run the worker details search
Call WorkerDetails
Run Code Online (Sandbox Code Playgroud)
这工作正常。
有任何想法吗?可能非常简单,因为我的 vba 并不出色。 …