青岛开发区妓女:Excel新增按钮快速更改大小写
来源:百度文库 编辑:九乡新闻网 时间:2024/04/30 08:05:36
http://www.pc120.net.cn/home/Excel/140325774.htm 经常用Word的朋友都知道,在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”。
但这些功能Excel没有,如果想在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
完成以上操作后按钮就可以使用了。选中目标单元格区域,单击相应的转换按钮,被选中的英文字符就立即转换成我们想要的大小写了
但这些功能Excel没有,如果想在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
完成以上操作后按钮就可以使用了。选中目标单元格区域,单击相应的转换按钮,被选中的英文字符就立即转换成我们想要的大小写了
Excel新增按钮快速更改大小写
excel大小写切换
excel中 大小写数字的转换
Excel自动转换数字大小写a
Excel中区分大小写的查找
自定义Excel计算器按钮
快速更改Word文档行距
Excel动画教程:按钮调用“宏”
Excel动画教程:更改Excel缺省文件保存位置
快速查看Excel
快速完成Excel操作
快速查看Excel公式
EXCEL快速操作技巧
快速清除Excel表格格式
Excel动画教程:行列快速转换
Excel 电子表格快速输入技巧
快速加入Excel隔空行
EXCEL几则快速操作
Excel中快速输入特殊符号
Excel 电子表格快速输入技巧
如何更改多个Excel工作表数据的合并计算
在Excel中不需公式也能进行快速计算Excel
CSS控制大小写
数字大小写互换