Excel編寫宏 新增按鈕快速更改大小寫

　　經常用Word的朋友都知道，在Word中可以方便地更改英文字元的“大寫”、“小寫”、“句首字母大寫”和“字首大寫”(圖1)。

電腦教程

　　但這些功能Excel沒有，如果想在Excel中使用這些功能就必須手動修改或者用複雜的公式來進行轉換。其實我們可以編寫相關的宏，一勞永逸地解決這個問題。

　　首先繪製四個命令按鈕，將按鈕上的文字更改為“全部大寫”、“全部小寫”、“句首字母大寫”和“字首大寫”。接著分別為每個按鈕編寫相應的宏代碼。

　　比如“全部大寫”按鈕，輸入代碼：

　　程式碼片段：

　　Sub 全部大寫()

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'將儲存格內容轉換為大寫形式

　　ran.value = UCase(ran)

　　Next

　　End Sub

　　右擊“全部小寫”按鈕，輸入代碼：

　　Sub 全部小寫()

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'將儲存格內容轉換為小寫形式

　　ran.value = LCase(ran)

　　Next

　　End Sub

　　完成以上操作後按鈕就可以使用了。選中目標儲存格範圍，單擊相應的轉換按鈕，被選中的英文字元就立即轉換成我們想要的大小寫了(圖2)。