返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

excel VBA 处理字符串详解教程(3)

时间:2012-06-17 02:14来源:Office教程学习网 www.office68.com编辑:麦田守望者

范例:Format("02/02/2007","dddd")
返回:Friday
ddddd
元素:日期
显示:基于计算机Windows国际设置短日期格式的日期。
范例:Format("02/02/2007","ddddd")
返回:2007-2-2
h
元素:小时
显示:0~23范围内的一个数字,无前导0。
范例:Format("05:08:06","h")
返回:5
hh
元素:小时
显示:00~23范围内的一个数字,有前导0。
范例:Format("05:08:06","hh")
返回:05
n
元素:分
显示:0~59范围内的一个数字,无前导0。
范例:Format("05:08:06","n")
返回:8
nn
元素:分
显示:00~59范围内的一个数字,有前导0。
范例:Format("05:08:06","nn")
返回:08
s
元素:秒
显示:0~59范围内的一个数字,无前导0。
范例:Format("05:08:06","s")
返回:6
ss
元素:秒
显示:00~59范围内的一个数字,有前导0。
范例:Format("05:08:06","ss")
返回:06
ttttt
元素:时间
显示:基于12小时制的时间,包含Windows区域设置中指定的时间分隔符和前导0。
范例:Format("05:08:06","ttttt")
返回:5:08:06
AM/PM
元素:时间
显示:用大写的AM和PM表示的12小时制的时钟格式。
范例:Format("17:08:06","hh:mm:ss AM/PM")
返回:05:08:06 PM
am/pm
元素:时间
显示:用小写的am和pm表示的12小时制时钟格式。
范例:Format("17:08:06","hh:mm:ss am/pm")
返回:05:08:06 pm
A/P
元素:时间
显示:12小时制时钟格式,用大写“A”表示AM,大写“P”表示PM。
范例:Format("17:08:06","hh:mm:ss A/P")
返回:05:08:06 P
a/p
元素:时间
显示:12小时制时钟格式,用小写“a”表示am,小写“p”表示pm。
范例:Format("17:08:06","hh:mm:ss a/p")
返回:05:08:06 p

元素:时间分隔符
显示:时间格式
范例:Format("17:08:06","hh:mm:ss")
返回:17:08:06
w
元素:星期几
显示:1~7范围内的一个数字(1~7分别表示星期天到星期六)。
范例:Format("02/02/2007","w")
返回:6
ww
元素:周
显示:1~54范围内的一个数字。
范例:Format("02/02/2007","ww")
返回:5
m
元素:月
显示:1~12范围内的一个数字,无前导0。
范例:Format("02/02/2007","m")
返回:2
mm
元素:月
显示:01~12范围内的一个数字,有前导0。
范例:Format("02/02/2007","mm")
返回:02
mmm
元素:月
显示:英文月份简写(Jan~Dec)
范例:Format("02/02/2007","mmm")
返回:Feb
mmmm
元素:月
显示:英文月份全称(January~December)
范例:Format("02/02/2007","mmmm")
返回:February
q
元素:季度
显示:1~4范围内的一个数字
范例:Format("02/02/2007","q")
返回:1
y
元素:一年中的某天
显示:1~366范围内的一个数字。
范例:Format("02/02/2007","y")
返回:33
yy
元素:年
显示:00~99范围内的一个两位数字。
范例:Format("02/02/2007","yy")
返回:07
yyyy
元素:年
显示:100~9999范围内的一个四位数字。
范例:Format("02/02/2007","yyyy")
返回:2007
(7)用于创建用户自定义数字格式的字符
0
说明:数字占位符。如果参数expression所代表的数值在相应的0位置上有一个数字,则显示这个数字,否则显示0。所指定的小数点后的位数,使数值舍入为给定的小数位数,但不影响小数点左边的数字位数。
范例1:Format(23.675,"00.0000") 返回:23.6750
范例2:Format(23.675,"00.00") 返回:23.68
范例3:Format(2345,"00000") 返回:02345
范例4:Format(2345,"00.00") 返回:2345.00
#
说明:数字占位符。如果参数expression所代表的数值在相应的#位置上有一个数字,则显示这个数字,否则什么也不显示。
范例1:Format(23.675,"##.##") 返回:23.68
范例2:Format(23.675,"##.####") 返回:23.675
范例3:Format(12345.25,"#,###.##") 返回:12,345.25
.
说明:小数点占位符。小数点占位符实际显示的字符由本机Windows系统国际设置格式决定。
%
说明:百分数占位符。首先将参数expression所代表的数值乘以100,然后把它作为百分数显示。
范例:Format(0.25,"##.00%") 返回:25.00%

