使窗体的关闭按纽失效

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbformcontrdmenu Then

MsgBox "请用关闭按钮关闭窗口!!", 64, "提示"

Cancel = True

End If

End Sub

使窗体在3秒后自动关闭

Private Sub UserForm_Activate()

Application.Wait Now + TimeValue("00:00:03")

UserForm1.Hide

End Sub

启动窗体的时候自动使Label1显示Sheet1工作表3列,8行的内容

Private Sub UserForm_Activate()

Label1.Caption = Sheets("sheet1").Cells(3, 8)

End Sub

让按纽CommandButton1在窗体上以不可用状态显示

CommandButton1.Enabled = False

让按纽Commandbutton1在窗体上以隐藏方式存在

CommandButton10.Visible = False

点击Commandbutton1按纽进入”工资”工作表

Sheets("工资").Select

在Textbox1中输入数据,窗体可显示出”工资”工作表中与输入内容关联的项

Private Sub TextBox1_Change()

For X = 1 To Application.CountA(Sheets("工资").Range("a:a"))

If Sheets("工资").Cells(X, 1) = TextBox1.Text Then’在工资表第一列查找与Textbox1输入相符的项

Label2.Caption = Sheets("工资").Cells(X, 2)’在Label2中显示Textbox1数据所在的第二列的数据

Label7.Caption = Sheets("工资").Cells(X, 3) ’在Label2中显示Textbox1数据所在的第三列的数据 End If

Next

End Sub

使EXCEL启动的时候自动最小化/最大化

Private Sub Workbook_Open()

Application.WindowState = xlMinimized’最小化

Application.WindowState = xlMaximized’最大化

End Sub

在Label25以数字的形式显示TextBox12×Label14的结果

Label25.Caption = Val(TextBox12.Text) * Val(Label14.Caption)

单选按纽名与Sheet6工作表名相同

OptionButton6.Caption = Sheet6.Name

”登陆”窗体的显示,隐藏

登陆.Show’显示

登陆.Hide’隐藏