如何用VBA制作用户登陆界面

如乱漏哗何用VBA制作用户登陆搜仿界面

方法/步骤

在设计之初，首先要想到如何实现登录，思路就是要我们输入的字符串要与系统是给予的要一致，不然就登录不进去，这样我们就需要利用到循环语句if...else。但是并不是无限制的去进行输入，需要规定相应的次数，那么我们就要判断一下，到底会给予用户多少次输入呢，循环一下，利用到do...loop语句。思想理清了，下面就可以进行制作了。

启动excel，选择工具--宏---visual basic编辑器，也可以按住Alt+F11键进入。

进入到VB编辑器以后，在VB编辑器的菜单选项中的插入菜单下，选择插入模块。

插入之后，在我们的工程窗体中就会出现一个模块选项，用鼠标双击一下，就会在右边的窗口中出现一个代哗行码编辑区。

现在我们的任务就是开始怎么进行编程了，我们首先建立一个login的程序，在下面进行代码录入就完成了。

代码录入完毕之后，安装F5键进行执行调试，那么我们为什么不选择选择三角形的那个执行按钮呢？因为F5键有个好处就是单步执行，可以在立即窗口中看见我们的执行结果，如果哪步有问题，可以马上进行改动，执行无误之后，选择三角形的那个运行也是可以的。

7

结果验证，你可以进行三种尝试，一种是按照系统基于的用户名输入，一种是不是系统给予的输入，再一种是超过3次输入，因为这样做的目的是为了验证我们编写过程到底有没有bug。

1.VBA工程插入“模块”，添加 auto_open过程；

2.过者含程中加入代岩陵码，隐藏工作表。

3.d出密码验证userform。

4.验证密码的准确性，执行打开或关闭。

具体代码如下：

Userform代码

Private Sub CommandButton1_Click() '粗嫌戚验证密码是不死1111

If TextBox1.Text = "1111" Then

Unload Me

Sheet1.Cells(1, 1).Select

End If

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, closeMode As Integer) ’关闭窗口自动关闭文件（不保存）

If closeMode = 0 Then

ThisWorkbook.Saved = True

ThisWorkbook.Close

End If

End Sub

模块1代码：

Private Sub auto_open()

Sheet1.Cells(65536, 1).Select ‘定位最下一行，起到隐藏表格内容的效果，当然方法有很多种，这个比较简单

UserForm1.Show

End Sub

这个问题我好像回过，要你李顷补充资料的。

ALT+F11，插入模块后在模块中添加下面的代码。

然后回到sheet1中添加2个自选哪粗陆图形，右击后凳茄为其指定相应宏。

Sub

提取()

t

=

InputBox("请输入要查找的内容：")

y

=

5

Range("a5:p65536").ClearContents

With

Sheets("sheet2")

For

r

=

1

To

.[D65536].End(xlUp).Row

If

InStr(.Cells(r,

4),

t)

Then

.Cells(r,

1).Resize(1,

15).Copy

Cells(y,1)

Cells(y,

16)

=

r

y

=

y

+

1

End

If

Next

End

With

End

Sub

Sub

还原()

With

Sheets("sheet2")

For

r

=

5

To

[P65536].End(xlUp).Row

Cells(r,

1).Resize(1,

15).Copy

.Cells(Cells(r,

16).Value,

1)

Next

End

With

Range("a5:p65536").ClearContents

End

Sub

---