Page 1 of 1
ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 9:32 am
by sdmania
หน้าpage01 ครับเซลb18สามารถเปลี่ยนแปลงได้ครับ คือสมมุติว่าเป็นเงินสดที่ลูกค้าถือมาเพื่อตัดค่างวดที่ค้างครับ
มันมีกฏว่า เงินที่ลูกค้าถือมาb18 ต้องตัดค่าปรับก่อนb18-f3 จะได้ผลลัพธ์คือ i6 ไปตัดค่างวด จะได้ i6-c6 เป็นผลลัพธ์ในj6 หากj6มากกว่า0 ก็นำไปตัดค่างวดถัดไป คือ(j6-c7) =j7 ทำไปเรื่อยๆจนกว่า ค่าเงินลูกค้า<=0
คำถาม อยู่ตรงนี้แหละครับ ผมจะsave ไปลงsheetรับเงินตัดค่างวด(ตอนนี้ผมยังไม่ได้ออกแบบไว้เลยครับ)แล้วค่างวดที่ตัดไปแล้วมันควรจะเหลือศูนย์น่ะครับ ส่งค่าข้ามsheetยังไงดีครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 9:33 am
by sdmania
ไฟล์ตัวอย่างครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 10:53 am
by sdmania
ขอโทษนะครับ เปลี่ยนเป็นคำถามครับ
ถามใหม่สั้นๆว่า ผมจะำนำคำตอบในวงกลมขวามือ(แถบสีชมภูครับ) ไปใส่ให้ตรงกับ รหัสลูกค้า+งวดที่เท่าใดแบบAuto ยังไงดีน่ะครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 10:58 am
by snasui
เอาไปใส่ในชีทไหน คอลัมน์ไหนครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 11:17 am
by sdmania
ขออภัยครับรีบไปหน่อย
เอาไปใส่ที่ sheet data02 ครับ การเก็บในคอลัมภ์sheet data02นี่ผมยังคิดไม่ออกครับ คิดได้คร่าวๆว่าต้องเก็บรหัสลูกค้า ,กับวันที่ของงวดที่ค้าง,วันที่ของวันที่ลูกค้ามาจ่าย และสุดท้าย จำนวนเงินที่มาตัดงวด ค่าปรับผมไม่ได้แยกเก็บจะเป็นอะไรไหมครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Fri Apr 22, 2011 11:26 am
by snasui
ถ้าเช่นนั้นก็ปรับหัวคอลัมน์ในชีท data02 มาให้ใหม่ตามข้อมูลที่จะเก็บจริงด้วยครับ เพื่อว่าจะได้ทำความเข้าใจต่อไปว่าสามารถทำได้หรือไม่ อย่างไรครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Sat Apr 23, 2011 8:45 am
by sdmania
ผมมาส่งงานที่อาจารย์ให้ไปแก้ใหม่ครับ
sheetที่เอาไว้จัดเก็บข้อมูลการชำระชื่อ data02 ครับอาจารย์
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Sat Apr 23, 2011 8:50 am
by snasui
แต่ละคอลัมน์ในชีท data02 สามารถระบุได้ไหมครับว่าให้เอาค่ามาจากชีทใด เซลล์ใดบ้าง
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Sat Apr 23, 2011 11:52 am
by sdmania
ดูแล้วผมต้องให้อาจารย์สอนใหม่เรื่องDBเสียแล้วล่ะครับ ขอรบกวนอาจารย์ด้วยครับ
sheet data01 คือตัวข้อมูลลูกค้า ได้แก่ รหัสลูกค้า,งวดที่,กำหนดชำระ,ค่างวด
sheet data02 เอาไว้สำหรับรับค่างวด จากลูกค้า ได้แก่ รหัสลูกค้า,วันที่มาชำระ,งวดที่,จำนวนชำระ
แต่ที่ผมแยกการรับค่างวดเพราะ ลูกค้าบางท่าน 1งวด มาจ่าย2ครั้งจึงจะเต็มงวด(บางรายมาจ่ายวันเดียว แต่จ่ายล่วงหน้าไป2งวด) เลยส่งตัวอย่างนี้มาให้อาจารย์สอนวิธีวางDBรับค่างวดครับ หรือว่าควรทำsheetอย่างไรดีครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Sat Apr 23, 2011 3:41 pm
by snasui
ผมปรับมาให้ใหม่เพื่อให้ง่ายต่อการสรุปข้อมูลโดยมีหลักการดังนี้ครับ
1. ในชีท Form สามารถเลือกได้ว่าจะบันทึกลูกหนี้หรือบันทึกชำระค่างวด กรณีที่บันทึกลูกหนี้ ยอดจะเป็นบวก หากชำระค่างวดยอดจะเป็นลบ
2. ในชีท data02 จะเป็น Database สำหรับการทำรายการทั้งหมด
3. ที่ชีท Report จะเป็นสรุปลูกหนี้แต่ละรายว่าในงวดนั้น ๆ เหลือยอดคงค้างหรือไม่ เท่าไร การบันทึกรายการทุกครั้งจะ Update รายงานนี้โดยโดยอัตโนมัติเสมอ
ตัวอย่าง Code ตามด้านล่าง
Code: Select all
Sub RecordData()
Dim rs As Range, rt As Range
Set rs = Worksheets("Form").Range("A2:E2")
Set rt = Worksheets("data02") _
.Range("A65536").End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False
With Worksheets("Form")
If .Range("C8") = 2 Then
.Range("E2") = -.Range("E2")
rs.Copy
rt.PasteSpecial xlPasteValues
.Range("E2") = -.Range("E2")
Else
rs.Copy
rt.PasteSpecial xlPasteValues
End If
End With
Application.CutCopyMode = False
MsgBox "Finish"
Worksheets("Report").PivotTables("PivotTable1"). _
PivotCache.Refresh
Application.ScreenUpdating = True
End Sub
ดูไฟล์แนบประกอบครับ
Re: ขอวิธีsave ข้ามsheet ครั้งเดียวได้หลายเซลด้วยครับ
Posted: Wed Apr 27, 2011 10:14 am
by sdmania
ขอบคุณมากครับอาจารย์
เดี๋ยวผมขอนำไปศึกษาก่อนครับอาจารย์
ขอบคุณมากครับ