Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Puedes hacerlo de muchas maneras, pero a mí se me ocurre esta:
******************************************************************************* Dim i As Integer Dim mayor As Long Dim menor As Long Dim suma As Long
mayor = 0 menor = 0 suma = 0 'Con esta estructura obtienes el mayor y el menor (teniendo las casillas en array) For i = 0 To 5 If CajaTexto(i) > mayor Then mayor = CajaTexto(i) ElseIf CajaTexto(i) < menor Then menor = CajaTexto(i) End If Next
'Así sumas los restantes For i = 0 To 5 If CajaTexto(i) <> mayor And CajaTexto(i) <> menor Then suma = suma + CajaTexto(i) End If Next ********************************************************************************