六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

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

Admin | 2012-9-24 7:40:20 | ReadNums | 5391 | 标签 六合开奖结果现场直播 | 打印本页
     

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


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日