Snasui Excel Forum

Posted: **Tue Feb 16, 2016 9:59 am**

สวัสดีค่ะ หนูพยายามดึงข้อมูลข้ามชีทโดย ขั้นแรก กรอก ID สินค้าที่ต้องการ เข้า textbox1
ขั้นที 2 หนูเชคว่า ID สินค้าใน Textbox 1 ตรงกับ ID สินค้า (คอลัมภ์ที่ 6 ในsheet 1) ไหม
ขั้นที่3 ถ้าตรง เช่น ID สินค้า 053 ให้copy ทั้งแถว หมายถึง A14 : F21 ไปวางใน sheet 2 ในตำแหน่งเดียวกันกับ sheet 1
หนูลองเขียนโค้ดแล้วแต่ไม่ซับซ้อนมากค่ะเนื่องจากเขียนได้ไม่นาน อยากขอคำแนะนำอาจารย์ว่าหนูทำถูกไหมคะ หนูมีไฟล์และโค้ดที่ได้เขียนบางส่วนแนบมาด้วยค่ะ

testone.xlsm: (18.24 KiB) Downloaded 60 times

Posted: **Tue Feb 16, 2016 6:58 pm**

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

Code: Select all

Do While Sheets("sheet1").Cells(5 + j, 1).Value <> ""
    If UCase(Me.TextBox1.Value) = UCase(Sheets("Sheet1").Cells(j + 5, 6).Value) Then
        Sheets("Sheet2").Cells(j + 5, 1).Value = Sheets("Sheet1").Cells(j + 5, 1).Value
        Sheets("Sheet2").Cells(j + 5, 2).Value = Sheets("Sheet1").Cells(j + 5, 2).Value
        '...
    End If
    j = j + 1
Loop

Posted: **Thu Feb 18, 2016 9:43 am**

ขอบคุณมากค่ะ

Snasui Excel Forum

VBA ดึงข้อมูลข้ามชีทโดยใช้ textbox เข้ามาเกี่ยวข้อง

VBA ดึงข้อมูลข้ามชีทโดยใช้ textbox เข้ามาเกี่ยวข้อง

Re: VBA ดึงข้อมูลข้ามชีทโดยใช้ textbox เข้ามาเกี่ยวข้อง

Re: VBA ดึงข้อมูลข้ามชีทโดยใช้ textbox เข้ามาเกี่ยวข้อง