欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


动画演示:Excel表格样式的套用与创建
编写“宏”让Excel自动合并选中单元格内容
Excel自动创建财会工作表超链接目录
拷贝Excel自己设定菜单栏 换台电脑照样用
让Word和Excel表格完成选择录入
教你让Excel里面人名显示更美观地灵活技术
Excel受损文件急救六招
隐藏指定Excel行 不让他们被打印出来
EXCEL视频动画教程大全
手机Excel如何通过关键字快速查找内容
Excel编写宏 新增按钮快速更改大小写
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

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

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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站