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

2016-02-19 21:30 10 1 收藏

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的Excel编写宏 新增按钮快速更改大小写,过去的都会过去,迎接崭新的开始,释放更美好的自己。

【 tulaoshi.com - Excel教程 】

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

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

电脑教程

但这些功能Excel没有,如果想在Excel中使用这些功能就必须手动修改或者用复杂的公式来进行转换。其实我们可以编写相关的宏,一劳永逸地解决这个问题。

首先绘制四个命令按钮,将按钮上的文字更改为全部大写、全部小写、句首字母大写和词首字母大写。接着分别为每个按钮编写相应的宏代码。

比如全部大写按钮,输入代码:

代码片段:

Sub 全部大写()

Dim itarget As Range

Set itarget = Selection

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

For Each ran In itarget

"将单元格内容转换为大写形式

ran.value = UCase(ran)

Next

End Sub

右击全部小写按钮,输入代码:

Sub 全部小写()

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

Dim itarget As Range

Set itarget = Selection

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

For Each ran In itarget

"将单元格内容转换为小写形式

ran.value = LCase(ran)

Next

End Sub

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

来源:https://www.tulaoshi.com/n/20160219/1626314.html

延伸阅读
标签: Web开发
javascript 中 indexOf 是严格区分大小写的 如何才能忽略大小写呢? 把他们全都换成大写或小写,再比较就可以了 indexOf对象内第一次出现子字符串的字符位置 用toLowerCase或toUpperCase scriptvar testStr = 'ABCDEF';var subStr = 'bcd'; alert(testStr.toLowerCase().indexOf(subStr.toLowerC...
标签: word
Word2007中大小写字母转换   在编辑文档的时候,对文档中的文本会进行很多方面的设置,如上面提过的字体以及字体大小、效果等等,而在文档中我们也会输入英文文本,而常常要对英文文本进行大小写转换设置。 第1步,打开Word2007文档窗口,选中需要更改大小写的英文字符文本块。在开始功能区的字体分组中单击更改大小写按钮。 ...
标签: 电脑入门
知识点分析: 正常手写输入的是大写,识别出来既是大写,手写输入小写既是小写,如图: 但若输入的为S这样的大小写一样的字母时,便不好判断大小写。 操作步骤: 其实大小写可以在输入面板中切换: 点击字母上方的向下小三角,在里面去选择即可,如图:
标签: 电脑入门
在我们日常使用电脑的过程中,打字母的时候会经常要用到大小写切换的功能,这时我们一般会用Shift键来实现大小写切换。可是键盘上还有个Caps Lock键也是用来实现大小写切换的,虽然不常用,但有时候盲打会不小心按到这个按键,如果是打字就会很快发现,但如果是输入密码就看不到已经切换了状态从而导致密码错误。 有时候本来是要按Shift或者Ta...
标签: ASP
  <!--#include file=common.asp-- <% dim tmpnum '从第一张页面传过来的小写金额 tmpnum=request("page1num") '调用并显示大写金额 response.write rmb(cdbl(tmpnum)) response.end % common.asp <% Function rmb(num) num = FormatNumber(num, 2) Dim numList Dim rmbList Dim numLen Dim numChar Dim numstr Dim n Dim...

经验教程

769

收藏

87
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部