Excel / VBA：使用公式查找范围内的常数

Question

I am trying to setup a formula in excel/vba that will allow me to input a range of cells and output in one cell whether or not there are any constants in that range. Its real easy to do for one cell but I cannot seem to get something working for the range. Any ideas?

thanks a lot, Jeremy

Answer 1

Code for UDF that will return True for cells with a value and no formula:

Option Explicit

Public Function DetectConstantInRange(rng As Range) As Boolean

    Dim rngCell As Range
    Dim blnResult As Boolean

    'assume false
    blnResult = False

    'iterate each cell in range
    For Each rngCell In rng
        'cell with value and no formula is constant
        If Not rngCell.HasFormula And rngCell.Value <> vbEmpty Then
            blnResult = True
            'at least one constant so exit
            Exit For
        End If
    Next rngCell

    'return result        
    DetectConstantInRange = blnResult

End Function

Answer 2

Start here:

http://www.excel-easy.com/vba/examples/loop-through-defined-range.html

you need to decide which range you want to use your function on, define it,add a loop to loop through all cells in range and apply your function.