Page 1 of 1
Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 12:08 pm
by yukioh
สหวัดดีครับ อาจาร
ขอรบกวน อาจารย์ เกียวกับ code ลบข้อมูนใน form
ต้องกานลบข้อมูน ใน form จะต้องใช้ code ยีงไงดีครับ
code ที่มีอยู่ มันค้อนค่างจะ fixed
Re: Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 12:12 pm
by snasui
ช่วยอธิบายมาด้วยว่าต้องการจะลบอย่างไรเพื่อไม่ให้เป็นการ Fixed ครับ
Re: Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 12:27 pm
by yukioh
ครับ
เวลาเรากดปุ่ม มันจะลบทังหมดเล่ยคับ ทังตัวข้อมูน และ ส่วนท้ายของข้อมุน ที่เขียนว้า " Received by Payee"
ต้องกานให้ลบข้อมูนที่อยู่ใน ตะลางเท่านั้น โดยไม่ให้ลบ ข้อความ " Received by Payee"
Re: Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 12:40 pm
by snasui
ลองปรับ Code เป็นตามด้านล่างครับ
Code: Select all
With Sheets("Form")
.Range("b3", .Range("a" & Rows.Count).End(xlUp).Offset(-1, 7)).ClearContents
End With
Re: Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 2:52 pm
by yukioh
ได้ผมครับ ครับ ตรงตามที่ต้องกานเลียครับ
ขอถามต่อในส่วนของ Save entry to form (Save_to_form) ครับอาจารย์
บางที่ เรา enter ข้อมูน sheet(entry) เป็นจำนวนมาก แล้ว format ของ form มืแถวน้อย
จะทำยังไงให้ เวลาเรากดปุม save to form แล้วให้ form insert ให้ เหมาะตามจำนวนข้อมูรครับ
Re: Delete data in cell & Save entry to form
Posted: Sat Jul 06, 2013 4:26 pm
by snasui
กรณี Insert ข้อมูลลง Form โดยให้ยืดหยุ่นตามปริมาณข้อมูลก็ต้องเขียน VBA เข้าไปช่วยตรับ
ก่อนวางข้อมูล ให้ลบข้อความด้านท้าย Form ทิ้งไป แล้ววางข้อมูล แล้วค่อยสร้างใหม่ข้อมูลด้านท้าย Form ใหม่หลังจากวางข้อมูลแล้ว ลองเขียนมาดูก่อนติดตรงไหนค่อยถามกันต่อครับ