 |
|||||||||||||
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装打开EXCEL时无法找到startup.xls文件的解决方法
怎样让Excel录入数据时自动添加计量单位
excel中快速求倍数技巧
鼠标双击在Excel中的妙用
在Excel中巧做复杂表头
Win10系统玩鬼泣4键盘按键失灵了怎么办？
如何查看安卓平板电脑版本号
给Excel表格中的数据批量添加各种符号
win10如何禁止自动安装应用？
Win10桌面背景设置不了怎么办
Excel新增按钮快速更改大小写
【 来源：网络 】【 点击：1 】 【 发布时间：2017_03_03 08:59:59 】
经常用Word的朋友都知道，在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”。
但这些功能Excel没有，如果想在Excel中使用这些功能就必须手动修改或者用复杂的公式来进行转换。其实我们可以编写相关的宏，一劳永逸地解决这个问题。
首先绘制四个命令按钮，将按钮上的文字更改为“全部大写”、“全部小写”、“句首字母大写”和“词首字母大写”。接着分别为每个按钮编写相应的宏代码。
比如“全部大写”按钮，输入代码：
代码片段：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Sub 全部大写（）
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
'将单元格内容转换为大写形式
ran.value = UCase（ran）
Next
End Sub |
右击“全部小写”按钮，输入代码：
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Sub 全部小写（）
Dim itarget As Range
Set itarget = Selection
For Each ran In itarget
'将单元格内容转换为小写形式
ran.value = LCase（ran）
Next
End Sub |
完成以上操作后按钮就可以使用了。选中目标单元格区域，单击相应的转换按钮，被选中的英文字符就立即转换成我们想要的大小写了。