經常用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 |
完成以上操作後按鈕就可以使用了。選中目標單元格區域,單擊相應的轉換按鈕,被選中的英文字元就立即轉換成我們想要的大小寫了。