英文自動大寫變小寫

以下是程式設計的內容 , 請進入程式的畫面後, 按二下工作表左側視窗, 選取Worksheet物件並輸入下列程式

Public  x, y ' 宣告公用變數

'-----------資料輸入使用UCASE轉大寫---------

Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(x, y).Value = UCase(Cells(x, y).Value) ' LCASE為轉小寫 ' UCASE為轉大寫
End Sub

'-----------選取儲存格時取得儲存格位置

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
End Sub

請自行於任何儲存格輸入小寫英文後, 您會看到他會自動轉為大寫