EXCEL VBAコミュのVBAでのVLOOKUPについて

VBAでVLOOKUPを使いたいのですが一覧に検索対象がなかったときエラーになってしまいます。
※検索の型はFALSE固定

EXCEL関数のようにISNA()やISERROR()を使おうとしても関数として認識してくれませんでした。

今はしょうがないので先にFINDをしてTRUEのときだけVLOOKUPしています。

どなたかエラーの回避策またはIS関数を有効にする参照設定をご存知の方いませんか？

よろしくお願いします。

コメント(14)

最初
全て
最新の40件

[1] mixiユーザー 03月19日 19:47

On Error Resume Next
　変数 = WorksheetFunction.VLookup(・・・・・・)
myErr = Err.Number
On Error GoTo 0
　If myErr = 0 Then
　　エラーなしの処理
　Else
　　エラーがある場合の処理
　EndIf

でどうでしょうか？

[3] mixiユーザー 03月19日 20:16

Goldenさんのような、エラー回避のプログラミングを使う方法のほかに、以下のような反則技があります。

Sub ブイルック()
Range("A2").Value = "=VLookup(A1, B1:C4, 2, 0)"
End Sub

――つまり文字列としてVLOOKUP関数を書き込んでしまうわけです

[4] mixiユーザー 03月19日 20:28

Application.WorksheetFunction.で使用できない関数はたしか、E・・・なんとかメソッド?で使えると何かの本で読んだことがあります。が、ど忘れしてしまいました。この場を借りてどなたかお教え下さい。

[5] mixiユーザー 03月19日 20:41

Evaluateメソッドですね。

[6] mixiユーザー 03月19日 21:04

よっちゃんさん、ありがとうございます。
いまヘルプみました。
使用する名前を、オブジェクトまたは値に変換するのですね。

↓こんな使い方もあるのですね
http://support.microsoft.com/kb/407898/ja

[7] mixiユーザー 03月19日 21:12

コミュ違いですが、「Excel（エクセル）活用」コミュニティの方で
何年か前にセルに入力された方程式を解くようなサンプルを提示したことあります。
Evaluateメソッドは使い方次第でVBAでできることの幅が広がります。

話がそれてすみません。

[8] mixiユーザー 03月19日 21:21

トピ主さん、脱線させてすみません(^^;

>>ISERROR()を使おうとしても関数として認識してくれませんでした。
IserrやIsErrorはWorksheetFunction.でつかえますね。
ちなみに.を入力するとリストが現れます。

[9] mixiユーザー 03月19日 21:52

今までは１÷０さんの提示された方法をたびたび使ってましたが、Evaluateを使えばセルの値をとりださず（セルに関数を入力せず）に値だけゲットできるから便利ですね。参考になりました。
http://www.moug.net/mmaga/back/472.htm

ところでトピ主さんは解決されたのでしょうか？

[10] mixiユーザー 03月19日 22:22

Application.VLookupなら関数の結果がエラーになった場合でも
実行時エラーになりません。
そして、IsError関数で関数の結果がエラーかどうか判別可能です。
　　Dim Re As Variant
　　Re = Application.VLookup("A", Range("A1:B3"), 2, False)
　　If IsError(Re) Then
　　　　MsgBox "#N/Aエラー"
　　Else
　　　　MsgBox Re
　　End If

[11] mixiユーザー 03月19日 23:45

Evaluateは知りませんでした。
便利そうなので、今度何らかの業務に使用しましょう。

[12] mixiユーザー 03月20日 00:02

みなさんありがとうございますm(__)m

後で試してみます♪

IS関数ワークシートファンクションを定義するってのはちょっと盲点でした

[13] mixiユーザー 03月20日 00:30

>今はしょうがないので先にFINDをしてTRUEのときだけVLOOKUPしています。
Findメソッドを使っているなら、Findメソッドの戻り値をそのまま利用した方がスマートです。

　　Dim rngF As Range
　　Set rngF = Range("A:A").Find(・・・)
　　If rngF Is Nothing Then
　　　　Msgbox "なし"
　　Else
　　　　Msgbox rngF.Offset(,1).Value
　　End If

それと
>IS関数ワークシートファンクションを定義するってのはちょっと盲点でした
は、多分使い物になりませんよ。

[14] mixiユーザー 03月21日 18:18

ISERROR…VBAのコマンドのほうだったのですね(^^;
間違えました。すみません。

ログインすると、みんなのコメントがもっと見れるよ