Snasui Excel Forum

ขอบคุณคุณ parakorn นะคะ จะลองนำไปปรับใช้คะ
จะได้ลองเขียนโค้ดมาก่อน ขอบคุณสำหรับคำแนะนำคะ คุณ logic
จะลองเขียนโค้ดมานะคะ ขอบคุณมากๆคะ

จากเดิมที่รันแบบ +1 ไม่ได้ แล้วสามารถรัน +1 ได้แล้ว
แต่ถ้าหากต้องการอ้างอิงจาก หมวดหนังสือด้านหน้าด้วย
เหมือนตัวอย่างที่แนบไว้กับไฟล์ใหม่คะ คือ หมวด E ถึงเลข 0022 แล้ว
แต่หมวด A พึ่งเริ่มใหม่ อยากให้รันเลขใหม่ เป็น 0001 คะ ไม่ +1 ต่อจากหมวด E คะ :oops:
ขอคำแนะนำเพิ่มเติมเรื่องนี้ด้วยคะ ขอบคุณล่วงหน ...

:D ตัวอย่าง Code ครับ

Worksheets("bdata").Cells(A, 2).Value = Worksheets("bdata").Cells(A - 1, 2).Value + 1



ขอสอบถามอีกเรื่องได้ไหมคะ จากไฟล์เดิมแล้ว หากต้องการอ้างอิงจาก หมวดหนังสือด้านหน้าด้วย จะต้องแก้ไขเพิ่มเติมตรงไหนอีกหรือเปล่าคะ
เช่น R ตอนนี้ถึง R005 แล้วมี E002 มาแทรก ต้องการที่จะให้อ ...

snasui wrote: ตัวอย่าง Code ครับ

Worksheets("bdata").Cells(A, 2).Value = Worksheets("bdata").Cells(A - 1, 2).Value + 1

ขอบคุณมากๆนะคะ คาใจอยู่นาน จะนำไปปรับใช้คะ ขอบคุณอีกครั้งคะ

คือต้องการให้สามารถกด add ข้อมูลลงไปได้
ยกเว้น รหัสหนังสือ ไม่ต้องกรอก สามารถรันลงมาเองอัตโนมัติเลยคะ คือ +1 ลงมาเรื่อยๆ
ตามcodeที่ได้ลองเขียนมานั้น มันกลายเป็น 0000 ลงมาคะ

เลยลองเขียนอีกแถวที่ไม่ใช่แถวเดียวกับรหัสหนังสือ
สามารถบวก 1 ได้คะ แต่ว่าจะเปลี่ยนทั้งคอลัมน์เลยถ้าหากเพิ่มมาเรื่อยๆ
รบกวนช ...