导航:首页 > 源码编译 > vbauserform编译错误

vbauserform编译错误

发布时间:2023-07-09 16:41:15

❶ 打开EXCEL时出现 隐含模块中的编译错误:UserForm1

Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Const ID = "123"

Private Sub CommandButton1_Click()
If TextBox1 = ID Then
Unload UserForm1
Exit Sub
Else
UserForm1.Height = UserForm1.Height - 30
UserForm1.Width = UserForm1.Width - 30
TextBox1 = ""
TextBox1.SetFocus
End If
If UserForm1.Height < 80 Then
MsgBox "不知道密码就不要再撑了!按""X""离开吧!"
End If
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox1.SetFocus
End Sub

Private Sub UserForm_Initialize()
Application.EnableCancelKey = xlDisabled
SetWindowPos hWndForm, -1, 0&, 0&, 0&, 0&, 3 '让视窗保持最上层
Call SetForegroundWindow(hWndForm) '让视窗取得焦点

End Sub
Function hWndForm() As Long
hWndForm = FindWindow("ThunderDFrame", UserForm1.Caption) 'UserForm
End Function

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Not TextBox1 = ID Then
ThisWorkbook.Saved = True
ThisWorkbook.Close
End If
SetWindowPos hWndForm, -2, 0&, 0&, 0&, 0&, 3
Application.EnableCancelKey = xlInterrupt
End Sub

用这个程序

❷ Excel2013加载宏报错,提示存在编译错误:UserForm1,求解答~~~

进宏编辑界面,在左边的列表中的“窗体”中找到userform1,在其上右键→“查看代码”,检查代码呗

阅读全文

与vbauserform编译错误相关的资料

热点内容
android仿ios时间选择器 浏览:378
见识pdf 浏览:82
男孩子慰菊手册pdf 浏览:532
注册表启动项命令 浏览:109
89c51单片机定时器 浏览:687
一般不适合做程序员的适合做啥 浏览:923
点在多边形内算法 浏览:494
程序员下班急忙回家 浏览:359
安庆php全套源码交友类型网站源码 浏览:92
浪潮服务器公司地址 浏览:733
密约聊天交友app怎么赚钱 浏览:280
滴滴java 浏览:109
phpexpires 浏览:218
matlab编程用什么语言 浏览:70
php查找字符是否存在 浏览:701
可编程函数发生器 浏览:881
单片机正极接地视频 浏览:67
利用python爬火车票 浏览:375
androidaidl如何工作 浏览:855
第三胸椎压缩骨折什么症状 浏览:506