VBA代码、登陆界面制作

实现功能：用户和密码输入正确了就跳转到另一个表里

下面是代码分享

Private Sub 确定_Click() 命令按键点击执行代码

If Application.CountIfs(Sheet2.Range("a:a"), Me.用户.Value, Sheet2.Range("b:b"), Me.密码.Value) Then 多条件计数判断

Me.用户.Value = "" 清空文本框内容

Me.密码.Value = ""

Sheet2.Visible = xlSheetVisible 显示工作表

Sheet2.Activate 激活工作表

Sheet1.Visible = xlSheetVeryHidden 隐藏工作表

Else

MsgBox "密码不正确" 信息框提示信息

End If

End Sub