Excel VBA質問箱 IV

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

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


11706 / 13645 ツリー ←次へ | 前へ→

【14625】ユーザ定義関数でのFindメソッド NECRO 04/6/3(木) 10:45 質問[未読]
【14628】Re:ユーザ定義関数でのFindメソッド Jaka 04/6/3(木) 11:06 回答[未読]
【14629】Re:ユーザ定義関数でのFindメソッド NECRO 04/6/3(木) 11:12 お礼[未読]

【14625】ユーザ定義関数でのFindメソッド
質問  NECRO  - 04/6/3(木) 10:45 -

引用なし
パスワード
   みなさん、こんにちは。

次のような不具合に悩まされています...。
ユーザ定義関数内にてFindメソッドがうまく動かないのです。
エラーにはならないのですが、返却値がNothingになってしまうのです。
バグですかねぇ...。

解決策があればご教授願います。
(バグであればバグ情報でもいいのでお願いします。)

環境はWinNT、Excel97です。

以下関数サンプル
Public Function FindSample(findstr As String) As String
  Dim rngFIND As Range
  
  '項目列の検索
  Set rngFIND = Cells.Find(findstr, LookIn:=xlValues, LookAt:=xlWhole)
  If Not rngFIND Is Nothing Then
    FindSample = rngFIND.Value
  Else
    FindSample = "Not Found"
  End If
End Function

以上、よろしくお願いします。

【14628】Re:ユーザ定義関数でのFindメソッド
回答  Jaka  - 04/6/3(木) 11:06 -

引用なし
パスワード
   こんにちは。

Functionで、
Findは、使えなかったと思います。(動かない。)

【14629】Re:ユーザ定義関数でのFindメソッド
お礼  NECRO  - 04/6/3(木) 11:12 -

引用なし
パスワード
   Jakaさん、ご回答ありがとうございます。

なんか普通にいけそうな気がしますが...仕様ですかねぇ...。

とりあえず、あきらめます...。


ありがとうございました。

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