excel vbaでvlooupの変数がわかりません。

Question

教えてください。下記のエラーがでます。
「実行エラー1004　WorksheetFunction.VLookup クラスプロパティが取得できません」
やりたい事は「シート("②価格集計")」のU行に社名があり、社名のシートから
Vlookupで13列を取得したいのです。
社名はその時々で変更されシート名も変更されます。
宜しくお願いします。
Sub Sample2()
    Dim i As Long, t As Long, Target As Range
    Dim b As String
    Dim endrow As Long, s As Long
    Dim A As Object, F As Worksheet, E As Object, C As Long
      
    endrow = Sheets("①SPOT売却明細貼付").Range("L" & Rows.Count).End(xlUp).Row - 4
    b = Sheets("②価格集計").Range("U2").Value
    For s = 1 To Worksheets.Count
        If Worksheets(s).Name = b Then
        
                For t = 3 To endrow
                    Set Target = Sheets("②価格集計").Range("U3:U" & t)
                Next t

            For i = 3 To endrow
                  Set A = Worksheets("②価格集計").Range("B" & i)
                  Set F = Worksheets(s)
                  Set E = F.Range("A:M") '範囲
                    C = 13 '列番
                Target = WorksheetFunction.VLookup(A, E, C, False)
            Next i
            Exit For
        End If
    Next s
End Sub

fujillin · Accepted Answer

こんにちは

＞WorksheetFunction.VLookup クラスプロパティが取得できません
は、（多分）Vlookupで対象が見つからない場合（＝通常の関数だとエラー値になる）に発生すると思われます。
第4引数が、Falseなので完全一致での検索になりますが、検索値が必ず存在するものと保証できるのでしょうか？
保証がない場合は、エラー処理を加えるか、事前にCountifなどで存在を確認して分岐するなどが必要になると思われます。

ご質問とは関係がありませんが・・
＞For t = 3 To endrow
＞Set Target = Sheets("②価格集計").Range("U3:U" & t)
＞Next t
ご提示のコードでは、意味の無い処理となっています。

また、
＞Target = WorksheetFunction.VLookup(A, E, C, False)
変数Targetの宣言はRangeになっていますので、Vlookupの値があったとしても、代入時にエラーが発生します。
返される値が不明ですが、Variantなどで受けるようにしておく必要があります。

fujillin · Answer

No3です。

＞Target = WorksheetFunction.VLookup(A, E, C, False) とやりたいのですが
＞VLookUpではシート名の変数はエラーになるらしく
そのようなことはないと思います。
きちんと指定できていれば、Rangeオブジェクトはシート名も保持していますので。

そもそも、ご提示のコードでは、（すでにNo4様がご指摘済みですが）処理の対象となるシートは
＞Worksheets(s).Name = b
に該当するシートのみです。（他のシートは処理がスキップされるので）
ご提示以外の部分で、変数の内容を変えてしまっていたり、意図とは異なる範囲を指定することになっていませんか？

Vlookupの結果を取得後どのように処理しているのかも不明ですけれど、例えば、
＞Target = WorksheetFunction.VLookup(A, E, C, False)
の部分を
　If WorksheetFunction.CountIf(E.Columns(1), A) = 0 Then
　　Target = "該当なし"
　Else
　　Target = WorksheetFunction.VLookup(A, E, C, False)
　End If
などとしておくことで、検索でヒットしない場合は「該当なし」の文字列がTargetの値になります。

どの行で、「該当なし」になるのかを確認の上、その部分の検索範囲や検索値がどうなっているのかを調べてみれば、実際に何が起こっているのかがわかるのではと思います。
想像するところ、質問様の範囲指定等での勘違いではないかと思いますが・・・
（セル値に見えないスペースが付加されているなども考えられますけれど）

Qchan1962 · Answer

本当にすみません。
流れ的にマナーが悪いのですが
＃４の
＞WorksheetFunction.VLookupは事前検証が必要なので
は正しくないので訂正します
正しくは、Variant型で受けIsErrorで検証できます
すみません。
例
            For i = 3 To endrow
                Set A = Worksheets("②価格集計").Range("B" & i)
                Set F = Worksheets(b)
                Set E = F.Range("A:M")    '範囲
                C = 13    '列番
                Dim VL As Variant
                VL = Application.VLookup(A, E, C, False)
                If Not IsError(VL) Then
