Dropdown conditional formatting

tlkc67 · #1 10-03-2014, 05:53 AM

Hi

Can anyone help? I have a word document in which I have a table with a dropdown box with 4 selections. Dependent on which option is selected I want the box/cell to highlight a different colour. I know you can do this in excel but is it possible to do in word & if so how?

Cheers
T

gmaxey · #2 10-03-2014, 07:07 AM

What type of dropdown are you using? Word doesn't have a built-in "change" event for content control dropdowns, but you could use the OnEntry and OnExit events:

Code:

Dim oCell As Cell
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
  Select Case ContentControl.Title
    Case "Demo"
      Set oCell = Selection.Cells(1)
   End Select
End Sub
Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
  Select Case ContentControl.Title
    Case "Demo"
      Select Case ContentControl.Range.Text
        Case "A": oCell.Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "B": oCell.Shading.BackgroundPatternColorIndex = wdDarkRed
      End Select
  End Select
End Sub

tlkc67 · #3 10-03-2014, 07:59 AM

I'm using a Drop-down Form Field with the 4 options being; Positive, Neutral, Poor or None.

Do I need to create a macro that calculates on exit?

Can you explain exactly what I would need to do as I'm not too hot on creating macros.

Thank you for your response

T

gmaxey · #4 10-03-2014, 11:44 AM

Something like this:

Code:

Sub DDOnExit()
ActiveDocument.Unprotect
   Select Case ActiveDocument.FormFields("Dropdown1").Result
     
        Case "Positive": Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "Negative": Selection.Cells(1).Shading.BackgroundPatternColorIndex = wdDarkRed
     
  End Select
  ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub

Set DDOnExit to run "OnExit" from the dropdown. Assumes the dropdown is named "Dropdown1"

macropod · #5 10-04-2014, 03:53 AM

Quote:

Originally Posted by tlkc67

Hi
Can anyone help? I have a word document in which I have a table with a dropdown box with 4 selections. Dependent on which option is selected I want the box/cell to highlight a different colour. I know you can do this in excel but is it possible to do in word & if so how?

How about reading some of the other threads on the same topic??? See, for example: https://www.msofficeforums.com/word-...selection.html

tlkc67 · #6 10-05-2014, 09:08 AM

Thank you Greg that works.

Excuse my ignorance but how do i get it to work for the whole column?

gmaxey · #7 10-05-2014, 10:54 AM

Code:

Sub DDOnExit()
ActiveDocument.Unprotect
   Select Case ActiveDocument.FormFields("Dropdown1").Result
     Case "Positive": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdBrightGreen
        Case "Negative": Selection.Tables(1).Columns(Selection.Cells(1).ColumnIndex).Shading.BackgroundPatternColorIndex = wdDarkRed
  End Select
  ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Conditionally Color Formatting Text selected from a dropdown list in Word 2010	pgammag	Word	9	08-20-2019 04:17 PM
Conditional formatting that ignores other formatting rules	info_guy2	Excel	1	07-03-2014 10:07 AM
Loosing Formatting on Data in dropdown box	arshaw	Word	5	02-26-2013 12:37 PM
Conditional formatting with AND, OR	Lucky	Excel	2	10-03-2011 11:41 PM
Conditional Formatting	namedujour	Excel	3	08-25-2011 01:46 PM