Macro vba para sacar promedio

Solo disponible en BuenasTareas
  • Páginas : 2 (405 palabras )
  • Descarga(s) : 0
  • Publicado : 29 de mayo de 2011
Leer documento completo
Vista previa del texto
Microsoft comercializó originalmente un programa de Hoja de cálculo llamado Multiplan en 1982, que se convirtió muy popular en los sistemas CP/M , pero en los sistemas MS-DOS perdió popularidadfrente al Lotus 1-2-3. Microsoft publicó la primera versión de Excel para Mac en 1985, y la primera versión de Windows (numeradas 2-05 en línea con el Mac y con un paquete de tiempo de ejecución deentorno de Windows) en noviembre de 1987. Lotus fue lenta al llevar 1-2-3 para Windows y esto ayudó a Microsoft a alcanzar la posición de los principales desarrolladores de software para hoja decálculo de PC. Este logro solidificó a Microsoft como un competidor válido y mostró su futuro de desarrollo como desarrollador de software GUI. Microsoft empujó su ventaja competitiva lanzando al mercadonuevas versiones de Excel, por lo general cada dos años. La versión actual para la plataforma Windows es Excel 14.0, también denominada Microsoft Excel 2010. La versión actual para Mac OS Xigualmente se conoce como Microsoft Excel 2010.

Excel es la hoja de cálculo más usada en el mundo y una de las ventajas que trae consigo es la posibilidad de que sus usuarios puedan automatizar susprocesos por medio de Visual Basic para Aplicaciones (VBA).

Esta es un script para sacar el promedio de una lista de alumnos. Básicamente es muy útil, para tomar el promedio de cualquier clase deeventos..

Es muy sencillo porgramar en excel. Para eso también excel dispone de un debugguer, esto es, dispone de una ayuda para poder encontrar los errores en un programa.

El la web puedesencontrar muchas paginas para aprender a utilizar excel y programar en esta hoja de cálculo, la más usada en el mundo.

Sub Botón1_Haga_clic_en()
Dim strName As String
Dim nota_aprueba AsInteger
Dim aprobados As Integer
Dim reprobados As Integer

aprobados = 0
For i = 1 To 10
Cells(i + 1, 3) = 0
Next
For i = 1 To 10
strName =...
tracking img