灯火互联
管理员
管理员
  • 注册日期2011-07-27
  • 发帖数41778
  • QQ
  • 火币41290枚
  • 粉丝1086
  • 关注100
  • 终身成就奖
  • 最爱沙发
  • 忠实会员
  • 灌水天才奖
  • 贴图大师奖
  • 原创先锋奖
  • 特殊贡献奖
  • 宣传大使奖
  • 优秀斑竹奖
  • 社区明星
阅读:4620回复:0

[Excel技巧]Excel新增按钮快速更改大小写

楼主#
更多 发布于:2012-08-31 14:47


 经常用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

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

喜欢0 评分0
游客

返回顶部