Snasui Excel Forum

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

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