[已解决]求助高手

ahua004

我是excel菜鸟，请各位高手帮我解读一下这段代码，越详细越好：
Sub ConvertToUpperCase()
Dim Rng As Range
Worksheets("Sheet1").UsedRange.Select
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub

最佳答案

月排行榜 / 总排行榜

hxgfkfb

2011-9-7 17:58

工作表中的小写字母都变成大写


Sub ConvertToUpperCase()                                     '子程序 ConvertToUpperCase()
Dim Rng As Range                                                  '定义变量 Rng 为 单元格区域
Worksheets("Sheet1").UsedRange.Select                  '选定"Sheet1"工作表中已用单元格
For Each Rng In Selection.Cells                                 '设定变量范围为每一个Rng位于所选择的单元格

    If Rng.HasFormula = False Then                           '如果 所选单元格没有公式则执行
       Rng.Value = UCase(Rng.Value)                         'Rng的值，并且用UCase函数转成大写的
    End If                                                              ‘结束IF语句
Next Rng                                                              '循环Rng
End Sub                                                               '结束子程序


UCase()函数用来将小写字母转化为大写字母。

　　UCase 函数 返回 Variant (String)，其中包含转成大写的字符串。

　　其语法为：UCase(string)

　　必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。在UCase()函数中，原本大写或非字母字符保持不变。

　　UCase 函数返回 Variant (String)，其中包含转成大写的字符串。

　　语法

　　UCase(string)

　　必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回Null。

　　说明

　　只有小写的字母会转成大写；原本大写或非字母之字符保持不变。

跳转到最佳答案楼层

hxgfkfb

工作表中的小写字母都变成大写


Sub ConvertToUpperCase()                                     '子程序 ConvertToUpperCase()
Dim Rng As Range                                                  '定义变量 Rng 为 单元格区域
Worksheets("Sheet1").UsedRange.Select                  '选定"Sheet1"工作表中已用单元格
For Each Rng In Selection.Cells                                 '设定变量范围为每一个Rng位于所选择的单元格

    If Rng.HasFormula = False Then                           '如果 所选单元格没有公式则执行
       Rng.Value = UCase(Rng.Value)                         'Rng的值，并且用UCase函数转成大写的
    End If                                                              ‘结束IF语句
Next Rng                                                              '循环Rng
End Sub                                                               '结束子程序


UCase()函数用来将小写字母转化为大写字母。

　　UCase 函数 返回 Variant (String)，其中包含转成大写的字符串。

　　其语法为：UCase(string)

　　必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。在UCase()函数中，原本大写或非字母字符保持不变。

　　UCase 函数返回 Variant (String)，其中包含转成大写的字符串。

　　语法

　　UCase(string)

　　必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回Null。

　　说明

　　只有小写的字母会转成大写；原本大写或非字母之字符保持不变。

hxgfkfb

初学VBA，抛砖引玉，共同学习

hxgfkfb

回复 ahua004 的帖子

好与不好，回个话啊

liuguansky

hxgfkfb 发表于 2011-9-8 17:42
回复 ahua004 的帖子

好与不好，回个话啊

解释的很详细，学习了。