VBA修改窗体的代码(Excel版)

核心提示：如下的内容，是在Excel的VBA环境下，VBA修改窗体的代码(Excel版)，用来修改窗体的代码的总结，希望对你有帮助，则退出If MsgBox("Continue?", vbYesNo) <> vbYes Then Exit Sub使用常量的组合，赋值组Config变量，一、用户窗体

如下的内容，是在Excel的VBA环境下，用来修改窗体的代码的总结，希望对你有帮助。

一、用户窗体类

显示用户窗体

UserForm1.Show

加载一个用户窗体,但该窗体处于隐藏状态

Load UserForm1

隐藏用户窗体

UserForm1.Hide

卸载用户窗体

Unload UserForm1
　 　　或
Unload Me

在用户窗体中显示图形

Picture1.Picture = LoadPicture("D:\DZWEBS.JPG")

将窗体设置为无模式状态

UserForm1.Show 0
或
UserForm1.Show vbModeless

窗体高度为当前活动窗口高度的0.99

Me.Height = Int(0.99 * ActiveWindow.Height)

窗体宽度为当前活动窗口高度的0.66

Me.Width = Int(0.66 * ActiveWindow.Width)

二、消息框、对话框类

消息框中显示消息dzwebs

MsgBox "dzwebs"

在消息框中点击"是"按钮，则Ans值为vbYes；点击"否"按钮，则Ans值为vbNo

Ans = MsgBox("Continue?", vbYesNo)

返回值不为"是"，则退出

If MsgBox("Continue?", vbYesNo) <> vbYes Then Exit Sub

使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮

Config = vbYesNo + vbQuestion + vbDefaultButton2

在消息框中强制换行，可用vbCrLf代替vbNewLine

MsgBox "This is the first line." & vbNewLine & "Second line."

应用工作表函数返回所选区域的平均值并按指定格式显示

MsgBox "the average is :" & Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count average" & Chr(13)