Excel VBA質問箱 IV

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

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


50767 / 76732 ←次へ | 前へ→

【30850】Re:エラー回避について
質問  sama  - 05/11/5(土) 23:17 -

引用なし
パスワード
   かみちゃん さん,有難うございます。実は、matchによる検索の部分ですが、
フォーム上の2つのテキストボックスに入力した数値で他sheetに作成してある
表より縦、横の交差する場所の答えを検索してくるように作成しておりますが、
場合によっては、検索した答えはそのままでテキストボックスに入力した縦、横
の座標を示すどちらかを変更しなければならない場合がでてきたもので、つまり
偽の解を表示しなければならないわけです。
説明がうまく出来なくて申し訳ありません。

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

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 発言

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