初始化触发点击事件_初始化窗体,UserForm对象的Initialize事件

加载窗体时会触发Initialize事件。在这个事件中,可以对窗体、变量等进行初始化设置。

Initialize事件

ea7f8db0a0084ff24e9bcb6f5784673d.gif

1.

加载窗体时的初始化事件

我们先看一下案例,我们通过信息录入窗口录入姓名,性别和出生年月。

069e0553b623902a14916690825a3a63.png

首先,我们先对性别输入框附加男和女的选项,使用Initialize在加载窗体时进行初始化。Private Sub UserForm_Initialize()
        性别.List = Array("男", "女")
        End Sub

747d0b3332cd0309542823b82660aa04.png

然后,我们为确定按钮事件过程,点击确定后在我们的工作表中输入该信息。Private Sub CommandButton1_Click()If 姓名.Value = "" Or 性别.Value = "" Or 出生年月.Value = "" Then
MsgBox "信息输入不完整", vbExclamation, "错误提示"
Exit Sub
End If
Dim xrow As Integer
xrow = Range("A1").CurrentRegion.Rows.Count + 1
Cells(xrow, "A") = 姓名.Value
Cells(xrow, "B") = 性别.Value
Cells(xrow, "C") = 出生年月.Value
姓名.Value = ""
性别.Value = ""
出生年月.Value = ""
End Sub最后,我们给取消按钮增加事件过程,点击取消之后关闭界面。Private Sub CommandButton2_Click()Unload Me
     End Sub最后通过动图来看一下,我们信息录入窗体的最终结果。

e6f08083633be0c73a59823791549bf7.gif

END

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值