Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to tell whether a cell contains a formula?
if all the formulas would refer to cells on the same sheet.
Sub MarkCells() Dim rng As Range Dim rng1 As Range Dim cell As Range On Error Resume Next Set rng = ActiveSheet.Cells.SpecialCells(xlFormulas) On Error GoTo 0 If Not rng Is Nothing Then For Each cell In rng Set rng1 = Nothing On Error Resume Next Set rng1 = cell.DirectPrecedents On Error GoTo 0 If Not rng1 Is Nothing Then cell.Interior.ColorIndex = 3 End If Next End If End Sub Regards, Tom Ogilvy "Seihee" wrote in message ... Hi! I'm writing a macro to examine all cells in a worksheet. If a cell contains a "pure formula" referencing other cells, then I want to change the color of the cell that contains a formula. In a macro, is there any way I can tell whether a cell contains a formula rather than pure values (number, literal, etc.)? By "pure formula", I mean a formula that contain a cell reference. In other words, "=b5+k2" will be considered a formula but "=5+28/4" will not for my purposes. Your help will be greatly appreciated. Thanks, Seihee |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I make a blank cell in a formula cell with a range of cell | Excel Discussion (Misc queries) | |||
adding a formula in a cell but when cell = 0 cell is blank | Excel Worksheet Functions | |||
Cell Formula reference to cell Based On third Cell Content | Excel Discussion (Misc queries) | |||
Cell Formula reference to cell Based On third Cell Content | Excel Discussion (Misc queries) | |||
Question: Cell formula or macro to write result of one cell to another cell | Excel Programming |