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

sou6發表於2012-07-08

經常用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

  

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

相關文章