จะเรียงตัวเลขแบบนี้ทำยังไงครับ

[odido]

ตัวเลขชุดนี้

เลขคี่

107    105    103    101    99   
       1        3       5        7      9

ให้เป็นแแบนี้

107,1,105,3,103,5,101,7,99,9
     


เลขคู่

    106       104      102     100       98
2          4          6         8        10


ให้เป็นแแบนี้

2,106,4,104,6,102,8,100,10,98


คือผมต้องใช้ตั้งค่าการปริ้นหนังสือครับ A4 1แผ่น 4 หน้า 

ตอนนี้ผมใช้วิธีทำตัวเลขผ่าน excel แล้วพิมพ์แทรกอย่างเดียว ช้ามาก บางเล่ม 300-400 หน้า

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


ท่านใดมีวิธีที่ gen แบบเร็วๆ แนะนำหน่อยครับ   

[ominae]

ไม่รู้ช่วยได้หรือเปล่า
หากเครื่อง laser สั่งพิมพ์หน้าคู่ไปก่อน1รอบ แล้วค่อยสั่งหน้าคี่อีกรอบออกได้เหมือนกันครับ
หากกระดาษไม่ติดก็จบ เครื่องมันสั่งได้ว่าเรียงจากหลังมาหน้า หรือหน้าไปหลังครับ

[ominae]

หากทำผ่าน excel เรียงตามที่บอกได้นะครับ
ติดต่าง
a1 พิมพ์ 1
a2 พิมพ์ =a1+2
แล้วก็ copy ลงมาได้เลขตามที่เรียงแล้ว
ส่วน
107 ก็เหมือนกัน
b1 พิมพ์ 107
b2 พิมพ์ =b1-2
แล้วก็ copy ลงมา

จากนั้นก็เอามาเรียงกันครับ

[smapan]

โค้ด เลือก ขยาย

$arrayA = (107,105,103,101,....);
$arrayB = (1,3,5,7,....);
$result = '';
for($i=0;$i<count($arrayA);$i++){
  $result .= $arrayA[$i].",";
  $result .= $arrayB[$i];
}
echo $result;

[Extra Cash]

ใช้ macro นี้ใน Excel ก็ได้ครับ
กด Alt + F11 แล้วก๊อปโค๊ตนี้ลงไป

โค้ด เลือก ขยาย

Option Explicit

Sub Pages()
    Dim i&, u&, s$
    u = Sheet1.[B1] + 1
    For i = 1 To u / 2 Step 2
        s = s & "," & u - i & "," & i
    Next
    Sheet1.[B2] = Mid(s, 2)
End Sub


ใส่จำนวนหน้า เช่น 107 ในเซล B1
จากนั้น Run macro นี้ จะไ้ดผลลัพท์ในเซล B2 ตามนี้

โค้ด เลือก ขยาย

107,1,105,3,103,5,101,7,99,9,97,11,95,13,93,15,91,17,89,19,87,21,85,23,83,25,81,27,79,29,77,31,75,33,73,35,71,37,69,39,67,41,65,43,63,45,61,47,59,49,57,51,55,53

เปลี่ยนชื่อ Sheet หรือ Cell ที่จะใช้เอาเองครับ ตรง Sheet1.[B1] กับ Sheet1.[B2]

[odido]

ใช้ macro นี้ใน Excel ก็ได้ครับ
กด Alt + F11 แล้วก๊อปโค๊ตนี้ลงไป

โค้ด เลือก ขยาย

Option Explicit

Sub Pages()
    Dim i&, u&, s$
    u = Sheet1.[B1] + 1
    For i = 1 To u / 2 Step 2
        s = s & "," & u - i & "," & i
    Next
    Sheet1.[B2] = Mid(s, 2)
End Sub


ใส่จำนวนหน้า เช่น 107 ในเซล B1
จากนั้น Run macro นี้ จะไ้ดผลลัพท์ในเซล B2 ตามนี้

โค้ด เลือก ขยาย

107,1,105,3,103,5,101,7,99,9,97,11,95,13,93,15,91,17,89,19,87,21,85,23,83,25,81,27,79,29,77,31,75,33,73,35,71,37,69,39,67,41,65,43,63,45,61,47,59,49,57,51,55,53

เปลี่ยนชื่อ Sheet หรือ Cell ที่จะใช้เอาเองครับ ตรง Sheet1.[B1] กับ Sheet1.[B2]

ลองทำวิธีของท่าน ทำใด้แล้วครับ  แต่รบกวนอีกนิด ถ้าตอ้งการให้ออกมา ทั้งเลขคู่และเลขคี่ ต้องทำยังไงครับ 



เลขคี่

107   105   103   101   99   
      1      3      5       7    9

ให้เป็นแแบนี้

107,1,105,3,103,5,101,7,99,9
     


เลขคู่

    106  104  102      100    98
2   4   6   8   10


ให้เป็นแแบนี้

2,106,4,104,6,102,8,100,10,98

[Extra Cash]

น่าจะประมาณนี้ครับ

โค้ด เลือก ขยาย

Option Explicit

Sub Pages()
    Dim i&, u&, s1$, s2$
    u = Sheet1.[B1] + 1
   
    For i = 1 To u / 2 Step 2
        s1 = s1 & "," & u - i & "," & i
        s2 = s2 & "," & i + 1 & "," & u - i - 1
    Next
    Sheet1.[B2] = Mid(s1, 2)
    Sheet1.[B3] = Mid(s2, 2)
End Sub

[odido]

น่าจะประมาณนี้ครับ

โค้ด เลือก ขยาย

Option Explicit

Sub Pages()
    Dim i&, u&, s1$, s2$
    u = Sheet1.[B1] + 1
   
    For i = 1 To u / 2 Step 2
        s1 = s1 & "," & u - i & "," & i
        s2 = s2 & "," & i + 1 & "," & u - i - 1
    Next
    Sheet1.[B2] = Mid(s1, 2)
    Sheet1.[B3] = Mid(s2, 2)
End Sub

ใช่เลยครับ ขอบคุณมากๆครับ