Tarea 3 Diagrama

Flussdiagrammknoten

• 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