Excel新增按钮快速更改大小写

　首先绘制四个命令按钮，将按钮上的文字更改为“全部大写”、“全部小写”、“句首字母大写”和“词首字母大写”。接着分别为每个按钮编写相应的宏代码。　　

　　比如“全部大写”按钮，输入代码：　　

　　代码片段：

　　Sub 全部大写（）

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'将单元格内容转换为大写形式

　　ran.value = UCase（ran）

　　Next

　　End Sub

　　右击“全部小写”按钮，输入代码：

　　Sub 全部小写（）

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'将单元格内容转换为小写形式

　　ran.value = LCase（ran）

　　Next

　　End Sub　　

　　完成以上操作后按钮就可以使用了。选中目标单元格区域，单击相应的转换按钮，被选中的英文字符就立即转换成我们想要的大小写了。