Ajuste el color de fondo de acuerdo a la fecha usando VBA en Microsoft Excel
En este artículo, crearemos una macro para resaltar datos para el rango de fechas definido.
Los datos brutos consisten en detalles diarios de los artículos vendidos por los agentes.
Especifique la fecha de inicio y finalización antes de ejecutar la macro. La macro toma el valor de la celda H8 como fecha de inicio y el valor de H9 como fecha de finalización. Haga clic en el botón ‘Enviar’ para ejecutar la macro.
Los datos entre las fechas mencionadas se han resaltado en color amarillo.
Explicación lógica
Hemos creado una macro de «Marcado» para resaltar los datos, según el intervalo de fechas especificado. Esta macro está vinculada al botón «Enviar».
Explicación del código
StartDate = Cells (8, 8) .Value EndDate = Cells (9, 8) .Value El código anterior se utiliza para especificar la fecha de inicio y la fecha de finalización.
Establecer fuente = Rango («A1: A» y LastRow)
El código anterior se utiliza para inicializar el rango de datos de origen.
Establecer inicio = Source.Find (CDate (StartDate), LookAt: = xlWhole)
El código anterior se utiliza para encontrar la primera aparición de la fecha especificada.
Rango (celdas (fila inicial, 1), celdas (fila desactivada, 3)). Seleccionar El código anterior se utiliza para seleccionar el rango definido.
Selection.Interior.Color = RGB (255, 255, 0)
El código anterior se utiliza para resaltar el rango seleccionado en color amarillo.
Siga a continuación el código
Option Explicit
Sub Marking()
'Declaring Variables
Dim Source As Range
Dim Start As Range, Off As Range
Dim StartDate As Date
Dim EndDate As Date
Dim LastRow As Long
'Initializing start and end date
StartDate = Cells(8, 8).Value
EndDate = Cells(9, 8).Value
'Getting the row number of the last cell
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
'Initializing the source range
Set Source = Range("A1:A" & LastRow)
'Finding the cell containing first reference of the value
Set Start = Source.Find(CDate(StartDate), LookAt:=xlWhole)
Set Off = Source.Find(CDate(EndDate), LookAt:=xlWhole)
'Selecting the range
Range(Cells(Start.Row, 1), Cells(Off.Row, 3)).Select
'Assigning Yellow color to selection
Selection.Interior.Color = RGB(255, 255, 0)
End Sub
Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]