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

2012-07-08 00:00:00 來(lái)源：互聯(lián)網(wǎng)作者：sou6 人氣： 次閱讀 240 條評(píng)論

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

但這些功能Excel沒(méi)有，如果想在Excel中使用這些...

經(jīng)常用word的朋友都知道，在Word中可以方便地更改英文字符的“大寫”、“小寫”、“句首字母大寫”和“詞首字母大寫”?！　?

但這些功能excel沒(méi)有，如果想在Excel中使用這些功能就必須手動(dòng)修改或者用復(fù)雜的公式來(lái)進(jìn)行轉(zhuǎn)換。其實(shí)我們可以編寫相關(guān)的宏，一勞永逸地解決這個(gè)問(wèn)題?！　?

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

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

代碼片段：

雙擊代碼全選
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 　　'將單元格內(nèi)容轉(zhuǎn)換為大寫形式 　　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 　'將單元格內(nèi)容轉(zhuǎn)換為小寫形式 　ran.value = LCase（ran） 　Next 　End Sub

　　

完成以上操作后按鈕就可以使用了。選中目標(biāo)單元格區(qū)域，單擊相應(yīng)的轉(zhuǎn)換按鈕，被選中的英文字符就立即轉(zhuǎn)換成我們想要的大小寫了。