Vloopup VBA แสดงข้อมูลมากกว่า1 ข้อมูล

[hz.hz]

ถ้าต้องการให้ Vlookup แสดงข้อมูล มากกว่า1 ข้อมูล ตามลำดับ
อ้างอิงตามเอกสารแนบครับ
ตามในเอกสารแนบเมื่อกดปุ่มให้ lookup ข้อมูล จะ lookup ข้อมูลอันดับ1 มาซ้ำกันครับ ต้องการให้ดึงข้อมูลถัดไปมาครับ
รบกวนช่วยชี้แนะแนวทางแก้ไขทีครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Dim rall As Range, r As Range, i As Integer
With Sheets("Sheet1")
    Set rall = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
    For Each r In rall
       If Me.TextBox1.Text = r.Value Then
        i = i + 1
        If i = 1 Then
            Me.TextBox2.Text = r.Value
            Me.TextBox5.Text = r.Offset(0, 1).Value
        ElseIf i = 2 Then
            Me.TextBox3.Text = r.Value
            Me.TextBox4.Text = r.Offset(0, 1).Value
        ElseIf i = 3 Then
            Me.TextBox6.Text = r.Value
            Me.TextBox7.Text = r.Offset(0, 1).Value
        End If
       End If
    Next r
End With
'Other code

กรุณาศึกษาการ Loop ให้เข้าใจจะได้ปรับปรุง Code เองได้สำหรับงานที่ต้องใช้ Loop

Vlookup แบบตรงตัว (ส่วนประกอบสุดท้ายเป็น 0) จะเป็นการดึงข้อมูลเฉพาะค่าแรกมาเท่านั้น ไม่สามารถ Loop ได้ เราจะใช้ Vlookup ก็ต่อเมื่อต้องการค่าเดี่ยว ๆ ครับ

[hz.hz]

ขอบคุณมากครับ ได้ศึกษา code ตัวอย่างและนำไปปรับใช้ให้เหมาะสม

ผมคิดว่า vlookup สามารถทำได้ถ้าเพิ่มเงื่อนไขเข้าไป
ขอบคุณมากครับที่แนะนำ ได้ความรู้มากขึ้นเลยครับ ผมจะลองศึกษา การใช้ loop เพิ่มขึ้นครับ