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对象进行第一个字母设置。

大小写字母转换很简单，如果合理应用，可以起到很重要的作用，在一些数据检索当中，会用到，所以要知道并学会应用。