變更 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： sUe 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 for Applications 的程式設計資源清單