Page 1 of 1
ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Tue Jun 18, 2019 4:24 pm
by MnT
ผมต้องการเขียน code การบันทึกมูลการสั่งซื่้อ สมมุติว่าผมเขียนตารางการสั่งซื้อที่ sheet1 แล้วมีการสั่งซื้อสินค้าหลายๆสินค้าพร้อมกัน (รายการสินค้าเรียงแนวตั้ง) แล้วเวลากดปุ่มบันทึกให้ข้อมูลไปบันทึกที่ sheet2 ข้อมูลบันทึกพร้อมๆกันทุกรายการพร้อมทั้งราคารวมทั้งหมดให้โชว์อีก column I (ผสานเซล์หรือไม่ผสานก็ได้ครับ หรือให้โชว์ที่แถวสุดท้ายครับ) ผมลองทำแล้วมันบึนทึกข้อมูลเฉพาะแถวบนแถวเดียวครับ
อาจารย์ ท่านผู้รู้ช่วยชี้แนะด้วยครับผม
ขอบคุณครับ
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Tue Jun 18, 2019 5:13 pm
by puriwutpokin
MnT wrote: Tue Jun 18, 2019 4:24 pm
ผมต้องการเขียน 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
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Tue Jun 18, 2019 5:39 pm
by MnT
ขอบคุณครับผม แล้ว column ราคารวม ทำยังไงครับ กดปุ่ม save แล้วมันยังไม่รวมให้ครับผม
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Tue Jun 18, 2019 7:38 pm
by puriwutpokin
MnT wrote: Tue Jun 18, 2019 5:39 pm
ขอบคุณครับผม แล้ว 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
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Wed Jun 19, 2019 12:41 pm
by MnT
ขอบคุณครับ
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Wed Jun 19, 2019 1:49 pm
by MnT
พี่ครับ code รวมราคาทั้งหมดทำไมมันโชว์ รวมราคาเดียวกันทั้งหมด ทุกรายการเลยครับ ถ้าหากต้องการให้มันรวมไว้ที่บรรทัดสุดท้ายเลยได้ไหมครับ
**สอบถามเพิ่มเติมครับผม**
สมมุติว่าลำดับในการสั่งสินค้าที่ทำไว้มีอยู่ 5 ลำดับ (5 รายการสินค้า) ถ้าเราสั่งซื้อสินค้าแค่ 3 รายการ เวลาบันทึกการสั่งซื้อไม่ให้รายการที่ 4, 5 บันทึกไปด้วย จะเขียน code ยังไงครับผม
ขอบคุณครับ
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Wed Jun 19, 2019 1:59 pm
by 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
Re: ต้องการ code บันทึกข้อมูลการสั่งซื้อครับ
Posted: Wed Jun 19, 2019 4:37 pm
by MnT
ขอบคุณมากกกกครับผม