今天看啥
热点:

    经常用Word的朋友都知道,在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”(图1)。但这些功能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

    句首字母大写和词首字母大写的代码太长,大家可以到http://www.icpcwo.com/bzsoft下载。完成以上操作后按钮就可以使用了。选中目标单元格区域,单击相应的转换按钮,被选中的英文字符就立即转换成我们想要的大小写了(图2)。

 


    经常用Word的朋友都知道,在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”(图1)。但这些功能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

    句首字母大写和词首字母大写的代码太长,大家可以到http://www.icpcwo.com/bzsoft下载。完成以上操作后按钮就可以使用了。选中目标单元格区域,单击相应的转换按钮,被选中的英文字符就立即转换成我们想要的大小写了(图2)。

 


www.bkjia.comtruehttp://www.bkjia.com/remen/remen_148741.htmlTechArticle经常用Word的朋友都知道,在Word中可以方便地更改英文字符的“大写”、“小写”、“句首字母大写”和“词首字母大写”(图1)。但这些...

相关文章

    暂无相关文章
相关搜索:
相关频道:

帮客评论

视觉看点