VBA修改窗体的代码(Excel版)
2012-09-24 13:50:45 来源:开发学院 闂傚倸鍊搁崐鎼佸磹閹间礁纾归柟闂寸绾惧綊鏌熼梻瀵割槮缁惧墽鎳撻—鍐偓锝庝簻椤掋垺銇勯幇顖毿撻柟渚垮妼椤粓宕卞Δ鈧獮濠勭磽閸屾艾鈧懓顫濋妸鈺佺疅缂佸顑欓崥瀣煕椤愵偅绶氱紓鍐╂礋濮婂宕掑▎鎴М濠电姭鍋撻梺顒€绉甸幆鐐哄箹濞n剙濡肩紒鎰殜閺屸€愁吋鎼粹€茬敖婵炴垶鎸哥粔鐢稿Φ閸曨垰鍐€妞ゆ劦婢€濞岊亪姊虹紒妯诲蔼闁稿海鏁诲濠氭晲婢跺﹤宓嗛梺缁樺姈缁佹挳宕戦幘璇叉嵍妞ゆ挻绋戞禍鐐叏濡厧浜鹃悗姘炬嫹

如下的内容,是在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)
赞助商链接