说明:千位分隔符。实际显示的字符由本机Windows系统国际设置格式决定。在格式定义中只需要给出一个千位分隔符。
范例:Format(1000000,"#,###") 返回:1,000,000
E-E+ e-e+
说明:科学计数法格式。如果格式表达式在E-、E+或e-、e+的右边至少有一个数字占位符(0或#),数字就以科学计数法格式显示数字,参数Format中所用的字母E或e在该数字和它的指数之间显示。右边的数字占位符数目决定了要在指数中显示的位数。使用E-或e-可以在负指数前插入一个减号,使用E+或e+可以在正指数前插入一个正号。
范例:Format(1.09837555,"######E-###") 返回:109838E-5
-+$
说明:显示一个直接量字符。
范例:Format(2345.25,"$#,###.##") 返回:$2,345.25
\
说明:反斜杠后的字符以直接量字符显示。可以用反斜杠将某个特定格式的字符以直接量字符显示。
范例:Format(0.25,"##.##\%") 返回:.25%
(8) 用于创建用户自定义字符串格式的字符
@
说明:字符占位符。如果expression在相应的@位置上有一个字符,就显示这个字符,否则显示一个空格。
范例:Format("VBA","\*@\*@@@@@") 返回:* * VBA
&
说明:字符占位符。如果expression在相应的&位置上有一个字符,就显示这个字符,否则什么也不显示。
范例:Format("VBA","\*&&\*&&&&") 返回:**VBA
<
说明:用小写形式显示所有字符。
范例:Format("VBA","<") 返回:vba
>
说明:用大写形式显示所有字符。
范例:Format("vba",">") 返回:VBA

说明:从左向右处理占位符(缺省情况为从右向左处理占位符)。
[编程方法和技巧]
(1) 使用没有格式定义的Format函数格式化数字比使用Str函数格式化数字更好。Format函数与Str函数不同,它会把正数中一般保留用于表示符号的前导空格清除掉。
(2) 可以使用Format函数以1000为单位对数字进行标度,做法是在语句中小数点的左边用一个千位分隔符(,)表示标度数字的一个千位;可以使用多个千位分隔符。例如:
Format(1000000,"##0,.") 返回:1000.
Format(1000000,"##0,,.") 返回:1.
<未完待续......>


2.6 查找字符串
2.6.1 InStr函数
可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为:
InStr([Start,]string1,string2[,compare])
其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符串,参数string2为要查找的字符串,这两个参数都是必需的。
如果在String1中没有找到String2,返回0;如果找到String2,则返回String2第一个出现的首字符位置(即1到String1的长度);如果String2的长度为零,返回Start。
可看看下面的示例:
Sub test()
Dim SearchString, SearchChar, MyPos
SearchString = "XXpXXpXXPXXP" '被搜索的字符串
SearchChar = "P" '要查找字符串 "P"
'从第四个字符开始,以文本比较的方式找起,返回值为 6(小写 p)
'小写 p 和大写 P 在文本比较下是一样的
MyPos = InStr(4, SearchString, SearchChar, 1)
Debug.Print MyPos
'从第一个字符开使,以二进制比较的方式找起,返回值为 9(大写 P)
'小写 p 和大写 P 在二进制比较下是不一样的
MyPos = InStr(1, SearchString, SearchChar, 0)
Debug.Print MyPos
'缺省的比对方式为二进制比较(最后一个参数可省略)
MyPos = InStr(SearchString, SearchChar) '返回 9
Debug.Print MyPos
MyPos = InStr(1, SearchString, "W") '返回 0

------分隔线----------------------------
标签(Tag):excel excel2007 excel2010 excel2003 excel技巧 excel教程 excel实例教程 excel2010技巧
------分隔线----------------------------
推荐内容
猜你感兴趣