excel - VBA 将用户窗体放在所选范围旁边

Question

我需要在选定的单元格旁边放置一个用户表单。这是我的代码。 Excel 2013。

在用户表单模块中:

Private rangePosition As Range 'Property passed to form to set position based on range

'Set userform position to right of range
Property Let PositionToRange(rangeInput As Range)
    Set rangePosition = rangeInput
    Me.Left = rangePosition.Left + rangePosition.Width + 30
    Me.Top = rangePosition.Top + Application.CommandBars("Ribbon").Height + 27
End Property

在标准模块中:

userform.PositionToRange = Selection '(or some specified range)
userform.Show

好的，很好。所以起初这似乎可以解决问题。但是，它似乎只在 Excel 首次加载时在标准 View 中工作，前 30 行左右。但是，如果您尝试在第 4000 行甚至第 40 行使用它，它会将用户窗体置于屏幕之外。 Excel 似乎没有考虑屏幕的位置。要明白我的意思，请尝试使用上面的代码在单元格 A1 旁边放置一个用户窗体。然后向下滚动，使 A1 不再出现在屏幕上，然后再次运行代码。它将用户窗体放在完全相同的位置，就好像您仍在原始位置向上滚动一样。

除了 range.Left 等之外，是否有我可以使用的属性来相对于屏幕上范围的位置放置用户窗体？或者我是否需要做一些奇怪的巫术废话，在考虑到地球的旋转力和与太阳的相对距离之后，找出滚动条的位置并找到单元格相对于它的位置？

哦，微软...

Answer 1

滚动时可以调整表单的位置

ActiveWindow.VisibleRange.Top &
ActiveWindow.VisibleRange.Left

使用它在所有情况下都有效

Me.Left = ActiveCell.Left + ActiveCell.Width  - ActiveWindow.VisibleRange.Left
Me.Top = ActiveCell.Top  - ActiveWindow.VisibleRange.Top