简单,把这句改一下:
Sub 监控()
Dim LngCurPos As POINTAPI
Dim NewRange As Range, XX%
On Error Resume Next
Do
GetCursorPos LngCurPos
On Error Resume Next
Set NewRange = ActiveWindow.RangeFromPoint(LngCurPos.X, LngCurPos.Y)
If Not NewRange Is Nothing Then
If NewRange.Left > Application.Width - 150 Then '150具体尺寸自己调整
UserForm1.Show 0
Exit Sub
End If
End If
DoEvents
Loop
End Sub