Snasui Excel Forum

ต้องการทำคูปอง โดยเรียงเลข 0001-1000 ชีทละ 400 ใบ ต้องทำยังไงคะ ? ขอบคุณล่วงหน้าค่ะ

ตัวอย่างสูตรที่ D1 ครับ

=TEXT(INT((ROWS(D$1:D1)-1)/6)+1,"""No.""0000")

Enter > Copy ช่วง A1:D5 ไปวางด้านล่างและด้านขวาเพื่อแสดงผลลัพธ์ตามต้องการ เมื่อได้ข้อมูลในชีตแรกแล้วค่อย Copy ไปวางในชีตอื่น ๆ ที่เหลือหากต้องการครับ

ขอบคุณค่ะ รบกวนอีกรอบค่ะ แล้วมีวิธีที่ใส่ D1 แล้วตัวเลข run ไปถึง 400 เลยไหมคะ ? เพราะไม่อย่างนั้นต้อง copy สูตร ชีท ละ 400 ครั้งเลยค่ะ

สูตรนั้นจะรันให้เมื่อ Copy ไปด้านล่างครับ

การให้รันเองพร้อมข้อมูลที่เกี่ยวข้องโดยไม่ต้อง Copy ด้วยมือจะต้องเขียน VBA เข้าไปจัดการ (ซึ่งต้องเขียนมาเองก่อน) ไม่ทราบว่าผมเข้าใจถูกต้องหรือไม่ ช่วยอธิบายเพิ่มเติมหากผมยังเข้าใจไม่ถูกต้องครับ

พอใช้ excel ได้นิดหน่อยค่ะ ที่บอกมา เขียนไม่เป็นเลยค่ะ แต่พอเข้าใจแล้วค่ะ เพราะข้อมูลที่เกี่ยวข้องไม่ได้มีการใช้สูตร (เป็นรูปแบบเฉย ๆ) ถ้าอย่างนั้น มีวิธีที่สามารถ copy ทีเดียวแล้วได้ 400 เลยมั้ยคะ ? เพราะไม่อย่างนั้นต้องมา copy ทีละอัน แบบ กำหนดว่า จะ copy แล้วให้ run เลข จำนวน 400 ชุด ค่ะ

ขออภัย ปรับตัวเลขในสูตรที่ D1 จาก 6 เป็น 5 ดังด้านล่างก่อน Copy ไปใช้ต่อครับ

=TEXT(INT((ROWS(D$1:D1)-1)/5)+1,"""No.""0000")

ขอบคุณค่ะ สูตรนี้ปรับแล้วค่ะ แต่ต้องการให้ copy ทีเดียวได้ ตัวเลข ถ้า D1 เริ่มจาก 1 ให้ทำถึง 400 ถ้า D1 เริ่มที่ 401 ให้ทำถึง 800 ได้มั้ยคะ ?

หากต้องการให้เริ่มจาก 401 ให้ปรับสูตรที่ D1 เป็นด้านล่างครับ

=TEXT(INT((ROWS(D$1:D2000)-1)/5)+1,"""No.""0000")

ซึ่งต้องทำก่อนที่จะ Copy ไปใช้งาน

แต่หาก Copy ไปเรียบร้อยแล้วให้ใช้การ Replace แทนตามด้านล่างครับ

วิธีการ

1. คลุมคอลัมน์ D
2. เปิดกล่องโต้ตอบ Replace ด้วยการกดแป้น Ctrl+H
3. ช่องบนคีย์ -1
4. ช่องล่างคีย์ +2000-1
5. คลิกปุ่ม Replace All
6. คลิกปุ่ม Close

ขอบคุณค่ะ แต่คือ ยังไงก็คือต้อง copy ทีละอัน ให้ครบตามจำนวนที่ต้องการก่อน ถูกต้องมั้ยคะ ?

ต้อง Copy เอง สูตรนั้นแค่ช่วยให้มันรันลำดับครับ

วิธีการ Copy ให้เร็ว Copy ให้ครบ 10 อันก่อน แล้วค่อย Copy 10 อันนั้นไปวางต่อจาก 10 อันเดิมจะได้เป็น 20 อัน จากนั้นค่อย Copy 20 อันไปวางต่อของเดิมแบบนี้เป็นต้น การ Copy เช่นนี้จะทำให้ลดเวลาได้มากครับ

ขอบคุณมาก ๆ ค่ะ