电脑教程
位置:首页>> 电脑教程>> office教程>> Excel新增按钮快速更改大小写

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

  发布时间:2023-03-18 02:00:49 

标签:Excel新增按钮快速更改大小写

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

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

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com