日记首页  | 列表 | 添加日记  | 管理登陆 标题：vba代码记录-窗体 <p style="margin: 13px 0px; padding: 0px; line-height: 25px; background-color: rgb(247, 252, 255);"><font color="#444444" face="Tahoma, Helvetica, Arial, 宋体, sans-serif"><span style="font-size: 14px;">vba代码记录-打开窗体/关闭窗体</span></font></p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">如下的内容，是在Excel的VBA环境下，用来<strong>修改</strong>窗体的<strong>代码</strong>的总结，希望对你有帮助。</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);"><strong>一、用户窗体类</strong></p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">显示用户窗体（打开窗体）</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">UserForm1.Show</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">加载一个用户窗体,但该窗体处于隐藏状态</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Load UserForm1</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">隐藏用户窗体</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">UserForm1.Hide</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">卸载用户窗体（关闭窗体）</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Unload UserForm1<br>　 　　或<br>Unload Me</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">在用户窗体中显示图形</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Picture1.Picture = LoadPicture("D:\DZWEBS.JPG")</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">将窗体设置为无模式状态</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">UserForm1.Show 0<br>或<br>UserForm1.Show vbModeless</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">窗体高度为当前活动窗口高度的0.99</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Me.Height = Int(0.99 * ActiveWindow.Height)</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">窗体宽度为当前活动窗口高度的0.66</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Me.Width = Int(0.66 * ActiveWindow.Width)</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);"><strong>二、消息框、对话框类</strong></p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">消息框中显示消息dzwebs</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">MsgBox "dzwebs"</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">在消息框中点击"是"按钮，则Ans值为vbYes；点击"否"按钮，则Ans值为vbNo</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Ans = MsgBox("Continue?", vbYesNo)</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">返回值不为"是"，则退出</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">If MsgBox("Continue?", vbYesNo) &lt;&gt; vbYes Then Exit Sub</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">Config = vbYesNo + vbQuestion + vbDefaultButton2</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">在消息框中强制换行，可用vbCrLf代替vbNewLine</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">MsgBox "This is the first line." &amp; vbNewLine &amp; "Second line."</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">应用工作表函数返回所选区域的平均值并按指定格式显示</p><p style="font-family: Tahoma, Helvetica, Arial, 宋体, sans-serif; font-size: 10.5pt; margin: 13px 0px; padding: 0px; line-height: 25px; color: rgb(68, 68, 68); background-color: rgb(247, 252, 255);">MsgBox "the average is :" &amp; Format(Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "selection count average" &amp; Chr(13)</p>