|
楼主 |
发表于 2023-1-11 19:39
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Dim c As Range
Dim d As Range
a = ComboBox1.Text
b = TextBox1.Text
Set c = Sheets("user").[a:b].Find(a, , , 1)
If Not c Is Nothing Then
If c.Offset(0, 1).Text = TextBox1.Text Then
MsgBox ("欢迎进入系统!"), vbInformation, "管理报表系统V1.0"
主界面
Sheets("主界面").Range("d13") = a
Sheets("user").Range("c2") = a
Sheets("user").Range("d2") = b
Unload Me
Application.Visible = True
Sheet3.Visible = xlSheetVeryHidden
Else
MsgBox "密码错误,请重新输入..."
TextBox1.SetFocus
End If
End If
End Sub |
|