以下是程式設計的內容 , 請進入程式的畫面後, 按二下工作表左側視窗, 選取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
請自行於任何儲存格輸入小寫英文後, 您會看到他會自動轉為大寫