ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ

[MnT]

ผมต้องการเขียน code การบันทึกมูลการสั่งซื่้อ สมมุติว่าผมเขียนตารางการสั่งซื้อที่ sheet1 แล้วมีการสั่งซื้อสินค้าหลายๆสินค้าพร้อมกัน (รายการสินค้าเรียงแนวตั้ง) แล้วเวลากดปุ่มบันทึกให้ข้อมูลไปบันทึกที่ sheet2 ข้อมูลบันทึกพร้อมๆกันทุกรายการพร้อมทั้งราคารวมทั้งหมดให้โชว์อีก column I (ผสานเซล์หรือไม่ผสานก็ได้ครับ หรือให้โชว์ที่แถวสุดท้ายครับ) ผมลองทำแล้วมันบึนทึกข้อมูลเฉพาะแถวบนแถวเดียวครับ

อาจารย์ ท่านผู้รู้ช่วยชี้แนะด้วยครับผม
ขอบคุณครับ

[puriwutpokin]

ผมต้องการเขียน code การบันทึกมูลการสั่งซื่้อ สมมุติว่าผมเขียนตารางการสั่งซื้อที่ sheet1 แล้วมีการสั่งซื้อสินค้าหลายๆสินค้าพร้อมกัน (รายการสินค้าเรียงแนวตั้ง) แล้วเวลากดปุ่มบันทึกให้ข้อมูลไปบันทึกที่ sheet2 ข้อมูลบันทึกพร้อมๆกันทุกรายการพร้อมทั้งราคารวมทั้งหมดให้โชว์อีก column I (ผสานเซล์หรือไม่ผสานก็ได้ครับ หรือให้โชว์ที่แถวสุดท้ายครับ) ผมลองทำแล้วมันบึนทึกข้อมูลเฉพาะแถวบนแถวเดียวครับ

อาจารย์ ท่านผู้รู้ช่วยชี้แนะด้วยครับผม
ขอบคุณครับ

ควรแนบโค้ดให้เป็นโค้ดไว้ที่ด้านหน้าโพสด้วยครับ คราวหน้า ตัวอย่างโค้ดครับ

Code: Select all

Sub Rectangle1_Click()
   Dim Rec_Row As Integer
   Dim r As Range
     For Each r In Sheets("Sheet1").Range("c7:c11")
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    'Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("P12").Value 'Grand Total price
    Next r
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub

[MnT]

ขอบคุณครับผม แล้ว column ราคารวม ทำยังไงครับ กดปุ่ม save แล้วมันยังไม่รวมให้ครับผม

[puriwutpokin]

ขอบคุณครับผม แล้ว column ราคารวม ทำยังไงครับ กดปุ่ม save แล้วมันยังไม่รวมให้ครับผม

ปรับเป็น

Code: Select all

Sub Rectangle1_Click()
   Dim Rec_Row As Integer
   Dim r As Range
    For Each r In Sheets("Sheet1").Range("c7:c11")
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("I" & Rec_Row).Value = Sheets("Sheet1").Range("F12").Value 'total Amount Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    Range("K" & Rec_Row).Value = r.Offset(, 4).Value 'Remark
    Next r
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub

[MnT]

ขอบคุณครับ

[MnT]

พี่ครับ code รวมราคาทั้งหมดทำไมมันโชว์ รวมราคาเดียวกันทั้งหมด ทุกรายการเลยครับ ถ้าหากต้องการให้มันรวมไว้ที่บรรทัดสุดท้ายเลยได้ไหมครับ

**สอบถามเพิ่มเติมครับผม**
สมมุติว่าลำดับในการสั่งสินค้าที่ทำไว้มีอยู่ 5 ลำดับ (5 รายการสินค้า) ถ้าเราสั่งซื้อสินค้าแค่ 3 รายการ เวลาบันทึกการสั่งซื้อไม่ให้รายการที่ 4, 5 บันทึกไปด้วย จะเขียน code ยังไงครับผม

ขอบคุณครับ

[puriwutpokin]

ปรับเป็น

Code: Select all

Sub Rectangle1_Click()()
   Dim Rec_Row As Integer
   Dim r As Range
    For Each r In Sheets("Sheet1").Range("c7:c11")
    If r <> "" Then
    Sheets("Sheet2").Select
    Range("A1").Select
    Rec_Row = Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
    Range("A" & Rec_Row).Value = Sheets("Sheet1").Range("C3").Value 'Name
    Range("B" & Rec_Row).Value = Sheets("Sheet1").Range("E3").Value 'Surname
    Range("C" & Rec_Row).Value = Sheets("Sheet1").Range("C4").Value 'Address
    Range("D" & Rec_Row).Value = Sheets("Sheet1").Range("C5").Value 'Phone No.
    Range("E" & Rec_Row).Value = r.Value 'Description
    Range("F" & Rec_Row).Value = r.Offset(, 1).Value 'Qty
    Range("G" & Rec_Row).Value = r.Offset(, 2).Value 'Price/Unit
    Range("H" & Rec_Row).Value = r.Offset(, 3).Value 'total Price
    Range("J" & Rec_Row).Value = Sheets("Sheet1").Range("G12").Value 'Date
    Range("K" & Rec_Row).Value = r.Offset(, 4).Value 'Remark
    End If
        Next r
        Range("I" & Rec_Row).Value = Sheets("Sheet1").Range("F12").Value 'total Amount Price
    Sheets("Sheet1").Select
    MsgBox ("Save Done!!!")
End Sub

[MnT]

ขอบคุณมากกกกครับผม