Debug.Print VL
                End If
            Next i

Qchan1962 · Answer

こんにちは
VLookupについて、fujillin様ご指名用ですが

Findのサンプルをいらぬお節介で書いときます
Sub Sample()
    '    Dim i As Long, n As Long
    Dim endrow As Long
    Dim Target As Range, cop As Range
    Dim A As Object, F As Worksheet, E As Object, C As Long

endrow = Sheets("①SPOT売却明細貼付").Range("L" & Rows.Count).End(xlUp).Row - 4
    C = 13  '列番
    '    Sheets.Add After:=ActiveSheet
    '    i = 1: n = 1
    '    For Each cop In Sheets("②価格集計").Range("U2:U" & WorksheetFunction.Max(endrow, 2))
    Set cop = Sheets("②価格集計").Range("U2")    '複数会社名時不要
    For Each F In Worksheets
        If F.Name = cop.Text Then
            '            Cells(i, n) = cop.Text
            With F
                Set E = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp))
                For Each A In Worksheets("②価格集計").Range("B3:B" & endrow)
                    Set Target = E.Find(What:=A.Value, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not Target Is Nothing Then
Debug.Print Target.Offset(, C - 1).Value                          'セル出力時不要
                        '                         i = i + 1
                        '                        Cells(i, n) = Target.Offset(, C - 1).Value
                    End If
                Next
            End With
            Exit For
        End If
    Next
    '        i = 1
    '        n = n + 1
    '    Next
End Sub
コメント部は新規シートを作り　U2以降下にも会社名がある場合です
For t = 3 To endrow
Set Target = Sheets("②価格集計").Range("U3:U" & t)
Next t
の勝手な想像です

参考程度で・・・

Qchan1962 · Answer

こんにちは　
ご質問については＃３様の通りかと思います。

回答ではありませんので参考程度で
掲示コードは他の処理を省かれたものと存じますが、気になりましたので

コードを読むと色々不具合が発生する可能性を感じます
endrow =　についてその後使われるシートや列が違うようです
最終行№　が同じになる保証がないと問題が発生する可能性があります

もしかしたら、今回のケースもそれに含まれているかも知れません。
For i = 3 To endrow
Set A = Worksheets("②価格集計").Range("B" & i)

最大
Set A = Worksheets("②価格集計").Range("B" & endrow)
Aを取得したい範囲は合っていますか？

これも既にご指摘がありますが、
Target As Rangeなので setが必要です

下記は目的不明ですが
For t = 3 To endrow
Set Target = Sheets("②価格集計").Range("U3:U" & t)
Next t
ループで繰り返される為
t = WorksheetFunction.Max(endrow, 3)
Set Target = Sheets("②価格集計").Range("U" & t)
と同じ結果になります。

もう一点
b = Sheets("②価格集計").Range("U2").Value
For s = 1 To Worksheets.Count
このループ内に
If Worksheets(s).Name = b Then　以外の処理が無いようでしたら
直接シートを明示する事が出来ます（全てのシートを対象にしなくても大丈夫 なので For s は不要）
With Worksheets(b)　や　 set sht=Worksheets(b)

個人的にはWorksheetFunction.VLookupは事前検証が必要なので
Findメソッドを使う事が多いです。Findも取得検証が必要ですが実行後で良いので・・

めぐみん_ · Answer

For t = 3 To endrow
Set Target = Sheets("②価格集計").Range("U3:U" & t)
Next t

ここって１つの変数へのＳＥＴを繰り返す（上書き）だけで、変数：Target の値は一番最後のセル範囲になる。
なら

Set Target = Sheets("②価格集計").Range("U3:U" & endrow)

これでも同じでは？

Target = WorksheetFunction.VLookup(A, E, C, False)

これも変数：Target は Range型なので VLookup で得られるのはセルの値だから使用する変数の型が違うと思いますけど。
それにセルの値を受けた後に何もしてないのでは？

銀鱗 · Answer

対象のワークシートがActiveになってないのかな。
……と思ってみたりします。

excel vbaでvlooupの変数がわかりません。

こんにちは

No3です。

本当にすみません。

こんにちは

こんにちは

For t = 3 To endrow

対象のワークシートがActiveになってないのかな。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

こんにちは　