0

Excel関数が1つのセルだけでなく範囲で機能できるようにするユーザー定義関数をまとめようとしています。例としては=isnumber(value)、関数がセルの範囲全体で機能しないため、範囲をチェックするために使用するには、範囲内のセルごとに繰り返す必要があります。

の線に沿って何かをまとめようとした人はい=RangeFunct(range, function,[boolean])ますか? これは、範囲内の各セルを介して既存の関数へのループの行に沿って何かを実行し、選択されたものと一致しないブール値で停止します。このコードの設定に関するヘルプをいただければ幸いです。

4

2 に答える 2

0

このような単純なものでは、範囲を文字列 (つまり "A1:B10") として定義し、その範囲内の各セルをループできます。各セルについて、条件をテストしたり、そのセルを変更したり (強調表示するかメモを取る) などを行うことができます。非常に簡単な例を次に示します。

Public Function RangeFunct(ByVal myRange As String) As Boolean
    Dim cell As Range
    Dim checkRange As Range
    Set checkRange = Range(myRange)

    Dim bTemp As Boolean
    bTemp = True

    For Each cell In checkRange
        If cell.Value = 1 Then
            bTemp = False
            Exit For
        End If

    Next cell

    RangeFunct = bTemp
End Function

何をテストしたいのか、どのように使用したいのかをより具体的にしていただければ、ニーズに合わせてコードを変更できます。

于 2013-06-07T15:23:12.360 に答える