Considere os dados do programa anterior. Coloque agora na primeira linha da pasta Resultados o aluno com a melhor nota da turma. Se houver mais de um aluno empatado, coloque qualquer um!
Coloque também na segunda linha da mesma pasta o aluno que ocorre primeiro na lista, considerando a ordem alfabética de nomes.
Sub testestring()
Dim nome As String
Dim nota As Double
Dim nomeinterm As String
Dim notainterm As Double
Dim i As Integer
i = 1
notainterm = 0
Do While i <= Worksheets("Dimensoes").Cells(1, 1)
nome = Worksheets("Dados").Cells(i, 1)
nota = Worksheets("Dados").Cells(i, 2)
If notainterm <= nota Then
nomeinterm = nome
notainterm = nota
End If
i = i + 1
Loop
Worksheets("Observar").Cells(1, 1) = "campeao"
Worksheets("Observar").Cells(1, 2) = notainterm
Worksheets("Observar").Cells(1, 3) = nomeinterm
i = 1
nomeinterm = Worksheets("Dados").Cells(1, 1)
Do While i <= Worksheets("Dimensoes").Cells(1, 1)
nome = Worksheets("Dados").Cells(i, 1)
nota = Worksheets("Dados").Cells(i, 2)
If nomeinterm >= nome Then
nomeinterm = nome
notainterm = nota
End If
i = i + 1
Loop
Worksheets("Observar").Cells(2, 1) = "prim alfab"
Worksheets("Observar").Cells(2, 2) = notainterm
Worksheets("Observar").Cells(2, 3) = nomeinterm
End Sub
Programa 2