excel宏的编写

来源：百度知道 编辑：UC知道 时间：2024/05/21 22:52:49
我编了一个运行程序,发现有一点不尽人意之出,就是单据号不能自动生成,能不能将单元格E3每执行完一次宏后自动生成如上一回000258,加1,000259,
Sub LSHOUHUOCHU()
'
' LSHOUHUOCHU Macro
' 杨慧杰 记录的宏 2007-12-5
'
' 快捷键: Ctrl+Shift+L
'
If Range("b2") = "" Or Range("d2") = "" Or Range("g2") = "" _
Or Range("b3") = "" Or Range("e3") = "" Or Range("g3") = "" Then
MsgBox "B2,D2,G2,B3,E3,G3,必需填充，程序将终止！", 32 + 0
Else

Range("A5:M11").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-6
ActiveWindow.SmallScroll Down:=33
Range("A40").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
Range("A40:D46").Select
ActiveWindow.SmallScroll ToRight:=6
Range("A40:D4

应该不会，出现你的那情况。
因为没有看到你的表，那我就猜一下了。
32+0 就是提示窗口有声音，有个动画一样的小汽球。你可以去掉试试比较一下就知道了。

Sub LSHOUHUOCHU()
'
' LSHOUHUOCHU Macro
' 杨慧杰 记录的宏 2007-12-5
'
' 快捷键: Ctrl+Shift+L
'
If Range("b2") = "" Or Range("d2") = "" Or Range("g2") = "" _
Or Range("b3") = "" Or Range("e3") = "" Or Range("g3") = "" Then
MsgBox "B2,D2,G2,B3,E3,G3,必需填充，程序将终止！", 32 + 0
Else

Range("A5:M11").Select
Selection.Copy
ActiveWindow.SmallScroll ToRight:=-6
ActiveWindow.SmallScroll Down:=33
Range("A40").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.SmallScroll Down:=3
Range("A40:D46").Select
ActiveWindow.SmallScroll ToRight:=6
Range("A40:D46,H