Tarea 3 Diagrama

Inicio

sheets.add after:=activesheet

hoja=nombre de la hoja activa

sheet(hoja).name="Reporte"

seleccionar hoja1

n=1

x=3

maxhes=0

minhes=100

x<=n

seleccionar celda (x,4)

col=columna activa

ro=fila activa

cell(ro,col).value<>"" y cell(ro,col-1)<>""

maxhes<cell(ro,col).value

maxhes=cell(ro,col)

nombremaxhes=texto de celda(ro,col-2)

minhes>cell(ro,col).value

minhes=cell(ro,col)

nombreminhes=texto de celda(ro,col-2)

x=n+1

x=x+1

maxhen=0

minhen=0

x<=n

seleccionar celda(x,5)

col=columna activa

ro=fila activa

cell(ro,col).value<>"" y cell(ro,col-2)<>""

maxhen<cell(ro,col).value

maxhen=cell(ro,col)

nombremaxhen=texto celda(ro,col-3)

minhen>cell(ro,col).value

minhen=cell(ro,col)

nombreminhen=texto celda(ro,col-3)

x=n+1

x=x+1

promhes=0

s=0

x<=n

seleccionar celda(x;4)

col=columna activa

ro=fila activa

cell(ro,col).value<>"" y cell(ro,col-1)<>""

s=s+val.cell(ro,col)

promhes=s/n

x=n+1

x=x+1

promhen=0

s=0

x<=n

seleccionar celda(x,5)

col=columna activa

ro=fila activa

cell(ro,col).value<>"" y cell(ro,col-2)<>""

s=s+val.cell(ro,col)

promhen=s/n

x=n+1

x=x+1

seleccionar hoja reporte

cells(1,1).select

cells(1,1).text="Nombre"

cells(1,2).select

cells(1,2).text="Maximo HES"

cells(2,1).select

cells(2,1).text=nombremaxhes

cells(2,2).select

cells(2,2).value=maxhes

cells(3,1).select

cells(3,1).text="Nombre"

cells(3,2).select

cells(3,2).text="Minimo HES"

cells(4,1).select

cells(4,1).text=nombreminhes

cells(4,2).select

cells(4,2).value=minhes

cells(5,1).select

cells(5,1).text="Nombre

cells(5,2).select

cells(5.2).text="Maximo HEN"

cells(6,1).text=nombremaxhen

cells(6,2).select

cells(6,2).value=maxhen

cells(7,1).select

cells(7,1).text="Nombre"

cells(8,1).select

cells(8,1).text=nombreminhen

cells(7,2).text="Minimo HEN"

cells(8,2).value=minhen

cells(1,4).text="Promedio HES"

cells(2,4).value=promhes

cells(1,5).select

cells(1,5).text="Promedio HEN"

cells(2,5).value=promhen

cells.select

cells.entirecolumn.AutoFit

FIN