Snasui Excel Forum

Posted: **Mon Nov 18, 2013 9:56 pm**

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

Posted: **Mon Nov 18, 2013 10:17 pm**

Code ที่เขียนไว้แล้วชื่อว่าอะไร ติดขัดที่บรรทัดใดครับ

Posted: **Mon Nov 18, 2013 10:58 pm**

ผมติด ตรง กดค้นหาได้ แต่ ต้องการย้ายและลบออกจาก ชีท"รายการสินค้า" ที่เราค้นหา ไปอยู่ชีท"ขายออกแล้ว" นะครับ ทั้งแถวนะครับ
พิมพ์โค้ดไม่ถูกแล้วครับ ไม่รู้จะใส่โค้ดอะไรลงไปให้ย้ายและลบ

Posted: **Mon Nov 18, 2013 11:14 pm**

ตอบที่ผมถามก่อนครับ Code ชื่ออะไร อยู่ที่ใด เขียนไว้ว่าอย่างไร ติดบรรทัดใด จะได้เข้าถึงข้อมูลได้โดยไว

Posted: **Mon Nov 18, 2013 11:26 pm**

UserForm3 ใน ปุ่ม ขาย แต่ผม ไม่ได้ พิมพ์ย้ายไว้คับ

Posted: **Mon Nov 18, 2013 11:30 pm**

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
    If TextBox1.Text = True Then
Sheets("ÃÒÂ¡ÒÃÊÔ¹¤éÒ").Select
Range("A1").Select
Do While True
        If ActiveCell.Value = TextBox1.Text Then
         TextBox4.Text = ActiveCell.Offset(0, 2).Value
         TextBox5.Text = ActiveCell.Offset(0, 3).Value
         TextBox3.Text = ActiveCell.Offset(0, 4).Value
         TextBox6.Text = ActiveCell.Offset(0, 5).Value
         Exit Sub
     End If
     ActiveCell.Offset(1, 0).Select
Loop
        Else
                MsgBox " ¡ÃØ³Ò¾ÔÁ¾ìàÅ¢»ÃÐ¨ÓµÑÇ¡èÍ¹", vbExclamation, "°Ò¹¢éÍÁÙÅºØ¤¤Å"
        End If

End Sub

Posted: **Mon Nov 18, 2013 11:44 pm**

ช่วยแสดงลำดับการทดสอบ ตัวอย่างข้อมูลที่ทดสอบ ลำดับการทำงานของโปรแกรมสำหรับขั้นตอนนี้มาด้วยครับว่า มีขั้นตอนสำหรับการบันทึกอย่างไร

กรอกข้อมูลอะไร ที่ไหน และคลิกปุ่มใดจึงจะค้นหาข้อมูลมาให้และคลิกปุ่มใดจึงจะนำข้อมูลไปวางปลายทางและลบข้อมูลเดิมในชีทรายการค้าทิ้งไป

การจะให้ข้อมูลไปวางที่ใดก็ให้เขียน Code มาก่อน ได้เท่าไรก็เท่านั้น ถ้าไม่ทราบว่าเขียนอย่างไรก็ให้หาวิธีการมาก่อน ติดตรงไหนถามกันได้เต็มที่ครับ

Posted: **Tue Nov 19, 2013 1:12 am**

นั้นอาจารย์ สอน Code กดปุ่มในฟอร์ม แล้วลบข้อมูลออก เป็นแถวในชีท ให้ผมน่อยได้ไหมคับ
เดียว ผมรองทำดู ถ้าไม่ได้ยังไง จะให้อาจารย์ ช่วยสอนอีกที

Posted: **Tue Nov 19, 2013 9:34 am**

ผมบอกแนวทางไปอย่างกว้าง ๆ นะครับ

ในการค้นหาข้อมูลมาเติมใน UserForm แสดงว่าเราสามารถที่จะเก็บข้อมูลได้ว่านำมาจากบรรทัดใด ในบรรทัดนั้นมีเซลล์ใดเป็นตัวแทนได้

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

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

Code: Select all

Sheets("sheetB").Range(TextBox10.Text).EntireColumn.Copy
Sheets("sheetA").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets("sheetB").Range(TextBox10.Text).EntireColumn.Delete

Snasui Excel Forum

ต้องการหาข้อมูลและย้ายไปอีกชีท

ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท

Re: ต้องการหาข้อมูลและย้ายไปอีกชีท