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

關於本文的 Microsoft Excel 2000 版本，請參見 213649 。

關於Microsoft Excel 98 及更早版本的文章，請參見 141094 。

摘要

雖然 Microsoft Excel 有改變文字大小寫的功能，但有時你可能想用程式方式更改文字大小寫。

本文包含三個範例 Microsoft Visual Basic for Applications 巨集 (子程序) ，你可以用來將文字字串中的字母改為大寫、全小寫或標題大寫， (每個單字的第一個字母都大寫) 。 這些動作類似於 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： sSue C2： sUe
       A3：喬·史密斯 B3：喬·史密斯 C3：喬·史密斯
       A4：瑪麗 B4：瑪麗 C4：瑪麗
       A5：蘿莉 B5：蘿莉 C5：蘿莉
    注意：此範例資料包含多種格式化的文字，供你驗證每個巨集的運作方式。

2. 執行每個巨集。

巨集 (中「For each x in ...」) 的欄位，將依照適當方式以大寫、小寫或首字母大寫格式呈現。

參考資料

欲了解更多如何使用工作表功能改變文字大小寫的資訊，請點擊以下文章編號以在 Microsoft 知識庫中查看該文章：

263580 如何在 Excel 中更改文字大小寫

欲了解更多關於 Visual Basic for Applications 的協助，請點擊以下文章編號，在 Microsoft 知識庫中查看該文章：

305326 Visual Basic 應用程式程式設計資源列表