Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function to return interior colour of a cell
Hi I am trying to write a function to return the interior colour of a cell
which I reference. I am having difficulty getting this to work. Basically I want to define a function like CKCellColour, use this in the excel worksheet as a formula like =CKCellColour(M38) Then have this function return the interior colour of cell M38 The function I have defined is as follows: Function CKCellColour(CellRef as Range) Range(CellRef).Select CKCellColour = Range(CellRef).Interior.ColorIndex End Function This function never seems to get the range ref. Can someone help me solve this problem. Thanks for your help in advance. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function to return interior colour of a cell
Hi G Man,
Try this adaptation; '============= Function CKCellColour(CellRef As Range) CKCellColour = CellRef.Interior.ColorIndex End Function '<<============= -- --- Regards, Norman "G Man" wrote in message ... Hi I am trying to write a function to return the interior colour of a cell which I reference. I am having difficulty getting this to work. Basically I want to define a function like CKCellColour, use this in the excel worksheet as a formula like =CKCellColour(M38) Then have this function return the interior colour of cell M38 The function I have defined is as follows: Function CKCellColour(CellRef as Range) Range(CellRef).Select CKCellColour = Range(CellRef).Interior.ColorIndex End Function This function never seems to get the range ref. Can someone help me solve this problem. Thanks for your help in advance. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function to return interior colour of a cell
Many thanks this does the job nicely.
One last small question, is there a way for to get the recalc function to rerun this function so that it picks up changes of interior cells given conditional formating? "Norman Jones" wrote: Hi G Man, Try this adaptation; '============= Function CKCellColour(CellRef As Range) CKCellColour = CellRef.Interior.ColorIndex End Function '<<============= -- --- Regards, Norman "G Man" wrote in message ... Hi I am trying to write a function to return the interior colour of a cell which I reference. I am having difficulty getting this to work. Basically I want to define a function like CKCellColour, use this in the excel worksheet as a formula like =CKCellColour(M38) Then have this function return the interior colour of cell M38 The function I have defined is as follows: Function CKCellColour(CellRef as Range) Range(CellRef).Select CKCellColour = Range(CellRef).Interior.ColorIndex End Function This function never seems to get the range ref. Can someone help me solve this problem. Thanks for your help in advance. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function to return interior colour of a cell
That function will not recognize conditional formats. Conditional formats do
not actually set the interior color of the cell. Application.volitile will ensure that the function is re-evelauted every time the spreadsheet is recalced. Place that at the top of the code. -- HTH... Jim Thomlinson "G Man" wrote: Many thanks this does the job nicely. One last small question, is there a way for to get the recalc function to rerun this function so that it picks up changes of interior cells given conditional formating? "Norman Jones" wrote: Hi G Man, Try this adaptation; '============= Function CKCellColour(CellRef As Range) CKCellColour = CellRef.Interior.ColorIndex End Function '<<============= -- --- Regards, Norman "G Man" wrote in message ... Hi I am trying to write a function to return the interior colour of a cell which I reference. I am having difficulty getting this to work. Basically I want to define a function like CKCellColour, use this in the excel worksheet as a formula like =CKCellColour(M38) Then have this function return the interior colour of cell M38 The function I have defined is as follows: Function CKCellColour(CellRef as Range) Range(CellRef).Select CKCellColour = Range(CellRef).Interior.ColorIndex End Function This function never seems to get the range ref. Can someone help me solve this problem. Thanks for your help in advance. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Function to return interior colour of a cell
Try:
Function CKCellColour(CellRef As Range) CKCellColour = CellRef.Interior.ColorIndex End Function "G Man" wrote: Hi I am trying to write a function to return the interior colour of a cell which I reference. I am having difficulty getting this to work. Basically I want to define a function like CKCellColour, use this in the excel worksheet as a formula like =CKCellColour(M38) Then have this function return the interior colour of cell M38 The function I have defined is as follows: Function CKCellColour(CellRef as Range) Range(CellRef).Select CKCellColour = Range(CellRef).Interior.ColorIndex End Function This function never seems to get the range ref. Can someone help me solve this problem. Thanks for your help in advance. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Test cell interior color by worksheet function? | Excel Worksheet Functions | |||
Finding Cell Interior Colour of First Cell in Column | Excel Programming | |||
Function to return colour of formatted cell | Excel Worksheet Functions | |||
Code to change interior colour only if current interior colour is | Excel Programming | |||
Conditional Format with VBA - Interior Colour of cell based on value from in-cell dropdown | Excel Programming |