ปริ้น TAG ให้รันเลขอัตโนมัติ

[sooksun2009]

รบกวนอาจารย์เรือง ต้องการปริ้นTAG 3แผ่นใน1หน้ากระดาษ โดยให้ตัวเลขที่กำหนดที่เป็นสีแดงรันไปเรื่อยๆจนถึงตัวเลขที่เป็นสีส้ม
ตัวอย่าง tag ชิ้นที่1เป็นเลข ACCJ4580 ชิ้นที่2
เป็น ACCJ4581 ชิ้นที่3 เป็น ACCJ4582 แล้วขึ้น
กระดาษใหม่ชิ้นที่4 เป็น ACCJ4583 จนถึง
ACCJ4799
ขอบคุณครับ

Code: Select all

'Credit http://www.snasui.com
Sub SPK()
Dim i As Integer
Dim a As Integer
Dim v As Integer
On Error Resume Next
v = InputBox( _
        Title:="ÃкةºÑº·ÕèàÃÔèÁ", _
        prompt:="¡ÃÍ¡ËÁÒÂàÅ¢©ºÑºàÃÔèÁ¾ÔÁ¾ì")
a = InputBox( _
        Title:="ÃкةºÑºÊÔé¹ÊØ´", _
        prompt:="¡ÃÍ¡ËÁÒÂàÅ¢©ºÑºÊØ´·éÒ·Õèµéͧ¡ÒþÔÁ¾ì")
If Err = 13 Then
    MsgBox "â»Ã´¡ÃÍ¡¢éÍÁÙÅ·Ñ駩ºÑº·ÕèàÃÔèÁáÅЩºÑº·ÕèÊÔé¹ÊØ´"
    Exit Sub
End If
For i = v To a
    Range("A6") = i
    Range("A6").NumberFormat = "ACCJ4000"
    Range("A1:I21").PrintOut
Next i
End Sub

[snasui]

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

Code: Select all

'Other code
For i = v To a Step 3
    Range("A6") = i
    Range("A11") = i + 1
    Range("A20") = i + 2
    Range("A6,A11,A20").NumberFormat = "ACCJ4000"
    Range("A1:I21").PrintOut
Next i

[sooksun2009]

ขอบคุณอาจารย์มากได้แล้วครับ