Snasui Excel Forum

Posted: **Sat Jan 18, 2020 2:51 pm**

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

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

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

Posted: **Sat Jan 18, 2020 4:19 pm**

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

Code: Select all

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

Posted: **Sat Jan 18, 2020 4:57 pm**

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

Posted: **Sat Jan 18, 2020 5:01 pm**

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

Posted: **Sun Jan 19, 2020 8:44 am**

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

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

ขอบคุณครับ

Posted: **Sun Jan 19, 2020 10:10 am**

snasui wrote: Sat Jan 18, 2020 5:01 pm แก้ให้เป็น Code ล่าสุดและใช้งานได้แล้วจากนั้นแนบมาถามกันใหม่ครับ

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

Posted: **Sun Jan 19, 2020 12:24 pm**

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

Posted: **Sun Jan 19, 2020 12:37 pm**

ตัวอย่างการปรับ 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

Posted: **Sun Jan 19, 2020 1:04 pm**

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

Posted: **Sun Jan 19, 2020 1:21 pm**

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

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

Posted: **Sun Jan 19, 2020 3:10 pm**

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

Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

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