close

Chapter VBA

VBA005 英文字的大小寫轉換

Section

假設我們常常需要把英文不論是大寫(“EXCEL MARCO”)、小寫(“excel marco”)全部轉換成英文單字每一個單字第一個英文字母大寫(“Excel Marco”)。

一般我們習慣用UPPER()、LOWER()、PROPER()三個函數控制大大小寫，但若覺得很不方便，則肯定對本巨集有很大的興趣！

Option Explicit

‘現在儲存格的英文字轉換成第一個字母大寫

‘註：Proper為工作表函數

‘使用時需要在前面加上「WorksheetFunction.」

Sub Sample5()

‘但凡遇到錯誤，跳到「什麼也不做」標籤

On Error Goto DoNothing

‘在With和End With之間、所有的「.」為首屬性或方法

‘也會以With之後的物件為本，應該可以使程式更精簡一些

With ActiveCell

   Select Case .Value

‘如果英文字大寫則換為第一個字母大寫

       Case Ucase(.Value)

           .Value=WorksheetFunction.proper(.Value)

‘如果英文字小寫則換為第一個字母大寫

       Case Lcase(.Value)

           .Value=WorksheetFunction.proper(.Value)

   End Select

End With

‘什麼也不做

DoNothing:

End Sub

開啟一個空白活頁簿。

按ALT+F11鍵，開啟並切換到VBA編輯器。

點取「插入 > 模組」指令。

輸入如下圖所示的程式碼(‘後面的說明文字可視需求決定是否要輸入)

image

關閉VBA編輯器視窗。

當我們框選A1儲存格再執行SAMPLE5巨集，則會出現如下圖對話方塊。

單字大寫調整為第一個字母大寫.

image ð image

單字小寫調整為第一個字母大寫.

image  ð image

由於沒寫判斷程式來了解是一個儲存格還是一個範圍要轉，故不管框一個儲存格或範圍，都是一個儲存格調整，其他儲存格原封不動。


arrow
arrow
    文章標籤
    大寫 value worksheetfunction 小寫 proper donothing vba marco 英文 單字 case 巨集 函數 excel activecell sub select ucase
    全站熱搜
    創作者介紹
    創作者 錦子老師 的頭像
    錦子老師

    錦子老師

    錦子老師 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