Emprender un proyecto de computación subtotales para las columnas de una tabla de hoja de cálculo. Comience por abrir Excel y la creación de una mesa en cualquier lugar de la hoja de cálculo . El cuadro inicial se parece a la mesa en la ilustración 1 .
Seleccione la tabla, incluyendo los encabezados de columna y crear el nombre de " MyTab " para esta tabla. Crear el nombre , introduciendo su nombre en la caja de Excel , que es hacia la esquina superior izquierda del área de trabajo de Excel .
Agregar controles de Visual Basic
Agregar casillas de la tabla , con cada casilla que se sienta encima de una columna de la tabla . Usted puede encontrar las casillas de verificación bajo desarrollador> Insertar > Controles de formulario . Además, agregue dos botones a la hoja de cálculo. Arrastrar y soltar en la misma zona que las casillas de verificación , a la izquierda ya la derecha de la tabla MyTab . Haga clic con el botón izquierdo y cambiar el texto para leer " subtotales ". Cambiar el texto del botón derecho de "Quitar subtotales . "
Posición de los botones y casillas de verificación para que su mesa se parece a la mesa en la ilustración 2 .
Escriba el código
Ahora que usted ha diseñado la mesa y sus controles , se escribirá el código que hace los subtotales de la tabla . Introduzca el IDE de Visual Basic ( entorno de desarrollo integrado ) y añadir un módulo . Haga clic en Insertar > Módulo . En la ventana de código del nuevo módulo , escriba el código del programa :
Opción
explícita
Public Sub doSubtotal ()
s As StringDim r Como RangeDim c Como ObjectDim ar () Como IntegerDim iField Como IntegerDim varItemsDim nChkd As Integer
ReDim ar ( 0 a 0 )
'Eliminar subtotalsRemoveSubtotals anteriores
' Crear el array de campos de índices (a partir de 1 ) al subtotal
iField = 1nChkd = Loop 0
'a través de casillas de verificación. Si se comprueba una, añadir su campo de arrayFor Cada c En ActiveSheet.CheckBoxes
Si ( c.Value = 1 ) = ThennChkd nChkd + 1 ' agregar este campo a la matriz
ar ( UBound (ar )) = iFieldReDim Preserve ar ( 0 To UBound ( ar) + 1 ) 'Agregar elemento para el siguiente campo seleccionado
End If
iField = iField + 1
Siguiente
Si ( nChkd = 0 ) ThenMsgBox ( " marcar al menos una casilla por favor . ") Exit SubEnd Si
ReDim Preserve ar ( 0 To UBound ( ar) - 1 ) 'Quitar vacía últimos elementvarItems = ar
' Do subtotal actual . En primer lugar, encontrar el rango que ver subtotal en
Set r = Application.Names ( " MyTab ") RefersToRange ' recuperar el rango con nombre de subtotal
GroupBy r.Subtotal : . = 1 , la función : = xlSum , TotalList : = varItems , SummaryBelowData : = xlSummaryBelow
End Sub
RemoveSubtotals Public Sub ( ) guía
' Comprobar si antes subtotal , el uso de almacenamiento proporcionado por el comentario campo en el espacio de nombres para MyTab (véase Fórmulas > Administrador Name) ' Almacenamos original de la primera columna de la tabla . Si la columna a partir de la tabla actual es diferente , tenemos que restaurar la tabla en la ubicación original .
R As RangeDim s Como StringDim nOrigCol As Integer
Set r = Application.Names ( " MyTab ") . RefersToRanges = Application.Names ( " MyTab ") . comentario
' ningún comentario significa que no hay carrera previa , por lo que no se necesita la eliminación de subtotal antes , o el ajuste de la gama original, .
' Pero , salvo la columna a partir de la tabla para la siguiente llamada a este function.If ( s = "") ThenApplication.Names ( " MyTab " ) Comment = r.ColumnExit SubEnd Si
Application.Range ( . "a1 : xfd65536 . ") RemoveSubtotal
' Ajuste rango: eliminar una columna, si uno era addednOrigCol = CInt ( s ) Si ( nOrigCol < r.Column ) Thenr.Previous.EntireColumn.Delete
End If
End Sub
ejecutar el programa
Regresar a la hoja de cálculo Excel que tiene la tabla MyTab . Asigne los botones para las macros que acaba de escribir . Haga clic derecho en el botón "Haz subtotales " y seleccione " Asignar Macro ". En el cuadro de diálogo que aparece , seleccione la función " doSubtotal " , que es parte del código que acaba de escribir . Cierre el cuadro de diálogo haciendo clic en " Aceptar", y asignarle otra función macro que escribiste , RemoveSubtotals , al otro botón.
Ejecutar el programa mediante la comprobación de cualquier combinación de las casillas de verificación y haga clic en el botón subtotales hacer. Borrar los subtotales pulsando otro botón.