Buscar datos en rejilla 2
Hola de nuevo, el código que me diste funciona perfectamente, pero lo cosa se complica... Veras tengo una rejilla con los siguientes datos: nombre, fecha, nota1 y nota2.
Tengo que buscar y mostrar por pantalla el nombre, fecha y nota media del alumno que mayor nota media tenga, la media tendría que ser igual a (nota1+nota2)/2.
Si fueras tan amable de echarme una mano.
Saludos
Tengo que buscar y mostrar por pantalla el nombre, fecha y nota media del alumno que mayor nota media tenga, la media tendría que ser igual a (nota1+nota2)/2.
Si fueras tan amable de echarme una mano.
Saludos
1 Respuesta
Respuesta de orion2828
1
Es simple
Nombre Fecha Not1 Not2
Col0 col1 col2 col3
Dim I as Integer
Dim Nombre as String
Dim Media as Long,MediaMayor as Long
Dim Nota1 as Long,Nota2 as Long
MediaMayo=0
Media=0
Nota1=0
Nota2=0
Nombre = ""
for I=1 to MsFLexGrid.Rows-1
MsFlexgrid.Col = 2
MsFlexGrid.Row = I
Nota1 = Val (MsflexGris.Text)
MsFlexgrid.Col = 3
Nota2 = Val
(MsflexGris.Text)
Media=(Nots1+Nota2)/2
If MediaMayo< Media then
MediaMayor=Media
MsFlexgrid.Col = 0
Nombre=Msflexgrid.Text
end if
next I
MsgBox " El promedio mayor es del ALumno :" & nombre & " con un promedio de : " & MediaMayor
Esta listo, espero te sirva.
Si te sirve aumenta mi puntaje
Un amigo
Nombre Fecha Not1 Not2
Col0 col1 col2 col3
Dim I as Integer
Dim Nombre as String
Dim Media as Long,MediaMayor as Long
Dim Nota1 as Long,Nota2 as Long
MediaMayo=0
Media=0
Nota1=0
Nota2=0
Nombre = ""
for I=1 to MsFLexGrid.Rows-1
MsFlexgrid.Col = 2
MsFlexGrid.Row = I
Nota1 = Val (MsflexGris.Text)
MsFlexgrid.Col = 3
Nota2 = Val
(MsflexGris.Text)
Media=(Nots1+Nota2)/2
If MediaMayo< Media then
MediaMayor=Media
MsFlexgrid.Col = 0
Nombre=Msflexgrid.Text
end if
next I
MsgBox " El promedio mayor es del ALumno :" & nombre & " con un promedio de : " & MediaMayor
Esta listo, espero te sirva.
Si te sirve aumenta mi puntaje
Un amigo
