エクセルのxvlookupという関数に悩んでます

質問

以下の事象に困っています。
1．エクセル10を使用しております。職場の先輩が代々受け継いで使用してきたエクセルシートをいつもと違う他のＰＣで展開したところ、ファイルを展開する前に以下の表示が出てマクロが止まり展開できません。

「コンパイルエラー：プロジェクトまたはライブラリがみつかりません」

2．マクロの内容
↓この一行目のところで停止し、何回も同じエラーが出ます。
Function XVLOOKUP(検索値, 範囲, 列番号, エラー時の表示値)
On Error Resume Next
With WorksheetFunction
戻り値 = .VLookup(検索値, 範囲, 列番号, False)
End With
If Err <> 0 Then
戻り値 = エラー時の表示値
End If
XVLOOKUP = 戻り値
End Function
3．このマクロを削除してシートを展開し、あるセル1列全部が=Xvlookupという関数を参照し、Ｎ／Ａになっています。新たに＝Vlookuｐ関数を入れてもうまく作動しません。
4．正常にファイル展開、Vlookupを参照できる方法をお教えください。
以上

回答No.2

imogasi · ベストアンサー

質問課題の、直接の原因究明ですが
Ｇｏｏｇｌｅで「プロジェクトまたはライブラリが見つかりません 」
で照会し
https://www.moug.net/tech/exvba/0150128.html
のようなものを出して、該当と対策をチェックしてください。
エクセルやＶＢＡのエラーの場合、エラーコメントそのものの文章（1字1句同じにする）でＷＥＢ照会すると、余分な記事がでるのが少ないので、エラー究明に有効です。
この要領をぜひ活用すべきです。
ーーー
もう元のＶＢＡのコードの中身に、踏み込んでいるようだから、
Function ＸＶＬＯＯＫＵＰの部分（XVLOOKUP　を呼び出している部分は）
たとえば
Sub test01()
i = 2
Range("B" & i) = WorksheetFunction.VLookup(Range("A" & i), Range("E1:F19"), 2, False)
End Sub
のように、置き換えてはどうですか？（もちろんSub test01()、End Subは除く。そしてFunction ＸＶＬＯＯＫＵＰは除く）
ワークシート関数にあるものを、またＶＢＡの中で関数化するのは、ややこしくするだけではないですか。

お礼

ありがとうございます。ＨＰを参照し、参照を削除しましたらうまくいきました。今後は教えていただいた方法でよく調べます。

回答No.4

tsubu-yuki

本当にエクセル１０（※確かＯｆｆｉｃｅＸＰだったと記憶）を
未だお使いだとしたらなかなかのアレですが・・・
というか、むしろそこが一番の問題のような気がします。

２０１０をお使いであると仮定して話を進めましょう。

まず、気になるキーワードとして
＞新たに＝Vlookuｐ関数を入れてもうまく作動しません。
これ。
うまく作動しない＝画面にはなんと表示されているのでしょう？
仮に「＃Ｎ／Ａ」だとすると、
単純にＶＬＯＯＫＵＰ関数の第１引数（検索値）が
条件に合っていないだけのような気がします。
※第４引数をＦＡＬＳＥ＝完全一致にしているが
　リストに「検索値」に見合うデータが無い、とか
　そもそも「検索値」が空白だ、とか。
なので、ご質問の３・４については「ＶＢＡは関係ない」はずです。
ＶＬＯＯＫＵＰ式をよく見返してみると見えてくるかもしれません。

ユーザー定義関数に目を向けると・・
＞プロジェクトまたはライブラリがみつかりません
まぁ、書いてある通りでしょう。
参照設定を確認し、然るべきライブラリファイルを使える状態にしましょう。
・・・でも、この文を見る限り、「＃Ｎ／Ａ」は出ないように見えるんですけどね。
ＶＢＡ中のＶＬＯＯＫＵＰ関数で何らかのエラーが返ってきたら、
ＸＶＬＯＯＫＵＰは第４引数で設定してある「エラー時の表示値」を返すはずですし、
「～の表示値」を省略したら＃ＶＡＬＵＥ！が返りますよね。

何にせよ、シートに打ってあるはずのＶＬＯＯＫＵＰ関数式を
もう一度見直してみることを強くオススメします。

とりあえず、もう少し情報が欲しいなぁ、という本音を吐きつつ。

回答No.3

keithin

今まで使えていた
=XVlookup(「検索値」，「範囲」，「列番号」，「エラー時の表示」)
という書式で，「検索値」「範囲」「列番号」のところに何を入れて計算すれば良いのかは理解できていますね？

＞エクセル10を使用しております。

エクセル２０１０と言いたかったのだとします。

手順：
マクロを消去する
いままでのXVLOOKUP関数を入れていたセルを全部Ｄｅｌｅｔｅキーで消去する
代わりに
=IFERROR(VLOOKUP(「検索値」，「範囲」，「列番号」，FALSE),「エラー時の値」)
という数式に書き換えて計算する。

言わずもがなですが，「検索値」他は正しい内容を入れて数式を作成してください。

回答No.1

ubku

「いつもと違う他のPC」でOfficeの修復を行ってみてください。

参考URL：

https://support.microsoft.com/ja-jp/kb/2179287