留一个脚印,如果两天内没人写代码,我再写一个吧,这个不难...
看来只能由鄙人来搞定了,具体代码看附件(2007以上启用宏的工作簿)...经实测成功,望采纳...
在窗体的Layout()事件里编写代码，
Private Sub UserForm_Layout()
If (UserForm1.Left >= Excel.Application.ActiveWindow.Width - UserForm1.Width) Or UserForm1.Left <= 0 Then
UserForm1.Hide
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024