|
楼主 |
发表于 2023-1-11 19:40
|
显示全部楼层
[广告] 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 |
|