Page 2 of 2
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Wed Jan 05, 2011 11:54 pm
by sasipapha
สงสัยที่ส่งไปเหมือนไฟล์ใหญ่ แต่พออาจารย์ส่งกลับมาไฟล์ไม่ใหญ่เลยค่ะ
ไม่แน่ใจว่าทำไรผิดรึป่าวค่ะ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Thu Jan 06, 2011 12:03 am
by snasui
ไม่ใช่เหมือนไฟล์ใหญ่ครับ ไฟล์ใหญ่มากเกินกว่าที่มันควรจะเป็น
สาเหตุอย่างแรกมี
ชื่อที่ให้ไว้กับช่วงเซลล์ที่ไม่ได้นำมาใช้จริง อ้างอิงมาจากไฟล์อื่น ผมลบทิ้งหมดแล้ว อย่างที่สองข้อมูลที่มีกับการจองพื้นที่ใช้งานดูแล้วไม่สมเหตุสมผล เช่นมีข้อมูล 20 บรรทัด แต่พบว่า
เซลล์สุดท้ายที่เคยใช้งานอยู่ที่ AZ50000 อย่างนี้เป็นต้น
ทำอย่างไรถึงจะทราบว่าเซลลสุดท้ายที่เคยใช้งานอยู่ที่ไหน ก็ให้กดแป้น
Ctrl+End จะทราบได้ทันทีเพราะ Cursor จะวิ่งไปยังเซลล์สุดท้ายที่เคยใช้งาน หากอยู่เลยไปจากข้อมูลที่มีเป็นระยะทางนับหมื่นบรรทัด ควรจะทำการ Reset เซลล์สุดท้ายเสียใหม่ โดยลบเซลล์ว่าง ๆ ตั้งแต่บรรทัดว่างบรรทัดแรกหลังข้อมูลจนถึงบรรทัดสุดท้ายของชีท ในด้านคอลัมน์ก็ลบออกเช่นเดียวกัน แล้วค่อย Save และทำเช่นนี้กับทุก ๆ ชีท จะทำให้ลดขนาดไฟล์ได้ครับ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Thu Jan 06, 2011 10:07 am
by sasipapha
สอบถามเพิ่มค่ะ
ทำยังไงถึงจะให้เป็นงวดที่ลูกค้าชำระ ถึงงวดปัจจุบันค่ะ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Thu Jan 06, 2011 10:16 am
by snasui
ถ้าต้องการดูเป็นรายบุคคลก็ต้องหาชีทว่าง ๆ ทำตารางแสดงข้อมูลที่ต้องการให้แสดงผล แล้วระบุเงื่อนไขในการดึงข้อมุล เช่น ชื่อหรือรหัสลูกค้า ฯลฯ จากนั้นใช้ฟังก์ชันดึงข้อมูลมาแสดงตามเงื่อนไขครับ นอกจากนั้นก็สามารถใช้ PivotTable เข้ามาช่วย ซึ่งสามารถที่จะดูข้อมูลได้หลายมิติ ตัวอย่างเช่นกระทู้นี้ครับ
http://www.snasui.com/viewtopic.php?f=3&t=316 
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 11:35 am
by sasipapha
สวัสดีค่ะอาจารย์
รบกวนถามอีกนิดนึง คืออยากจะเปลี่ยนตรง ปุ่ม ชำระแล้ว เป็น save และให้บันทึกข้อมูลค่ะ ข้อมูลอย่างอื่นรันตามเดิมค่ะ
ขอบคุณค่ะ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 11:39 am
by snasui
คลิกขวาลงบนปุ่ม แล้วคลิกลากคลุมข้อความ แก้ให้เป็นตามที่ต้องการครับ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 12:22 pm
by sasipapha
แล้วถ้าคลิก ปุ่ม save โปรแกรมก็จะทำการบันทึกข้อมูลให้ใช่มั้ยค่ะ
หรือต้องแก้สูตรอะไรหรือป่าว
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 12:29 pm
by snasui
ปุ่มเดิมทำหน้าที่อะไร เปลี่ยนชื่อไปมันก็ทำหน้าที่เหมือนเดิมครับ หรือเดิมมันทำหน้าที่อะไร แล้วต้องการให้มันทำหน้าที่อะไร อธิบายมาให้ละเอียดพร้อมไฟล์แนบด้วยครับ กรณีเคยแนบแล้วและไม่มีการเปลี่ยนแปลงไปอย่างเป็นสาระสำคัญ ตำแหน่งต่าง ๆ ยังเหมือนเดิม ช่วยอ้าง Link มาให้ด้วย เพื่อจะได้เข้าใจตรงกันว่ากำลังกล่าวถึงไฟล์ไหนครับ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 12:42 pm
by sasipapha
อาจารย์ลองดูในไฟล์แบบนะค่ะ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 12:53 pm
by snasui
ดูแล้วครับ ที่บอกให้เปลี่ยนตามนี้
snasui wrote: คลิกขวาลงบนปุ่ม แล้วคลิกลากคลุมข้อความ แก้ให้เป็นตามที่ต้องการครับ
ไม่ทราบติดปัญหาอะไรครับ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 3:20 pm
by sasipapha
กลัวว่าคลิกแล้ว โปรแกรมจะไม่เซฟ(บัญทึกข้อมูล)ให้ค่ะ เพราะตอนแรกที่บอกอาจารย์ แค่คลิกแล้วรันเขที่บิลกับรัน ค่างวด เท่านั้นค่ะ
เลยคิดว่าต้องแก้ไขสูตรใหม่ด้วยค่ะ
Re: อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ
Posted: Sat Jan 08, 2011 3:29 pm
by snasui
อ้อ...ครับ ถ้าต้องการให้ Save สามารถเพิ่ม Code เพื่อให้ Save เข้าไปด้วยครับ โดยเพิ่ม Code
ThisWorkbook.Save เป็นตามด้านล่างครับ
Code: Select all
Sub PasteData()
Dim rs As Range
Dim rt As Range
Set rs = Worksheets("Temp").Range("A2:J2")
Set rt = Worksheets("บันทึกเลขที่ใบเสร็จ").Range("A65536") _
.End(xlUp).Offset(1, 0)
Application.ScreenUpdating = False
rs.Copy
rt.PasteSpecial xlPasteValues
Application.CutCopyMode = False
With Worksheets("From")
.Range("E6") = .Range("I2")
.Range("E8") = .Range("I4")
End With
MsgBox "Record Finish"
ThisWorkbook.Save
Application.ScreenUpdating = True
End Sub