输入框处于活动状态时运行Worksheet_SelectionChange事件

Question

我设置了一个输入框，要求用户选择一个范围。选择范围时，我希望将选择内容自动调整为某些尺寸，因此用户可以在单击“确定”之前（在设置myRange之前）看到新选择。

我已经设置了Worksheet_SelectionChange事件来处理调整选择的大小。问题在于输入框处于活动状态时selectionChange事件不起作用。

这是出现在我的模块中的代码段：

InputboxActive=True   
    Set myRange = Application.InputBox("Select a range", "Range Selection", Type:=8)
InputboxActive=False

此代码出现在我的worksheetChange子目录中：

if InputboxActive=True then Target.resize(5,10).select

inputbox处于活动状态时，selectionChange事件不会运行。我该如何解决？

感谢您的任何帮助

Answer 1

在设置myRange后将myRange.Select添加为

Set myRange = Application.InputBox("Select a range", "Range Selection", Type:=8)
myRange.Select

那应该触发Worksheet_SelectionChange事件