窗体不显示，也不报错，求各位大神看看是什么原因

伊丽莲蒙娜

Private Sub CommandButton1_Click()
Dim pwd As String
pwd = TextBox2.Text
If OptionButton1.Value = True & pwd = Sheet4.Range("d3") Then

Unload Me
UserForm7.Show
End If
If OptionButton2.Value = True & pwd = Sheet4.Range("e3") Then
Unload Me
UserForm9.Show
End If
If OptionButton3.Value = True & pwd = Sheet4.Range("c3") Then
Unload Me
ufAdd.Show
End If
End Sub

无法实现窗体的show

coolall

这么是说不清楚的，请上传附件 帮你看看

伊丽莲蒙娜

coolall 发表于 2016-5-16 14:48
这么是说不清楚的，请上传附件 帮你看看

这是这个的附件，窗体隐藏了

伊丽莲蒙娜

伊丽莲蒙娜 发表于 2016-5-16 15:48
这是这个的附件，窗体隐藏了

选管理员用户 用户名和密码都是teacher

coolall

伊丽莲蒙娜 发表于 2016-5-16 15:48
这是这个的附件，窗体隐藏了

没有excel的文件哦 ？

伊丽莲蒙娜

coolall 发表于 2016-5-16 15:56
没有excel的文件哦 ？

刚才没上传了，不知道怎么弄的

coolall

不是十分明白你的需求，我简单修改了一下。猜测你的意思可能这样吧？ 这个是课程设计啊？

1. Private Sub CommandButton1_Click()
   
2. Dim pwd As String
   
3. pwd = TextBox2.Text
   
4. If pwd = "" Then
   
5. MsgBox "请输入密码"
   
6. Else
   
7.         If OptionButton1.Value = True Then
   
8.         If pwd = Sheet4.Range("d3") Then
   
9.         Unload Me
   
10.         UserForm7.Show
    
11.             Else
    
12.             MsgBox "请输入正确的密码"
    
13.         End If
    
14.         End If
    
15.         If OptionButton2.Value = True Then
    
16.                 If pwd = Sheet4.Range("e3") Then
    
17.                 Unload Me
    
18.                 UserForm9.Show
    
19.                 Else
    
20.                 MsgBox "请输入正确的密码"
    
21.                 End If
    
22.         End If
    
23.         
    
24.         If OptionButton3.Value = True Then
    
25.          If pwd = Sheet4.Range("c3") Then
    
26.             Unload Me
    
27.             ufAdd.Show
    
28.             Else
    
29.             MsgBox "请输入正确的密码"
    
30.         End If
    
31.         End If
    
32. End If
    
33. End Sub

复制代码

伊丽莲蒙娜

coolall 发表于 2016-5-16 23:03
不是十分明白你的需求，我简单修改了一下。猜测你的意思可能这样吧？ 这个是课程设计啊？

简直不敢相信，太神奇了，unbelievable！！！十分感谢

伊丽莲蒙娜

coolall 发表于 2016-5-16 23:03
不是十分明白你的需求，我简单修改了一下。猜测你的意思可能这样吧？ 这个是课程设计啊？

这个是毕业设计，可我们电子商务学的都是皮毛，所以班级里大神都放弃了，只能求助网上向您这样的高阶大神了

伊丽莲蒙娜

coolall 发表于 2016-5-16 15:56
没有excel的文件哦 ？

想设置一个权限，128106只能选择1、2、3班级，128107只能选择4、 5、6班级，但是出不来，在拜托您看一下

1. Private Sub cmdAdd_Click()
   
2.    Sheet10.Activate
   
3.    clear
   
4.     Dim banji As String
   
5.     banji = ComboBox1.Text
   
6.     Dim kemu  As String
   
7.     kemu = ComboBox2.Text
   
8.     If banji <> "4" Or "5" Or "6" Then
   
9.         MsgBox "超出权限，您只能为您负责的4、5、6班录入成绩！"
   
10.         Me.ComboBox1.Text = ""
    
11.         Me.ComboBox2.Text = ""
    
12.         Else
    
13.         If checkStudentClass(ComboBox1.Text, ComboBox2.Text) Then
    
14.                 Sheet10.Visible = xlSheetVisible
    
15.                 Unload Me
    
16.                 Range("F2") = banji
    
17.                 Range("G2") = kemu
    
18.                 Call 查询班级
    
19.             Else
    
20.             MsgBox "请选择完整信息"
    
21.             Me.ComboBox1.Text = ""
    
22.         Me.ComboBox2.Text = ""
    
23.             Exit Sub
    
24.         End If
    
25.       End If
    
26. Application.Visible = True
    
27. Unload Me
    
28. 
    
29. End Sub

复制代码