Snasui Excel Forum

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

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

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

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

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

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

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

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

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

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

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

ที่ B10 ใส่สูตร =SUMIFS(Table1[รหัสหนังสือ],Table1

ตามกติกาคุณ eyesupisara ต้องปรับโค้ดมาเองก่อน ติดปัญหาแล้วค่อยถามมานะครับ

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