国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

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

2024-08-23 19:52:32
字體:
供稿:網(wǎng)友

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

Excel編寫宏 新增按鈕快速更改大小寫 CUOxin.COM

電腦教程

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

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

  比如“全部大寫”按鈕,輸入代碼:

  代碼片段:

  Sub 全部大寫()

  Dim itarget As Range

  Set itarget = Selection

  For Each ran In itarget

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

  ran.value = UCase(ran)

  Next

  End Sub

  右擊“全部小寫”按鈕,輸入代碼:

  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)換成我們想要的大小寫了(圖2)。


發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 东光县| 珠海市| 西盟| 陇西县| 都兰县| 墨竹工卡县| 鹿邑县| 宜川县| 杭锦后旗| 丰顺县| 牟定县| 赤峰市| 仪征市| 连江县| 丰县| 青浦区| 和龙市| 玉环县| 财经| 平顶山市| 综艺| 荥阳市| 五峰| 长沙县| 康乐县| 仪征市| 和林格尔县| 浑源县| 彰化市| 临猗县| 保德县| 蒙自县| 小金县| 海口市| 灌云县| 兰坪| 石楼县| 门源| 福海县| 兴和县| 西乌珠穆沁旗|