大写一二三四五六七八大九十大写(大写数字转小写)

藏斋文玩 2021-05-11 阅读:56
披毛犀角,虬角,独角,抹香微信号:5735363
大写一二三四五六七八大九十大写(大写数字转小写)No.1
英文字母分大小写,如何相互转换大小写,也是个很常用的功能。
统一的大小写可以让表格看起来更加美观。
本节介绍两个Vba函数,实现字母大小写转换。
 
No.2
小写字母转换成大写字母
使用UCase函数,可以将小写字母转换成大写字母,转换的对象为字符串,数字或符号没有意义保持不变,如果本身就是大写字母,也保持不变。
语法:
UCase(String)
 
示例:
Dim Str as StringStr="AbcDef"msgbox UCase(Str)'输出"ABCDEF"
No.3
大写字母转换成小写字母
使用LCase函数,可以将大写字母转换成小写字母,转换的对象为字符串,数字或符号没有意义保持不变,如果本身就是小写字母,也保持不变。
语法:
LCase(String)
 
示例:
Dim Str as StringStr="AbcDef"msgbox LCase(Str)'输出"abcdef"
No.4
实例说明
下图中将一列字符串转换成大写或小写。
 
这两个函数的应用,还是十分简单的。
主要应用于数据检索、录入、比较等方面。
VBA实际上对字母大小写不敏感,所以应用的时候也不十分确切。
重点是对于数据有字母大小写要求的情况下使用。
No.5
实例代码:
 
Private Sub CommandButton1_Click()Dim cell As Range, Xcell As RangeSet cell = ActiveSheet.Range("B3:B7")For Each Xcell In cell With Xcell .Offset(0, 1).Value = LCase(.Value) .Offset(0, 7).Value = UCase(.Value) End WithNext XcellEnd Sub
本例代码精简成几行,如果认真学习它的用法的时候,可以写出详细的使用过程。
这里就偷懒了。
顺便说一下,如果想要使首字母变成大写可以使用如下代码:
Ranges.Characters(1, 1).Text = UCase(.Characters(1, 1).Caption)
用到Characters对象进行第一个字母设置。
大小写字母转换很简单,如果合理应用,可以起到很重要的作用,在一些数据检索当中,会用到,所以要知道并学会应用。
欢迎关注、收藏
---END---



能够收藏一件好的文玩是一种缘分,很多朋友想入手文玩,可是因为了解不是很深,所以担心买到假货,您可以关注【微信号:5735363】,我们为您免费提供更多文玩资讯、鉴定等咨询服务。