小兔网

下面我们将看一下Excel VBA中的一个程序,该程序将文本转换为适当的大小写也就是说,每个单词中的第一个字母均以大写字母表示,所有其他字母均以小写字母表示。

情况:

在Excel VBA中转换为适当大小写

1.首先,我们声明两个Range对象。我们将Range对象称为rng和cell。

昏暗的 RNG 作为范围,电池作为范围

2.我们使用所选范围初始化Range对象rng。

设置 rng =选择

3.我们要检查随机选择范围内的每个像元(该范围可以是任何大小)。在Excel VBA中,可以为此使用“每个下一个”循环。添加以下代码行:

对于 每个细胞 RNG

接着细胞

注意:这里随机选择rng和cell,您可以使用任何名称。请记住在其余代码中引用这些名称。

4.要忽略包含公式的单元格,请在For Each和Next之间添加以下代码行(仅当cell.HasFormula为false时,我们才继续)。

如果  cell.HasFormula 然后

结束 。如果

5.接下来,我们要将该范围内的每个单词转换为“适当的大小写”。您可以使用工作表功能正确执行此任务。在您的if语句中添加以下代码行。

cell.Value = WorksheetFunction.Proper(cell.Value)

6.测试程序。

结果:

转换为适当的案件结果