Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2012-9-24 7:40:20 | 被阅次数 | 10711

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  如下的内容,是在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)


该杂文来自: Excel杂文

上一篇:VBA控制图表之获取图表个数、颜色、添加新图表等

下一篇:隐藏多余的行列

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计