转换为Excel中VBA适当的案例
下面我们就来看看在Excel VBA的程序将文本转换为正确的大小写。也就是说，在每一个大写的单词的第一个字母，并以小写所有其他字母。
现状：
1.首先，我们声明两个Range对象。我们呼吁Range对象RNG以及细胞。
Dim rng As Range, cell As Range
2.我们初始化与所选择的范围中的范围对象RNG。
Set rng = Selection
3.我们想要查询在一个随机选择的范围内的每个小区（该范围可以是任何大小的）。在Excel VBA中，你可以使用对于每个Next循环这一点。添加以下代码行：
For Each cell In rng Next cell
注：RNG以及细胞随机选择了这里，你可以使用任何名字。
请记住，是指这些名字在你的代码的其余部分。
4.要忽略包含公式的单元格中，添加间对于每个和Next（仅当cell.HasFormula是假，我们继续）下面的代码行。
If Not cell.HasFormula Then End If
5.接下来，我们要每个字转换在此范围内，以“适当的情况下”。
您可以使用工作表函数正确的完成这个任务。添加以下代码行中的if语句。
cell.Value = WorksheetFunction.Proper(cell.Value)
6.测试程序。
结果：
