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

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

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

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

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

代碼片段：

 

雙擊代碼全選 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

 

Sub 全部大寫（）         　　Dim itarget As Range         　　Set itarget = Selection         　　For Each ran In itarget         　　'將單元格內容轉換為大寫形式         　　ran.value = UCase（ran）         　　Next         　　End Sub

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

 

雙擊代碼全選 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

 

Sub 全部小寫（）         　Dim itarget As Range         　Set itarget = Selection         　For Each ran In itarget         　'將單元格內容轉換為小寫形式         　ran.value = LCase（ran）         　Next         　End Sub

　　

完成以上操作後按鈕就可以使用了。選中目標單元格區域，單擊相應的轉換按鈕，被選中的英文字符就立即轉換成我們想要的大小寫了。