最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 9943|回复: 28

[VBA/VBS教程] 【VBA For ET 教材连载系列】二十七

[复制链接]

397

主题

72

听众

3057

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
3
威望
5028
帖子
2011
精华
11

特殊贡献奖 最佳教程奖 活跃会员奖

发表于 2009-8-7 17:12 |显示全部楼层
分享到: 新浪微博 腾讯微博
       VBA中有很多语句,常用语句包括输入输出语句、循环语句、条件语句、With语句及防错语句。从本节开始,将陆续介绍以上所有语句的语法及用途,并提供大量案例加深读者对各语句的理解。1 w5 O6 _/ {7 }4 F/ }8 b
      本篇介绍输入输出语句之MSGBOX函数之功能与作用。
7 f& F; M- C/ R- V% i, j4 D( b      VBA最常见的信息输出函数是Msgbox函数。在英文中,Msg表示Message,即消息,而Msgbox则表示信息框。顾名思义,Msgbox是用于在屏幕中显示一些信息的对话框,告诉用户需要做什么,或者程序运算的结果,或者某操作的步骤说明等等等等,它的作用极其广泛。- i# K  F  l* |, t; t
如果一定要对Msgbox的用途做一归纳,那么笔者认为可以站在开发者立场,对程序开发中它所具备的功能做一分类。9 l7 H3 a) e2 k' Q8 U
l返回运算结果
# a' ]4 b3 n! L: t      告诉用户VBA的运算结果通常有三种模式:存入工作表、打印到文件和利用消息框返回结果。通常对于临时性的、不需要储存的信息可以利用对话框来展示,它的特点是关闭窗口后就完全消失,不占用任何内存空间和单元格、区域。
  z* V* F" ?' T8 f5 ~: Q$ Rl询问执行方式
, k/ h; B. S* R& f4 k; A      对于某些有多种执行选项的操作,例如隔行着色工作表,它可以对奇数行着色,也可以对偶数行着色,为了体现程序的通用性和灵活性时,往往弹出一个提示框让用户选择执行方式,这是最佳的程序开发思路。
4 |/ V8 m& B9 I2 F/ G2 p例如图27.1,用户单击不同按钮时,VBA会进行不同的执行方式。1 K6 _% L& R% t7 m9 e+ \6 ^1 D8 {

9 |7 ~' q7 f- N' @+ ^: r9 g
3 |+ n, a" F2 l3 |- v* r; |27.1 利用Msgbox询间执行方式- c  p; x6 _, [3 Q6 m2 k+ S5 \4 m3 E
l提示执行步骤  u9 A" \! s/ a* V: r" H" s
      在设计VBA程序时,如果后续需执行的操作较复杂,应该通过一个消息框来提示用户。包括该程序大概有多少步骤,各步骤中需要注意哪些问题,或者在什么情况下需要跳过什么步骤等,从而减少程序出错的机率。: \( F# i1 @0 e. \, a4 M$ E
l告知错误原因  U! N1 c9 G% o5 a  n
      终端用户在执行VBA程序时,总会有或多或少的错误产生。有时是程序员粗心写错代码造成,有时是代码的兼容性造成,有时是代码完全正确但用户的数据不规范造成。而VBA很多时候返回的错误提示让人摸不着头脑,程序员有必要预先设置更有意义的错误提示,告诉用户产生此错误的可能情况。
$ q6 K/ l7 e$ k% I" q      例如,当工作表保护时执行以下语句,一定会产生图27.2所示的错误提示:
' M4 z+ ^$ l+ B& ?" @      Sheets("生产表").Range("A1")100& U% V/ R# d' g& n- G
      从图片和代码进行分析,错误提示与代码实际出错的原因风马牛不相及,这完全不利于终端用户了解程序出错的原因。为了避免这种差错,开发程者需要通过一个信息框来展示更有意义的错误提示。例如图10.3,用户可以立刻明白错误原因,从而修正执行方式。
- X- E) B$ Y: M, X( C( k6 F3 l
( R$ A# U9 S0 o% z; U3 D  W- o/ }7 E! q5 T( G" E
! J: n, p7 M" [- G5 j
27.2 工作表保护时执行单元格写入所产生的提示 7 |: t0 ]5 U( [: Z

( j- G% o# L5 v8 U3 i3 f( F! U6 Z6 h, w4 H

7 p3 v: `* r8 s1 Y4 \; @" U3 C  27.3 定义更有意义的提示框
  v) ^8 {9 Q! y) l9 N" u2 ll展示当前状态4 ]4 y+ ^3 e, s! {
      类似于DOS程序中“请按任意键继续……”一样,VBA也可以在程序执行时显示当前的状态,然后当用户单击回车后再继续执行。
( n6 O2 K* w* F" y, J. z; n6 o# Kl设计程序帮助  b% |  n. ^7 b( A& J% o
      软件的所有功能都应有相应的说明信息,利用VBA开发程序时也需要设计一个完善的帮助系统,不管这个系统大小如。帮助通常包括三方面的内容:, b& O' l' [. M) d- e& o
1)程序功能说明
' e* c+ d/ X; r. H2)程序版本及各版本修改内容阐述
$ |: m7 b5 H% J3 y2 E0 J) g3)本程序适用范围,即兼容哪些程序版本,或者适用哪个行业
4 g! L5 T. T$ L6 v9 ?# E当然,利用Msgbox制作帮助界面受字符长度限制,只能提供一些简单且简短的信息。在后面的章节中将详述突出Msgbox 限制之方法。( i# t9 a* y$ L$ b
! \0 X, R" d8 T  d2 y2 l# b

: R  M/ ?% h3 n, ?; Q( b' D) J

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
4
帖子
2
精华
0
发表于 2011-9-8 14:50 |显示全部楼层
:) 这么好的贴都没人顶。
回复

使用道具 举报

110

主题

18

听众

2万

积分

LV.17

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

签到天数: 1186 天

[LV.10]以坛为家III

金币
2075
威望
66962
帖子
4077
精华
0

优秀会员奖 活跃会员奖

发表于 2015-1-4 13:37 |显示全部楼层
参考一下            
回复

使用道具 举报

110

主题

18

听众

2万

积分

LV.17

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

签到天数: 1186 天

[LV.10]以坛为家III

金币
2075
威望
66962
帖子
4077
精华
0

优秀会员奖 活跃会员奖

发表于 2015-4-19 11:17 |显示全部楼层
jsdbplt 发表于 2015-1-4 13:37
; `* y, r! K% j: c8 ~/ K参考一下

9 S& b1 A9 n% e& f+ X了解一下        
回复

使用道具 举报

1

主题

1

听众

6

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
3
帖子
10
精华
0
发表于 2015-4-22 10:27 |显示全部楼层
学习了,谢谢
回复

使用道具 举报

0

主题

1

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
2
帖子
6
精华
0
发表于 2015-4-23 09:23 |显示全部楼层
楼主行库 楼主新路楼主行库 楼主新路楼主行库 楼主新路
回复

使用道具 举报

0

主题

1

听众

5

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
2
帖子
9
精华
0
发表于 2015-4-27 14:06 |显示全部楼层
谢谢楼主分享!!!
回复

使用道具 举报

3

主题

3

听众

1万

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1192 天

[LV.10]以坛为家III

金币
2355
威望
27076
帖子
3385
精华
0

优秀会员奖

发表于 2015-5-3 08:35 |显示全部楼层
: M% w6 y$ \. @  U
好帖子,来支持了!
回复

使用道具 举报

1

主题

1

听众

11

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
4
威望
10
帖子
15
精华
0
发表于 2015-5-4 16:40 |显示全部楼层
谢谢楼主,感谢分享,赞1个
回复

使用道具 举报

2

主题

1

听众

15

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
12
精华
0
发表于 2015-5-6 10:31 |显示全部楼层
好帖子,支持一下
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-25 09:35

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部