สอบถาม Code ในการรันลำดับที่
Posted: Fri Mar 20, 2015 9:43 am
ขอสอบถาม หน่อยครับ สำหรับ การเขียน Code VBA ในการรันลำดับที่ ครับ
ปัจจุบัน Code ที่ผมใช้ปัจจุบันจะเป็นการรันโดย Row +1
ปัญหา คือว่า ถ้าลำดับข้อมูลแรก ผมไม่ได้เริ่มที่ 1 ควรแก้ Code อย่างไรดีครับ
เช่น ผมเริ่มบันทึกข้อมูลแรก ด้วยลำดับที่ 100 อยากให้ลำดับต่อไปเป็น 101 ประมาณนี้ครับ อาจจะอธิบายไม่ค่อยกระจ่าง ต้องขออภัยด้วยครับ
นี้เป็น Code ที่ผมใช้อยู่ครับ
ปัจจุบัน Code ที่ผมใช้ปัจจุบันจะเป็นการรันโดย Row +1
ปัญหา คือว่า ถ้าลำดับข้อมูลแรก ผมไม่ได้เริ่มที่ 1 ควรแก้ Code อย่างไรดีครับ
เช่น ผมเริ่มบันทึกข้อมูลแรก ด้วยลำดับที่ 100 อยากให้ลำดับต่อไปเป็น 101 ประมาณนี้ครับ อาจจะอธิบายไม่ค่อยกระจ่าง ต้องขออภัยด้วยครับ
นี้เป็น Code ที่ผมใช้อยู่ครับ
Code: Select all
Private Function NewData() As Boolean
NewData = False
Dim FormData(15)
Dim r As Integer
r = Range("a" & Rows.Count).End(xlUp).Row + 1
FormData(0) = r - 2
แนบไฟล์ตัวอย่างมาด้วยเพื่อสะดวกต่อการทดสอบของเพื่อน ๆ ครับ