Programación VBA para Control de Resistencia de Concreto
Published:
DATOS Y CONDICIONES: 1. Realice la programación en Visual Basic que automatice la ejecución de una hoja de cálculo Caso propuesto: "Control de resistencia del concreto", en la se encontrará la siguiente matriz: [Se muestra una tabla de Excel] La implementación se realizará a base de la estructura definida (repositorios/módulos) con la utilización de eventos y módulos (procedimientos parametrizados y funciones). ESO: Generar un procedimiento parametrizado que calcule el cumplimiento de resistencia = f'c ensayo / f'c diseño * 100, valide la información ingresada e inserte el porcentaje en la celda correspondiente al CUMPLIMIENTO (2 puntos). Generar un procedimiento parametrizado que inserte el ESTADO (2 puntos) en la celda, utilizando el valor del cumplimiento calculado en el punto 1. Generar el evento automático que dispare los procedimientos parametrizados realizados, una vez que ingrese alguno de los datos. (6 puntos)
This question includes visual content: La imagen contiene una tabla de Excel con datos de elementos de construcción. La tabla tiene columnas: ELEMENTO, F'c DISEÑO (MPa), F'c ENSAYO (MPa), CUMPLIMIENTO (%), y ESTADO. Debajo, hay otra tabla de referencia que define los rangos de CUMPLIMIENTO (%) y el ESTADO A INSERTAR correspondiente: <85 (CRITICO), <95 (NO CUMPLE), <100 (OBSERVADO), <110 (CUMPLE), >=110 (SOBRESALIENTE).
Animated Video Solution
The first half plays free, the full solution is in the app.
Step by Step Written Solution
Hola Brayan, vamos a resolver juntos este problema de automatización en Excel usando Visual Basic para Aplicaciones.
Automatización de Resistencia de Concreto
El objetivo es crear un programa modular que calcule el porcentaje de cumplimiento y determine el estado del concreto automáticamente.
Análisis de Requerimientos
- Entrada: Valores en columnas B y C.
- Cálculo: (f'c Ensayo / f'c Diseño) * 100.
- Lógica: Determinar el estado basado en una escala de cumplimiento.
Definiremos un procedimiento para calcular el porcentaje de cumplimiento, tomando como parámetros la celda de diseño y la de ensayo.
Procedimiento de Cálculo
```vba
Sub CalcularCumplimiento(fila As Integer)
Dim disenio As Double, ensayo As Double
disenio = Cells(fila, 2).Value
ensayo = Cells(fila, 3).Value
Cells(fila, 4).Value = (ensayo / disenio) * 100
End Sub
```
The rest of this solution is on Solvi
3 more steps are locked. Watch the full animated, narrated solution for free.
Snap a photo, solve any question like this.
Watch the Rest for FreeFree to download · First solutions are on us