导航:首页 > 源码编译 > 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编译错误相关的资料

热点内容
计算器程序员是干嘛的 浏览:362
数控编程里fo是啥键 浏览:655
javacdataxml 浏览:943
本机tcp服务器地址 浏览:426
切换pdf 浏览:92
iturns下载的app在哪里 浏览:639
云起书院App在哪里 浏览:614
怎么对hex文件进行加密 浏览:285
pdf少年时 浏览:953
两个同名文件夹同步 浏览:630
拍照文件夹哪个好用 浏览:91
文件夹和书包 浏览:511
解压归档拿登记证 浏览:225
去体验解压房 浏览:613
单片机一键中断响应 浏览:646
唐浩明pdf 浏览:845
程序员土木 浏览:73
android如何与web服务器交互 浏览:611
苹果小风扇app怎么下 浏览:958
杭州it程序员对身体好不好 浏览:537