戻る  □一般操作のサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
マクロでVLOOKUP

    [194850] マクロでVLOOKUP-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ VLOOKUP -(2022/04/30(12:19))
    □U R L/
      Sub 別のシートからVLookup@()
        Dim tbl As Range
        Set tbl = Sheets("商品一覧").Range("A1:F100")
      
        Dim key As Long
        key = Range("B5").Value
      
        On Error Resume Next
        Dim ret As String
        ret = WorksheetFunction.VLookup(key, tbl, 3, False)
        On Error GoTo 0
      
        Range("H5").Value = ret
      End Sub
      
      
      Sub 別のシートからVLookupA()
        Dim tbl As Range
        Set tbl = Sheets("商品一覧").Range("A1:F100")
      
        Dim key As Long
        key = Range("B5").Value
      
        On Error Resume Next
        Dim ret As String
        ret = WorksheetFunction.VLookup(key, tbl, 4, False)
        On Error GoTo 0
      
        Range("J5").Value = ret
      End Sub
      
      
      上記のマクロを作りました。
      更に改良を施したくご教示お願いします。
      
      1.別のシートからVLookup@Aを1つの処理としたい。
      2.Sheet1には1000件のデータがあり、検査値をB5〜B1000としたい。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194851] Re[1]: マクロでVLOOKUP-

    記事引用/メール受信=OFF■

    □投稿者/ 半平太 -(2022/04/30(15:05))
    □U R L/
      Sub 統合VLookup()
          Dim tblA As Range
          Set tblA = Sheets("商品一覧").Range("A1:A100")
          
          Dim i As Long
          Dim tblCD As Range
          Set tblCD = Sheets("商品一覧").Range("C1:D100")
          
          Dim AryH() As Variant
          Dim AryJ() As Variant
          
          With Range("B5", Cells(Rows.Count, "B").End(xlUp)) 'B列の最終データ行まで
              Dim ret As Variant
              
              ReDim AryH(1 To .Rows.Count, 1 To 1)
              ReDim AryJ(1 To .Rows.Count, 1 To 1)
              
              For i = 1 To .Rows.Count
                  If .Cells(i, 1) <> "" Then  '空白セルは対象外にする
                      ret = Application.Match(.Cells(i, 1).Value2, tblA, 0)
                      
                      If IsNumeric(ret) Then '該当ありなら
                          AryH(i, 1) = tblCD(ret, 1)
                          AryJ(i, 1) = tblCD(ret, 2)
                      End If
                  End If
              Next
              
              Range("H5").Resize(.Rows.Count) = AryH
              Range("J5").Resize(.Rows.Count) = AryJ
          End Wit


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [194852] Re[2]: マクロでVLOOKUP-

    迷宮入りorほかあたって見ます・・ / 記事引用/メール受信=OFF■

    □投稿者/ VLOOKUP -(2022/05/01(11:30))
    □U R L/
      半太郎さん
      お世話になっております。
      
      早速のご教示ありがとうございました。
      
      まずはマクロを試したところ
      If .Cells(i, 1) <> "" Then  '空白セルは対象外にする
      部分で【 実行時エラー13 形が一致しません 】とエラーが出ました。
      調べてはいるのですが原因が不明な為、ご教示お願いします。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194853] Re[3]: マクロでVLOOKUP-

    迷宮入りorほかあたって見ます・・ / 記事引用/メール受信=OFF■

    □投稿者/ VLOOKUP -(2022/05/01(11:32))
    □U R L/

      半平太さん、名前誤入力してしまい
      誠に申し訳ありません。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194854] Re[4]: マクロでVLOOKUP-

    記事引用/メール受信=OFF■

    □投稿者/ とおりすがり -(2022/05/02(07:57))
    □U R L/
      そのセルの内容をご自分で確認してください。
      
      エラー値かなにかになっているのであれば、
          If Not IsError(.Cells(i, 1)) Then
              If .Cells(i, 1) <> "" Then  '空白セルは対象外にする
      などとしてみてはどうですか?


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [194855] Re[5]: マクロでVLOOKUP-

    解決!!ありがとうございました! / 記事引用/メール受信=OFF■

    □投稿者/ VLOOKUP -(2022/05/03(08:43))
    □U R L/

      とおりすがりさん
      おはようございます。

      エラーになる原因を今一度調べ、問題分かりました。
      試行錯誤している際、最終行にVLOOKUP関数が残っており
      それが問題でした。

      また、ご教示いただいたマクロも問題なく処理できました。


      とおりすがりさん、半平太さん
      色々ご教示いただきありがとうございました。


      ++++++++++++++++++++
      OS      ⇒OTHER
      Version⇒OTHER
      ++++++++++++++++++++




    [194857] Re[6]: マクロでVLOOKUP-

    記事引用/メール受信=OFF■

    □投稿者/ とおりすがり -(2022/05/03(10:49))
    □U R L/
      VLOOKUP関数があるだけで、なぜ、形が一致しません になるんだろうか。
      それがエラーを返していたということ?はっきり書いてください。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G