อยากทราบสูตร หาค่างวดว่าลูกค้าชำระงวดที่เท่าไหร่ ค่ะ

[sasipapha]

สงสัยที่ส่งไปเหมือนไฟล์ใหญ่ แต่พออาจารย์ส่งกลับมาไฟล์ไม่ใหญ่เลยค่ะ
ไม่แน่ใจว่าทำไรผิดรึป่าวค่ะ

[snasui]

ไม่ใช่เหมือนไฟล์ใหญ่ครับ ไฟล์ใหญ่มากเกินกว่าที่มันควรจะเป็น

สาเหตุอย่างแรกมีชื่อที่ให้ไว้กับช่วงเซลล์ที่ไม่ได้นำมาใช้จริง อ้างอิงมาจากไฟล์อื่น ผมลบทิ้งหมดแล้ว อย่างที่สองข้อมูลที่มีกับการจองพื้นที่ใช้งานดูแล้วไม่สมเหตุสมผล เช่นมีข้อมูล 20 บรรทัด แต่พบว่าเซลล์สุดท้ายที่เคยใช้งานอยู่ที่ AZ50000 อย่างนี้เป็นต้น

ทำอย่างไรถึงจะทราบว่าเซลลสุดท้ายที่เคยใช้งานอยู่ที่ไหน ก็ให้กดแป้น Ctrl+End จะทราบได้ทันทีเพราะ Cursor จะวิ่งไปยังเซลล์สุดท้ายที่เคยใช้งาน หากอยู่เลยไปจากข้อมูลที่มีเป็นระยะทางนับหมื่นบรรทัด ควรจะทำการ Reset เซลล์สุดท้ายเสียใหม่ โดยลบเซลล์ว่าง ๆ ตั้งแต่บรรทัดว่างบรรทัดแรกหลังข้อมูลจนถึงบรรทัดสุดท้ายของชีท ในด้านคอลัมน์ก็ลบออกเช่นเดียวกัน แล้วค่อย Save และทำเช่นนี้กับทุก ๆ ชีท จะทำให้ลดขนาดไฟล์ได้ครับ

[sasipapha]

สอบถามเพิ่มค่ะ

ทำยังไงถึงจะให้เป็นงวดที่ลูกค้าชำระ ถึงงวดปัจจุบันค่ะ

[snasui]

ถ้าต้องการดูเป็นรายบุคคลก็ต้องหาชีทว่าง ๆ ทำตารางแสดงข้อมูลที่ต้องการให้แสดงผล แล้วระบุเงื่อนไขในการดึงข้อมุล เช่น ชื่อหรือรหัสลูกค้า ฯลฯ จากนั้นใช้ฟังก์ชันดึงข้อมูลมาแสดงตามเงื่อนไขครับ นอกจากนั้นก็สามารถใช้ PivotTable เข้ามาช่วย ซึ่งสามารถที่จะดูข้อมูลได้หลายมิติ ตัวอย่างเช่นกระทู้นี้ครับ http://www.snasui.com/viewtopic.php?f=3&t=316

[sasipapha]

สวัสดีค่ะอาจารย์

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

ขอบคุณค่ะ

[snasui]

คลิกขวาลงบนปุ่ม แล้วคลิกลากคลุมข้อความ แก้ให้เป็นตามที่ต้องการครับ

[sasipapha]

แล้วถ้าคลิก ปุ่ม save โปรแกรมก็จะทำการบันทึกข้อมูลให้ใช่มั้ยค่ะ

หรือต้องแก้สูตรอะไรหรือป่าว

[snasui]

ปุ่มเดิมทำหน้าที่อะไร เปลี่ยนชื่อไปมันก็ทำหน้าที่เหมือนเดิมครับ หรือเดิมมันทำหน้าที่อะไร แล้วต้องการให้มันทำหน้าที่อะไร อธิบายมาให้ละเอียดพร้อมไฟล์แนบด้วยครับ กรณีเคยแนบแล้วและไม่มีการเปลี่ยนแปลงไปอย่างเป็นสาระสำคัญ ตำแหน่งต่าง ๆ ยังเหมือนเดิม ช่วยอ้าง Link มาให้ด้วย เพื่อจะได้เข้าใจตรงกันว่ากำลังกล่าวถึงไฟล์ไหนครับ

[sasipapha]

อาจารย์ลองดูในไฟล์แบบนะค่ะ

[snasui]

ดูแล้วครับ ที่บอกให้เปลี่ยนตามนี้

คลิกขวาลงบนปุ่ม แล้วคลิกลากคลุมข้อความ แก้ให้เป็นตามที่ต้องการครับ

ไม่ทราบติดปัญหาอะไรครับ

[sasipapha]

กลัวว่าคลิกแล้ว โปรแกรมจะไม่เซฟ(บัญทึกข้อมูล)ให้ค่ะ เพราะตอนแรกที่บอกอาจารย์ แค่คลิกแล้วรันเขที่บิลกับรัน ค่างวด เท่านั้นค่ะ
เลยคิดว่าต้องแก้ไขสูตรใหม่ด้วยค่ะ

[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