我要求助大神们了

qggmfai

我想C8 这个单元格，如何用宏实现在执行宏的时候 124T0161；124T0162；124T0163这个递增1,望高手告诉一个，最好把代码发我一下，清楚一下，对这个我是小白
谢谢大神了

swl4561255

1. 
   
2. Sub test()
   
3. [C8] = Left([C8], 4) & Format(Right([C8], 4) + 1, "0000")
   
4. End Sub
   

复制代码

qggmfai

大神是我的错，我没讲清楚，在点执行的时候，要跳出这个 打印对话框，比如输个3份，就自动递加
我代码发一段，能否帮我改一下:     麻烦大神了!!
Sub BADG()
x1 = "打印对话框"
x2 = "请输入打印张数"
x = Val(InputBox(x2, x1))
ae = Range("d8")
k = 1
ae = Range("d8")
be = Left(ae, 4)
ce = Right(ae, 4)
de = Left(ae, Len(ae) - 4)
fe = Right(de, Len(de) - 4)
ge = Val(fe)
While k <= x
ge = ge + 1
Worksheets("sheet1").PrintOut
If Len(ge) = 1 Then
Range("d8") = Trim(be) + "000" + Trim(Str(ge)) + Trim(ce)
End If
If Len(ge) = 2 Then
Range("d8") = Trim(be) + "00" + Trim(Str(ge)) + Trim(ce)
End If
If Len(ge) = 3 Then
Range("d8") = Trim(be) + "0" + Trim(Str(ge)) + Trim(ce)
End If
If Len(ge) >= 4 Then
Range("d8") = Trim(be) + Trim(Str(ge)) + Trim(ce)
End If
k = k + 1
Wend
End Sub