下面我们将看一下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.测试程序。
结果: