Taller Práctico 5: Bucles For...Next y Do While...Loop

Descuentos en Tienda por Departamento y Monitorización de Servidores IT (10 Ejercicios)

1. Tablas de Datos para la Práctica

TABLA 1: Registro de Productos en Tienda (Rango A1:D21) — Para Ejercicios 41 a 45 (For Next)
Fila A (Articulo) B (Precio Base $) C (Categoría) D (Precio Final $)
1ArticuloPrecio Base ($)CategoríaPrecio Final ($)
2Chaqueta Cuero180Ropa
3Televisor 55"650Tecnología
4Cafetera Express85.00Hogar
5Smartphone 128GB420Tecnología
6Jeans Clásico45Ropa
7Juego de Sábanas60Hogar
8Laptop Gamer1250Tecnología
9Zapatos Formales95Ropa
10Licuadora Potente70Hogar
11Audífonos Bluetooth110Tecnología
12Camisa Formal38Ropa
13Aspiradora Robot290Hogar
14Consola de Juegos500Tecnología
15Abrigo de Lana210Ropa
16Horno Microondas130Hogar
17Reloj Inteligente195Tecnología
18Vestido Formal115Ropa
19Set de Sartenes80Hogar
20Tablet 10"230Tecnología
21Corbata Seda25Ropa
22--- ESPACIO EN BLANCO (FILA VACÍA 22) ---
23--- ESPACIO EN BLANCO (FILA VACÍA 23) ---
TABLA 2: Estado de Servidores de Red (Rango A24:D44) — Para Ejercicios 46 a 50 (Do While)
Fila A (Servidor ID) B (Uso CPU %) C (Uso RAM %) D (Estado Sistema)
24Servidor IDUso CPU (%)Uso RAM (%)Estado Sistema
25SRV-WEB-014560
26SRV-DB-019288
27SRV-APP-013042
28SRV-DB-028895
29SRV-WEB-025562
30SRV-MAIL-017881
31SRV-BK-011525
32SRV-APP-029691
33SRV-PROXY-014050
34SRV-DB-038579
35SRV-WEB-036268
36SRV-DNS-012235
37SRV-APP-039186
38SRV-FILE-013858
39SRV-DB-049897
40SRV-MAIL-027072
41SRV-WEB-044851
42SRV-BK-021830
43SRV-PROXY-028284
44SRV-AUTH-012840

2. Taller de Ejercicios

Sección A: Ejercicios con For...Next (Tabla 1 - Filas 2 a 21)

Ejercicio 41 Descuento por Categoría "Tecnología"

Escribe un bucle For...Next (filas 2 a 21). Si la Categoría (columna C) es "Tecnología", aplica un 15% de descuento sobre el Precio Base y escribe el resultado en la columna D.

Ejercicio 42 Promoción Fija para Ropa

Mediante For...Next (filas 2 a 21), si la Categoría es "Ropa", réstale $10 fijos al Precio Base (columna B) y escribe el importe final en la columna D.

Ejercicio 43 Destacado de Productos Premium

Recorre la Tabla 1 con For...Next. Si el Precio Base (columna B) supera los $300, asigna un color de relleno azul claro a la celda del Artículo (columna A).

Ejercicio 44 Conteo de Artículos Económicos

Usa For...Next (filas 2 a 21) para contar cuántos productos tienen un Precio Base menor o igual a $50. Presenta el total en una ventana emergente MsgBox.

Ejercicio 45 Liquidación de Sección Hogar

Con For...Next, evalúa la columna C. Si la Categoría es "Hogar", calcula un 20% de descuento sobre el Precio Base y escríbelo en la columna D marcando el texto en negrita.

Sección B: Ejercicios con Do While...Loop (Tabla 2 - Inicia Fila 25)

Ejercicio 46 Alerta de CPU Sobrecargada

Crea un bucle Do While...Loop a partir de la fila 25. Si el Uso CPU % (columna B) es mayor a 85%, escribe "Saturado" en la columna D.

Ejercicio 47 Alerta Crítica por Memoria RAM

Utiliza Do While desde la fila 25. Si el Uso RAM % (columna C) supera el 90%, aplica relleno rojo claro y fuente en negrita a la celda del Servidor ID (columna A).

Ejercicio 48 Conteo de Servidores Estables

Recorre la Tabla 2 con Do While...Loop y cuenta cuántos servidores mantienen un Uso CPU % y Uso RAM % inferiores al 50% simultáneamente. Muestra el número final en un MsgBox.

Ejercicio 49 Diagnóstico General de Infraestructura

Mediante Do While...Loop, si tanto la CPU como la RAM superan el 80%, coloca la etiqueta "CRÍTICO" en la columna D; de lo contrario, registra "Óptimo".

Ejercicio 50 Formato Especial para Servidores de Base de Datos

Escribe una macro Do While...Loop iniciando en la fila 25. Si el Servidor ID (columna A) contiene el texto de base de datos (p. ej. evalúa con InStr o Like "*DB*"), aplica un formato de texto en color violeta a toda la fila.