Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

475 - Excel - Uso de Fórmula para sumar

Ejemplo que crea un libro de Excel desde visual basic, para agregar tres columnas, llenar cada una con valores, calcular el subtotal de cada una, y luego visualizar en otra celda el total, utilizando la propiedad Formula de las celdas y la función SUM.

Crear un nuevo proyecto de vb, Añadir un CommandButton al formulario

Código fuente

Option Explicit Private Sub Command1_Click() Dim objExcel As Object Dim Columna As Integer ' crear la referencia a excel Set objExcel = CreateObject("Excel.application") With objExcel ' Agregar un Nuevo libro .Workbooks.Add Dim i As Integer ' Agregar los nombres de los meses a la columna Meses ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Columna = 1 For i = 1 To 12 .cells(1, Columna).Formula = "Meses" .cells(i + 1, Columna).Formula = MonthName(i) Next ' agregar costos valores para la columna 2 ( Gastos Productos ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Columna = 2 For i = 1 To 12 .cells(1, Columna).Formula = "Gastos Productos" .cells(i + 1, Columna).Formula = CInt(Rnd * 255) Next ' agregar valores a la columna 3 (Gastos impuestos) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Columna = 3 For i = 1 To 12 .cells(1, Columna).Formula = "Gastos impuestos" .cells(i + 1, Columna).Formula = CInt(Rnd * 150) Next ' agregar valores a la columna 4 ( Otros gastos ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Columna = 4 For i = 1 To 12 .cells(1, Columna).Formula = "Otros gastos" .cells(i + 1, Columna).Formula = CInt(Rnd * 50) Next ' Sacar el SubTotal para cada columna ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' .cells(14, 1).Formula = "SubTotales" .cells(14, 2).Formula = "=SUM(B2:B13)" ' SubTotal para la columna 3 .cells(14, 3).Formula = "=SUM(C2:C13)" ' SubTotal para la columna 4 .cells(14, 4).Formula = "=SUM(D2:D13)" ' Total ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' .cells(16, 1).Formula = "Total" .cells(16, 4).Formula = "=SUM(B14:D14)" 'Formato de celdas ( fuente y color de fondo ) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' autoajustar las columnas .Columns("A:A").EntireColumn.AutoFit .Columns("B:B").EntireColumn.AutoFit .Columns("C:C").EntireColumn.AutoFit .Columns("D:D").EntireColumn.AutoFit .Range("A1:D1").Select With .Selection.Font .Name = "Arial" .FontStyle = "Negrita" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False End With With .Selection.Interior .colorindex = 35 End With .Range("A2:D13").Select .Selection.Font.colorindex = 2 With .Selection.Interior .colorindex = 11 End With .Range("A14:D16").Select .Selection.Interior.colorindex = 35 .Range("A14:A16").Select .Selection.Font.FontStyle = "Negrita" End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ahcer visible el Excel objExcel.Visible = True ' eliminar la referencia Set objExcel = Nothing End Sub Private Sub Form_Load() Me.Caption = "Uso de Fórmula en Excel desde vb" Command1.Caption = "Crear libro" End Sub

Recursos Visual basic - Enlaces relacionados

Ejemplos de Excel y vb 6.0

Buscar en Recursos vb