Private Sub CommandClicking_Click()
Dim m As Integer
Dim g As String
Randomize Timer
m = Int(Rnd * 100)
Cells(10, 1).Value = m
If m < 35 And m >= 0 Then
g = "F"
Cells(11, 1).Value = g
ElseIf m < 55 And m >= 35 Then
g = "E"
Cells(11, 1).Value = g
ElseIf m < 65 And m >= 55 Then
g = "D"
Cells(11, 1).Value = g
ElseIf m < 75 And m >= 65 Then
g = "B"
Cells(11, 1).Value = g
ElseIf mark < 90 And mark >= 75 Then
g = "A"
Cells(11, 1).Value = g
ElseIf mark < 100 And mark >= 90 Then
grade = "A*"
Cells(11, 1).Value = g
End If
End Sub
Advantages and Disadvantages of EIS Advantages of EIS Easy for upper-level executives to use, extensive computer experience is not required in operations Provides timely delivery of company summary information Information that is provided is better understood Filters data for management Improves to tracking information Offers efficiency to decision makers Disadvantages of EIS System dependent Limited functionality, by design Information overload for some managers Benefits hard to quantify High implementation costs System may become slow, large, and hard to manage Need good internal processes for data management May lead to less reliable and less secure data
Comments