Índice

Solución 12.13 Modificar el color de un rango de celdas

En un nuevo módulo, repita la zona de declaración del ejercicio 12.4.

Código de los procedimientos:

Private Sub Inicializar_Colores()  
   ’ inicialización de la tabla de los colores a 0 
   ReDim CustomColors(0 To 16 * 4 - 1) As Byte  
   Dim i As Integer  
   For i = LBound(CustomColors) To UBound(CustomColors)  
       CustomColors(i) = 0   ...