Senin, 24 Maret 2014

script untuk tabel penilaian

Nilai = Val(Text1)
        If Nilai < 41 Then
        NilaiHuruf = "E"
        Else
            If Nilai < 56 Then
            NilaiHuruf = "D"
            Else
                If Nilai < 66 Then
                NilaiHuruf = "C"
                Else
                    If Nilai < 81 Then
                    NilaiHuruf = "B"
                    Else
                    NilaiHuruf = "A"
End If
    End If
        End If
            End If