随心所欲大小写转换自定义函数

无论是在工作表中，还是VBA编程中，经常需要使用英文字母大小写转换功能。Excel函数中提供了UPPER，LOWER，PROPER三个函数，VBA中提供了UCASE，LCASE两个函数，为什么还要开发类似功能的自定义函数？这并不是重新发明轮子，而是要制造一个功能更完善的轮子也许是一个喷气发动机。
例如：对于这个句子this is a dog from USA.，希望转换为单词首字母大写，并且对于专有名称缩写USA保持大写。工作表函数PROPER的转换结果为This Is A Dog From Usa.，并不能很好的实现这个需求。借助Shape对象的文本处理功能可以实现功能丰富的大小写转换。
示例代码如下。

Public Function fnStrCase(ByVal strLine As String, _Optional intMode As Integer = 4) As StringOn Error Resume NextIf intMode < 1 Or intMode > 5 ThenfnStrCase = "#Err#"ElseWith ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, 0, 0, 0)With .TextFrame2.TextRange.Text = strLine.ChangeCase (intMode)fnStrCase = .TextEnd With.DeleteEnd WithEnd IfOn Error GoTo 0
End Function

工作表中示例数据如下。

A2单元格为原始内容，intMode参数是MsoTextChangeCase 枚举，取整范围1~5，其含义如下。

【代码解析】
第3行代码忽略运行时错误。
第4行代码判断，intMode参数的范围，如果不合规，则返回#Err#。
第7行代码添加一个矩形框，并将大小设置为0，这样就不会影响用户的Excel界面。
第9行代码将需要转换的字符串赋值给Shape对象的Text属性。
第10行代码调用ChangeState方法，转换方式由intMode参数指定。
第11行代码读取转换后的字符串。
第13行代码删除创建的矩形框。
第16行代码恢复系统的错误处理机制。

借助Excel内置对象的法可以非常完美的实现一些需求，比使用基础的字符串函数逐个字符进行判断和处理更简洁高效。

随心所欲大小写转换自定义函数相关推荐

FastReport 金额大小写转换自定义函数
在FastReport中编写金额数字转换大写自定义函数 function MoneyToCharacter(Money:real):string; //数字转换为中文大写 var temp:s ...
oracle十进制函数语法,Oracle 十进制、二进制互相转换自定义函数
Oracle 十进制.二进制相互转换自定义函数 create or replace function number_2_bit(v_num number) return varchar is v_rt ...
[转]Delphi 12种大小写转换的方法
----------第一种方法---------- function TPrintfrm.NumToChar(n: Real): wideString; //可以到万亿,并可随便扩大 const cN ...
Hive自定义函数（字母大小写转换）
自定义Hive的函数,首先需要继承UDF类,然后定义方法名字为evaluate的方法,该方法不能设置void,如果需要返回为空,可以返回为null. 一个简单的大小写转换案例特别注意看注释 pack ...
c大小写转换函数_字符处理——大小写转换编程思路扩展
1.简单实现前面我们实现了首字母大写.转换大写.转换小写3个功能,如果再实现一个大小写互换,有了前面的基础,实现起来应该没什么大问题: Function FUpperLowerSwap(str As ...
php 清除英文字母,PHP英文字母大小写转换函数小结
PHP英文字母大小写转换函数小结发布于 2015-01-23 10:54:41 | 143 次阅读 | 评论: 0 | 来源: 网友投递 PHP开源脚本语言PHP(外文名: Hypertext Pr ...
php 英文小写变大写,PHP英文字母大小写转换函数
例1,每个单词的首字母转换为大写:ucwords() 复制代码代码示例: $foo = 'hello world!'; $foo = ucwords($foo); // He ...
R语言大小写转换函数（tolower, toupper, casefold,chartr)实战
R语言大小写转换函数(tolower, toupper, casefold,chartr)实战目录 R语言大小写转换函数(tolower, toupper, casefold,chartr)实战 # ...
c大小写转换函数_Excel中的大小写金额转换，技巧法和函数法，职场必学技巧
财务工作中,经常需要将小写的数字,转换成大写的数字,有两种方法轻松解决,技巧法以及函数法. 小写转大写技巧法我们选中单元格,然后右键,设置单元格格式(快捷键是CTRL+1),在弹出的设置单元格格式窗 ...

随心所欲大小写转换自定义函数

随心所欲大小写转换自定义函数相关推荐

最新文章

热门文章