Select Case - Grades

     

  • Code is useful to provide the grades to marks

    •  

    Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 11
    Select Case Cells(i, 1)
    Case Is >= 90
    Cells(i, 2) = "Extra"
    Case Is > 70
    Cells(i, 2) = "First"
    Case Is > 50
    Cells(i, 2) = "Second"
    Case Is > 35
    Cells(i, 2) = "Pass"
    Case Else
    Cells(i, 2) = "Fail"
    End Select
    Next
    End Sub

     

     

    Select Case - Grades

     

    Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 11
    Select Case Cells(i, 1)
    Case 1 To 100
    Cells(i, 2) = "First"
    Case 101 To 200
    Cells(i, 2) = "Second"
    Case 201 To 300
    Cells(i, 2) = "Third"
    Case Else
    Cells(i, 2) = "Fourth"
    End Select
    Next
    End Sub

     

     

     

Hi Everyone,
Welcome to VBA Macros Tutorial. This Tutorial provides comprehensive knowledge on VBA Macros to the user. Hope it enhances your coding skills. If you like this web page kindly Share this to your near and dear. I Prepared this content as per my level of knowledge, if any changes required kindly bring to my notice. Thanks for visiting this web page

Thanks,
Pavan Kumar Gundlapalli