ขอวิธีทำคูปอง เรียงเลขค่ะ

[katai12]

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

[snasui]

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

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

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

[katai12]

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

[snasui]

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

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

[katai12]

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

[snasui]

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

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

[katai12]

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

[snasui]

หากต้องการให้เริ่มจาก 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

[katai12]

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

[snasui]

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

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

[katai12]

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