WEB开发网
开发学院软件教学办公软件Excel VBA修改窗体的代码(Excel版) 阅读

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

 2012-09-24 13:50:45 来源:开发学院   
核心提示:如下的内容,是在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)

Tags:VBA 修改 窗体

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接