Conditional Formatting Fields

J Carvell

Board Regular
Joined
Sep 20, 2005
Messages
55
I am trying to find a way of turning a field on a form (which is formatted to short date) different colours depending on the day of the week. For example Monday=white, Tuesday=Yellow, Wednesday=Green etc.

Unfortunately conditional formatting doesn't give me enough conditions. I have tried to write some code found in other messages but it doesn't seem to work.

Can anyone help?
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK
You can do something like this:

1. In design view, get the form's properties and go to the Events tab. In the Current event, double-click the blank line. You'll see Event Procedure. Click here, then click the Builder (...) button to go to the code window. You'll need to put in code like this --

Code:
Select Case Weekday([YourDateField])
    Case 1
       [YourDateField].BackColor=255 'red
    Case 2
       [YourDateField].BackColor=65536 'yellow, I think
    'keep going for the other 5 weekdays

End Select
To work out what numbers to use, open any form and select a range of background colours from the palette. After each one, check the BackColor property and write it down.

By putting the code into the Form_Current event, you get the formatting to apply every time you go a to new record. You'll need to ensure that the BackStyle property for the control is Solid. By default it's Transparent, and no colour change will be visible.
If you need to fire the change when a field changes, leave the Form_Current code as it is. But go to the AfterUpdate event of the control you want to use as the trigger, and type Form_Current in the code for the sub.

Denis
 
Upvote 0

Forum statistics

Threads
1,211,788
Messages
6,103,972
Members
447,888
Latest member
eaydogan

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top