Macro : ค้นหา package A แต่ B มาด้วย

[wisitsakbenz]

รบกวนสอบถามอาจารย์ครับ

ค้นหา package A แต่ B มาด้วย ไม่ทราบว่าปรับ Code อย่างไรบ้างครับ ขอบคุณครับ

Code: Select all

Data_search = Worksheets("Input").id_txtbox.Value

With Sheets("Data")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    i = 16
    For Each r In .Range("A2:A" & lr)
    
        If r.Value = Data_search Then
           Sheets("Input").Range("B" & i).Resize(3, 5).Value = _
                        r.Offset(0, 1).Resize(3, 5).Value
                       i = i + 1
        End If
    Next r
   
    

[snasui]

ปรับตอนนำข้อมูลมาวางเป็นด้านล่างครับ

Code: Select all

Sheets("Input").Range("B" & i).Resize(1, 5).Value = _
                        r.Offset(0, 1).Resize(1, 5).Value

[wisitsakbenz]

ถ้าอยากให้เอา Column C-G ใน Sheet "Data" มาแสดงใน Sheet "Input" ต้องปรับ Code อย่างไรครับอาจารย์

[snasui]

แก้ให้เป็น Code ล่าสุดและใช้งานได้แล้วจากนั้นแนบมาถามกันใหม่ครับ

[wisitsakbenz]

เรียนอาจารย์ snasui ใช้งานได้แล้วครับ

แต่ อยากให้เอา Column C-G ใน Sheet "Data" มาแสดงใน Sheet "Input" ต้องปรับ Code อย่างไรครับอาจารย์

ขอบคุณครับ

[snasui]

แก้ให้เป็น Code ล่าสุดและใช้งานได้แล้วจากนั้นแนบมาถามกันใหม่ครับ

ทำตามโพสต์ที่ผมยกมาคือ "แนบไฟล์ล่าสุดมาด้วย" ครับ

[wisitsakbenz]

แนบไฟล์ให้แล้วครับอาจารย์ ขอบคุณครับ

[snasui]

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

Code: Select all

Sheets("Input").Range("B" & i).Resize(1, 6).Value = _
             r.Offset(0, 1).Resize(1, 6).Value

.resize(x,y) คือการขยายพื้นที่ ของตัวแปรเดิม โดย x คือจำนวนบรรทัด, y คือจำนวนคอลัมน์ ศึกษาเพิ่มเติมได้ที่นี่ครับ Range.Resize

[wisitsakbenz]

ไม่ได้ครับอาจารย์ อยากให้ได้ผลเป็นแบบรูปที่แนบครับ ขอบคุณครับ

[snasui]

เปลี่ยนจาก .Resize(1, 6).Value เป็น .Resize(1, 5).Value และ r.Offset(0, 1) เป็น r.Offset(0, 2) ครับ

กรุณาทำความเข้าใจ .offset อย่างด่วนที่สุดเท่าที่จะทำได้ครับ

[wisitsakbenz]

ได้แล้วครับอาจารย์ snasui ขอบคุณครับ