錦子老師

Option Explicit

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

‘註：Proper為工作表函數

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

Sub Sample6()

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

On Error Goto DoNothing

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

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

With ActiveCell

   Select Case .Value

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

       Case Ucase(.Value)

           .Value=WorksheetFunction.proper(.Value)

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

       Case WorksheetFunction.proper(.Value)

           .Value=Lcase(.Value)

‘如果英文字小寫則換為大寫

       Case Lcase(.Value)

           .Value=Ucase(.Value)

‘如果其他狀況則換為字母大寫

       Case Else

           .Value=Ucase(.value)

   End Select

End With

‘什麼也不做

DoNothing:

End Sub