|
samaさん、かみちゃんさん今日は、
私も質問の意味が善く解らないのですが?
エラーを起こしているのは、以下のコードじゃ無いのでは?
>Private Function ColumnSearh(vntKey As Variant, _
> rngScope As Range, _
> Optional lngOver As Long) As Long
>
>Dim vntFound As Variant
>
> vntFound = Application.Match(vntKey, rngScope, 1)
> If Not IsError(vntFound) Then
> If vntKey = rngScope(, vntFound).Value Then
> ColumnSearh = vntFound
> End If
>
> lngOver = vntFound + 1
> Else
> lngOver = 1
> End If
>
>End Function
この列探索の関数は、探索値が指定範囲に有る場合、戻り値として1以上を返し
無い場合は、0を返します(返す値は、rngScope内の探索値の位置)
因みに、lngOverは、rngScope内で探索値を超える最小値の有る位置を返します
この中でエラーが起きるのは多分、Matchで探索している部分ですが?
エラーは、エラー値としてvntFoundに返ってきてそれを処理しています
因って、マクロ停止に成るエラーは、このFunctionを呼び出すコード
若しくは、このFunctionの戻り値、又は、lngOverの値を使っている部分だと思います
その部分のコードを載せないと、この問題の解決に成らないと思いますが?
|
|