代碼片段：

　　Sub 全部大寫（）
　　Dim itarget As Range
　　Set itarget = Selection
　　For Each ran In itarget
　　'將單元格內容轉換為大寫形式
　　ran.value = UCase（ran）
　　Next
　　End Sub
　　右擊“全部小寫”按鈕，輸入代碼：
　　Sub 全部小寫（）
　　Dim itarget As Range
　　Set itarget = Selection
　　For Each ran In itarget
　　'將單元格內容轉換為小寫形式
　　ran.value = LCase（ran）
　　Next
　　End Sub