45IT.COM- 电脑学习从此开始!
DIY硬件教程攒机经验装机配置
设计Photoshop网页设计特效
系统注册表DOS系统命令其它
存储主板显卡外设键鼠内存
维修显卡CPU内存打印机
WinXPVistaWin7unix/linux
CPU光驱电源/散热显示器其它
修技主板硬盘键鼠显示器光驱
办公ExcelWordPowerPointWPS
编程数据库CSS脚本PHP
网络局域网QQ服务器
软件网络系统图像安全

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

电脑软硬件应用网 45IT.COM 时间:2011-06-07 12:52 作者:未知

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

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

但这些功能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编写宏 新增按钮快速更改大小写

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

顶一下
(3)
100%
踩一下
(0)
0%
------分隔线----------------------------
无法在这个位置找到: baidushare.htm
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
你可能感兴趣的文章
推荐知识