Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50739 / 76738 ←次へ | 前へ→

【30884】Re:エラー回避について
発言  Hirofumi  - 05/11/6(日) 16:31 -

引用なし
パスワード
   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の値を使っている部分だと思います
その部分のコードを載せないと、この問題の解決に成らないと思いますが?

0 hits

【30791】エラー回避について sama 05/11/4(金) 20:10 質問
【30792】Re:エラー回避について かみちゃん 05/11/4(金) 20:15 発言
【30850】Re:エラー回避について sama 05/11/5(土) 23:17 質問
【30874】Re:エラー回避について かみちゃん 05/11/6(日) 14:08 発言
【30884】Re:エラー回避について Hirofumi 05/11/6(日) 16:31 発言
【30887】Re:エラー回避について Hirofumi 05/11/6(日) 18:29 発言
【30908】Re:エラー回避について sama 05/11/6(日) 23:49 回答
【30912】Re:エラー回避について ichinose 05/11/7(月) 8:19 発言
【30915】Re:エラー回避について sama 05/11/7(月) 9:08 回答
【30927】Re:エラー回避について ichinose 05/11/7(月) 12:33 発言
【30935】Re:エラー回避について sama 05/11/7(月) 14:43 お礼
【30885】Re:エラー回避について ichinose 05/11/6(日) 16:56 発言

50739 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free