Excel编写宏-新增按钮快速更改大小写猜你喜欢 _生活百科

经常用Word的朋友都知道，在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”（图1）。

文章插图

但这些功能Excel没有，如果想在Excel中使用这些功能就必须手动修改或者用复杂的公式来进行转换。其实我们可以编写相关的宏，一劳永逸地解决这个问题。
首先绘制四个命令按钮，将按钮上的文字更改为“全部大写”、“全部小写”、“句首字母大写”和“词首字母大写” 。接着分别为每个按钮编写相应的宏代码。
比如“全部大写”按钮，输入代码：
代码片段：
Sub 全部大写（）
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
'将单元格内容转换为大写形式
ran.value = http://www.jslnfj.com/dnbaike/28030/UCase（ran）
Next
End Sub
右击“全部小写”按钮，输入代码：
Sub 全部小写（）
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
'将单元格内容转换为小写形式
ran.value = http://www.jslnfj.com/dnbaike/28030/LCase（ran）
Next
End Sub