การบันทึกข้อมูลจาก UserForm เป็นชุดลงใน Sheet

[san02551]

สวัสดีครับ ผมติดอีกแล้วเพราะคิดไปเรื่อยๆ คือผมต้องการบันทึกข้อมูลจาก UserForm
1. บันทึกข้อมูลเป็นชุดๆ 1 ชุด มี 10 tex1box1-10
2.ชุดที่ 2 TextBox11-20 ให้บันทึกต่อแถวลงมาเรื่อยๆ ครับ
3. มีไฟล์แนบครับ

[snasui]

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

Code: Select all

Private Sub CommandButton1_Click()
    Dim r As Long
    With Sheets("Alldata")
        r = .Range("a" & Rows.Count).End(xlUp).Row + 1
        .Cells(r, 1) = TextBox1.Text
        .Cells(r, 2) = TextBox2.Text
        .Cells(r, 3) = TextBox3.Text
        .Cells(r, 4) = TextBox4.Text
        .Cells(r, 5) = TextBox5.Text
        .Cells(r, 6) = TextBox6.Text
        .Cells(r, 7) = TextBox7.Text
        .Cells(r, 8) = TextBox8.Text
        .Cells(r, 9) = TextBox9.Text
        .Cells(r, 10) = TextBox10.Text
        r = r + 1
        .Cells(r, 1) = TextBox11.Text
        .Cells(r, 2) = TextBox12.Text
        .Cells(r, 3) = TextBox13.Text
        .Cells(r, 4) = TextBox14.Text
        .Cells(r, 5) = TextBox15.Text
        .Cells(r, 6) = TextBox16.Text
        .Cells(r, 7) = TextBox17.Text
        .Cells(r, 8) = TextBox18.Text
        .Cells(r, 9) = TextBox19.Text
        .Cells(r, 10) = TextBox20.Text
    End With
End Sub

[san02551]

ผมต้องการปรับข้อมูลครับ คือต้องการดึงข้อมูลมาโชว์ ครับ
ตามไฟล์แนบครับ

[snasui]

ช่วยอธิบายมาพอสังเขปว่าต้องการจะทำอะไร ปัญหาคืออะไร จะได้เข้าใจตรงกัน

ตามไฟล์แนบอธิบายเกี่ยวกับการดึงข้อมูลมาโชว์ไว้ตรงไหนครับ

[san02551]

ต้องการดึงข้อมูลใน Sheet AllData

[snasui]

ช่วยเขียนคำอธิบายในฟอรัมพอสังเขปหรือจะ Copy ข้อมูลในไฟล์มาวางไว้ก็ได้

ตรงช่อง Comment นี้จะต้องให้ความสำคัญเสมอเพราะเป็นหน้าด่านที่จะเข้าใจเป็นเบื้องต้นว่าต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร ทั้งนี้เพื่อสะดวกกับเพื่อนสมาชิกในการค้นหาข้อมูล ส่วนรายละเอียดสามารถเขียนลงไปในไฟล์แนบได้ตามต้องการ ลองพยายามอีกครั้งครับ

[san02551]

พิมพ์เลขที่ต้องการดึงข้อความที่ k7
ข้อมูลที่ดึงมา จะอ้างจาก a4:a18
ข้อมูล ในแถว ที่ มี เลข 13 อยู่ จะแสดงใน m7-u7
ข้อมูล ที่มีเลข 13 จะเรียงต่อไปเรื่อยๆ

[snasui]

ลองตามนี้ครับ

เซลล์ M8 คีย์

=VLOOKUP($K$7,$A$5:$J$18,COLUMNS($L8:M8),0)

Enter > Copy ไปทางขวา

สำหรับ Vlookup ศึกษาจากที่นี่ครับ wordpress/vlookup/