マクロでvlookup

質問

マクロでvlookupを使用したいのですが、　動かした結果が　#N/A　になります。
どこが間違っているのでしょうか？

マクロはこれ

Sub macro1()
Worksheets("訪問予定").Select
Cells(3, 2).Value = Application.VLookup(Cells(1, 2).Value, Worksheets("担当").Range("A1:C5"), 2)
End Sub

日本語で次のように私は認識してます。
「サブマクロ
訪問予定シートを選択
3行2列目の値は担当シートの日付と一致する行の２列目の値
エンドサブ」

やりたいことは
担当シートをもとに　訪問予定シートの担当蘭を埋めることです。
上記のマクロでは　ループさせてないので　一か所しか埋められませんが
ループを使ってひと月の担当予定を埋める方法を考えてます。

回答No.1

kkkkkm · ベストアンサー

Cells(3, 2).Value = Application.VLookup(Cells(1, 2).Value2, Worksheets("担当").Range("A1:C5"), 2, False)

Value→Value2
最後に Falseを追加

にしてください。

お礼

うぉお！　と思わず声上げてしまいました。　動きました。
value2ってやつですね。　
https://www.moug.net/tech/exvba/0050148.html
を参考に読んでいるところです。

でもどうゆう仕組みでエラーになっているのか　いまだに不明です。

内部処理として

検索値　に　/　を用いた数字になってたからエラーなんですかね。？
セルに　＝vlookup（2016/5/1,担当!A1:C5,2,FALSE)　としたら　N/A　
のエラーがでました。

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

回答No.3

kkkkkm

> でもどうゆう仕組みでエラーになっているのか　いまだに不明です。

ご覧になっているページに書かれていますが、日付は内部ではシリアル値という数値で処理されます。現在の日付が表示されているセルの書式を数値に変更してみるとシリアル値が表示されます。

Valueの場合は、検索値が日付の状態で、担当シートのシリアル値(表示は日付ですが実際は数値)と比較して検索しますので、一致しない結果になります。

Value2だと検索値がシリアル値として返されますので、担当シートのシリアル値に一致することになります。

> ＝vlookup（2016/5/1,担当!A1:C5,2,FALSE)

=VLOOKUP(DATE(2015,5,1),担当!A1:C5,2,FALSE)
としないとだめですね。

日付を扱うのは意外と面倒だったりします。

お礼

たびたび　回答ありがとうございます。　　

実際に目に見えているものと、セルの内部に格納されているものが
違う場合は気をつけます。　日付はシリアル値で扱うことを意識します。

回答No.2

imogasi

添付画像が（ぼやけて）よく見えないので、データを使って実行できないので、正確に答えられないが（質問者がこの質問を開いて、画像を鮮明に見る方法はあるのだろうか。あれば、是非教えてほしい。こういう質問が多いので。）
Ｓｈｅｅｔ２のＡ１：Ｃ３に　（検索表）
aa 2 s
bb 6 d
cc 4 f
と入れて
Ｓｈｅｅｔ１のＢ１に　「ｃｃ」と入れて下記を実行すると
Sub macro1()
Worksheets("Sheet1").Select
Cells(3, 2).Value = Application.VLookup(Worksheets("Sheet1").Cells(1, 2).Value, Worksheets("Sheet2").Range("A1:C5"), 2, False)
End Sub
Ｂ３セルは　4　になった。
だからＢ１に入れるデータと、Ｓｈｅｅｔ２の検索表の第１列のデータ群に同じものがあるという点で、思い違いがあるのでは。
全角と半角、気づかないスペースが入っているとか調べてはどうでしょう。
・第1引数のWorksheets("Sheet1").を添えるほうがよい
・多分第4引数はＴＲＵＥ型だと思うが明記する
は気になった。
ーー
参考　ＷＥＢ記事
http://www.becoolusers.com/excel/iferror-vlookup.html
VLOOKUP関数では
●［検索値］となるセルに何も入力されていない　－－＞これは本質問ではないだろう
●［検索値］となるセルに入力したものが、［範囲］に指定した一覧表にない
という2つの要因で#N/Aエラーが出てしまいます。

お礼

回答ありがとうございます。　画像はアップロードする前は（こちらのパソコンでは）鮮明に見えたのですが、アップすると圧縮されるのか文字がつぶれて状態になるようです。　

うまくいかなかった原因は
検索地に　日付をもちいていたからでした。

.valueでセルの値を取得できるのですが、　2016/01/01のような
値が入っていると上手くいかないようです。　

そこで　kkkkkm様が提示してくれた　value２　を用いたところ
希望する動作となりました。