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

電腦教程

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

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

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

　　代碼片段：

　　Sub 全部大寫(xiě)()

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'將單元格內(nèi)容轉(zhuǎn)換為大寫(xiě)形式

　　ran.value = UCase(ran)

　　Next

　　End Sub

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

　　Sub 全部小寫(xiě)()

　　Dim itarget As Range

　　Set itarget = Selection

　　For Each ran In itarget

　　'將單元格內(nèi)容轉(zhuǎn)換為小寫(xiě)形式

　　ran.value = LCase(ran)

　　Next

　　End Sub

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