VBA是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案,如果你愿意,还可以将EXCEL用做开发平台实现应用程序 ^_~
【20070611】VBA内置方法StrConv使用注意
今天实验一条语句：
MsgBox VBA.StrConv("zzw", vbWide)
总是不成功，提示出错，相当郁闷
看VBA帮助:
常数 值 说明
vbUpperCase 1 将字符串文字转成大写。
vbLowerCase 2 将字符串文字转成小写。
vbProperCase 3 将字符串中每个字的开头字母转成大写。
vbWide* 4* 将字符串中单字节字符转成双字节字符。
vbNarrow* 8* 将字符串中双字节字符转成单字节字符。
vbKatakana** 16** 将字符串中平假名字符转成片假名字符。
vbHiragana** 32** 将字符串中片假名字符转成平假名字符。
vbUnicode 64 根据系统的缺省码页将字符串转成 Unicode。 (在Macintosh中不可用。)
vbFromUnicode 128 将字符串由 Unicode 转成系统的缺省码页。 (在Macintosh中不可用。)
*应用到远东区域。
**仅应用到日本。
----后面的“*应用到远东区域”和“**仅应用到日本”写得还真是小啊...
解决方法是把系统
Control Panel--->
Date, Time, Language, and Regional Options--->
Regional and Language Options里的Standards and formats和Location分别设置为远东区域或日本对应的(如Japanese与Japan)
这些操作不需要重新启动系统或注销，之用重新打开一下Excel就可以了...
然后就运行无误了...
记起上次同事说的一个问题，需要把选中的单元格里面的全角片假名变成半角片假名
可以把的时间和区域设置为日文后:
Sub ToHalfKatakana()
Selection.Value = VBA.StrConv(Selection.Value, vbNarrow)
End Sub
然后给这个过程指定个快捷键比如ctrl+e就可以了。