XL2000： 更改文本的大小写的示例宏代码

文章编号: 213649 - 查看本文应用于的产品
机器翻译查看机器翻译免责声明
为这篇文章的一个 Microsoft Excel 2002 版本，请参阅 291323
(http://support.microsoft.com/kb/291323/EN-US/ )
。
有关 Microsoft Excel 98 和早期版本的这篇文章中，请参阅 141094
(http://support.microsoft.com/kb/141094/EN-US/ )
。
展开全部 | 关闭全部

本页

概要

尽管 Microsoft Excel 函数更改文本的大小写，但是有的时间时您可能希望以编程方式更改文本的大小写。

本文包含三个示例 Microsoft Visual Basic 应用程序 （Sub 过程） 的宏可用于将文本字符串中的字母更改为全部大写、 全部为小写或词首大写 （每个单词中的第一个字母大写）。 这些操作是类似于 Excel 的函数 = UPPER()、 LOWER()，= 和 = PROPER()。
回到顶端 | 提供反馈

更多信息

Microsoft 提供的编程示例只，用于说明不附带任何明示或暗示保证。这包括，但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能，但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。

改为大写信函区域中的所有文本的宏

Sub Uppercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("A1:A5")
      ' Change the text in the range to uppercase letters.
      x.Value = UCase(x.value)
   Next
End Sub

在范围中的所有文本改为小写字母的宏

Sub Lowercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("B1:B5")
      x.Value = LCase(x.Value)
   Next
End Sub

在单元格区域中的所有文本改为词首大写信函的宏

Sub Proper_Case()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("C1:C5")
      ' There is not a Proper function in Visual Basic for Applications.
      ' So, you must use the worksheet function in the following form:
      x.Value = Application.Proper(x.Value)
   Next
End Sub

测试示例宏

若要测试示例宏，请按照下列步骤操作：
  1. 在工作簿中包含该宏下面的示例数据输入到一个新的工作表： 
        A1: toM         B1: toM        C1: toM
    A2: sUe         B2: sUe        C2: sUe
    A3: joe SMITH   B3: joe SMITH  C3: joe SMITH
    A4: mary        B4: mary       C4: mary
    A5: LORI        B5: LORI       C5: LORI
    注： 本示例数据包含的各种情况下，您可以使用来验证每个宏的工作方式设置格式的文本。
  2. 运行每个宏。
在读取"为每个 x 中..."的行） 中的宏指定为区域内文字将在大写、 小写，或初始大写适当地进行格式化。
回到顶端 | 提供反馈

参考

有关帮助您使用 vba 的应用程序的其他信息，请参阅 Microsoft 知识库中下面的文章：
226118
(http://support.microsoft.com/kb/226118/EN-US/ )
OFF2000： 为应用程序的 Visual Basic 编程资源
回到顶端 | 提供反馈

属性

文章编号: 213649 - 最后修改: 2006年10月11日 - 修订: 4.2
这篇文章中的信息适用于:
  • Microsoft Excel 2000 标准版
关键字：?
kbmt kbdtacode kbhowto kbprogramming KB213649 KbMtzh
机器翻译
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版： 213649
(http://support.microsoft.com/kb/213649/en-us/ )
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
回到顶端 | 提供反馈

提供反馈

 
回到顶端回到顶端