vba函数--mid函数_欢乐小爪

http://blog.sina.com.cn/u/2863201322

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

vba函数--mid函数

(2013-01-19 09:48:43)

标签：

杂谈

分类： excel-vba

Mid 函数
一、题目：
要求编写一段代码，用Mid 函数来返回某个字符串中的几个字符。
二、代码：
Sub 示例_1_028()
   Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$
   Myzfc = "HELLO SHANGHAI EXPO 2010"
   qmzfc = Mid(Myzfc, 1, 5) ' 返回 "HELLO"。
mwzfc = Mid(Myzfc, 21, 4) ' 返回 "2010"。
zjzfc = Mid(Myzfc, 7) ' 返回 "SHANGHAI EXPO 2010"。
End Sub
三、代码详解
1、Sub 示例_1_028()：宏程序的开始语句。宏名为示例_1_028。
2、Dim Myzfc$, qmzfc$, mwzfc$, zjzfc$  ：声明变量均为字符串变量。
3、Myzfc = "HELLO SHANGHAI EXPO 2010"    ：把指定的字符串赋给字符串变量Myzfc。
4、qmzfc = Mid(Myzfc, 1, 5)  ：运用Mid 函数从左边第一个字符开始取5个字符，把结果赋给变量qmzfc,返回 "HELLO"。如果函数第2个参数超过第一个参数的字符数，Mid 将返回零长度字符串 ("")。
5、mwzfc = Mid(Myzfc, 21, 4)  ：运用Mid 函数从左边第21个字符开始取4个字符，把结果赋给变量mwzfc,返回 "2010"。
6、zjzfc = Mid(Myzfc, 7)  ：运用Mid 函数从左边第7个字符开始取直到最后的所有的字符，把结果赋给变量zjzfc,返回 "SHANGHAI EXPO 2010"。这里函数第3个参数省略了，表示从第2个参数开始直到最后所有的字符。

Mid 函数
返回 Variant (String)，其中包含字符串中指定数量的字符。

Mid(string, start[, length])
Mid 函数的语法具有下面的命名参数：

string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：vba函数--month函数

后一篇：VBA调用RAR软件进行文件的压缩和解压

新浪BLOG意见反馈留言板　欢迎批评指正