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

首頁(yè) > 辦公 > Excel > 正文

Excel編寫(xiě)宏 新增按鈕快速更改大小寫(xiě)

2024-08-23 19:49:00
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

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

Excel編寫(xiě)宏 新增按鈕快速更改大小寫(xiě)_天極辦公軟件

  但這些功能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)。

Excel編寫(xiě)宏 新增按鈕快速更改大小寫(xiě)_天極辦公軟件


發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 香格里拉县| 南靖县| 井研县| 南丹县| 宜兰县| 夏河县| 随州市| 嘉义市| 延寿县| 竹溪县| 河东区| 广昌县| 高安市| 科尔| 闸北区| 宿迁市| 双峰县| 田林县| 凉山| 额济纳旗| 大埔区| 平塘县| 浦县| 齐齐哈尔市| 白山市| 英吉沙县| 绵竹市| 洞头县| 大丰市| 双流县| 定南县| 乌什县| 伊宁县| 墨竹工卡县| 郎溪县| 辽阳市| 垫江县| 巴林左旗| 合川市| 浦北县| 三原县|