問問蓮蓬頭

於儲存格A2輸入分數，依輸入的分數範圍，於儲存格B2自動給予評語。

[程式輸入說明]

此程式寫在該工作表裡的 SelectionChange 裡面

[程式碼]

 =============================================================

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Number = Range("A2").Value ‘Number等於儲存格A2輸入的值

Select Case Number

Case 0 To 59 ‘分數0~59分

     Range("B2") = "不合格"

Case 60 To 89 ‘分數60~89分

     Range("B2") = "合格，但還有進步空間"

Case 90 To 100 ‘分數90~10分

     Range("B2") = "非常優秀"

Case Else ‘如果不是上述的區間則執行下面程式碼

     Range("B2") = "請輸入0~100的分數"

End Select

 End Sub

 =============================================================

程式輸入完畢後，回工作表，直接於儲存格A2輸入分數，儲存格A2就會依所輸入的分數，自動下評語。

[補充說明]

如何將程式寫在工作表裡的SelectionChange 裡面?

首先於工作表1(工作表1)滑鼠左鍵點兩下

之後點選下面紅框處選取 Worksheet

選取 Worksheet 後，SelectionChange 就會出現，出現後直接將程式寫於下表紅框處