變更 Excel 之文字大小寫的範例巨集程式碼

結論

雖然 Microsoft Excel 具備變更文字大小寫的功能，不過您有時候可能會想要以程式設計方式來變更文字的大小寫。

本文包含三個 Microsoft Visual Basic for Applications 巨集 (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

参考

如需有關如何使用工作表函數來變更文字大小寫的詳細資訊，請按一下下面的文件編號，檢視「Microsoft 知識庫」中的文件：

263580How to change the case of text in Excel

如需有關如何取得 Visual Basic for Applications 說明的詳細資訊，請按一下下面的文件編號，檢視「Microsoft 知識庫」中的文件：

305326List of programming resources for Visual Basic for Applications