[已解决]窗体隐藏与弹出问题

zjdh

简单，把这句改一下：
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

qq8945051

zjdh 发表于 2014-7-18 10:58
简单，把这句改一下：
Sub 监控()
    Dim LngCurPos As POINTAPI

太感谢老师了完美解决  哈哈   

秋水钟情