导航:首页 > 源码编译 > 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图片自动裁剪图片 浏览:904
程序员闪退怎么解决 浏览:524
看小视频APP什么秀 浏览:163
linuxping源地址 浏览:736
编程语言的优点与缺点 浏览:980
台湾历史pdf 浏览:826
贷款短信提醒源码 浏览:114
乔家的儿女在什么app播 浏览:340
javalicense实现 浏览:376
mysql创建数据库命令 浏览:990
红色的鱼是什么app 浏览:685
程序员的生涯经历 浏览:437
纳粹命令 浏览:590
什么讲鬼故事app 浏览:969
程序员级升 浏览:89
怎样关闭照片加密 浏览:524
文件夹变拉链 浏览:609
服务器未在运行什么意思 浏览:409
单片机应用大赛 浏览:467
博格上海压缩机有限公司 浏览:29