Question

excel里做宏后做的VB语言

我在excel里编宏后，要求B2,D2,G2,B3,E3,G3必须要填充，否则不执行宏，也就是说如果B2＝D2＝G2＝B3＝E3＝G3＝0不执行下列命令，否则可执行，
Sub LSHOUHUOCHU()
'
' LSHOUHUOCHU Macro
' 杨慧杰 记录的宏 2007-12-5
'
' 快捷键: Ctrl+Shift+L
'

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,H40:K46,M40:M46").Select
Range("M40").Activate
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.NumberFormatLocal = "@"
Range("L40:L46").Select
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"""
ActiveWindow.SmallScroll ToRight:=-6
Range("A40:m46").Select
Selection.Copy
Sheets("储藏").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Sheets("录入表").Select
ActiveWindow.SmallScroll Down:=-18
Range("b3:c3").Select
Selection.ClearContents
Range("B2").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
Range("G2").Select
Selection.ClearContents
Range("e3").Select
Selection.ClearContents
Range("g3").Select
Selection.ClearContents
Range("A5:b11").Select
Selection.ClearContents
Range("e5:e11").Select
Selection.ClearContents
Range("b2").Select
End Sub
谢谢有识之事，回答后用上起到效果，我会追加分的！
谢谢,我试了一下,发现其中一项不为"0"也可以运行宏,我的要求是其中有一项为"0"就不能运行.如果可能的话请将A5也加上

Answer 1

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,H40:K46,M40:M46").Select
Range("M40").Activate
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.NumberFormatLocal = "@"
Range("L40:L46").Select
Selection.NumberFormatLocal = "yyyy""年""m""月""d""日"""
ActiveWindow.SmallScroll ToRight:=-6
Range("A40:m46").Select
Selection.Copy
Sheets("储藏").Select
Range("A2").Select
Selection.Insert Shift:=xlDown
Sheets("录入表").Select
ActiveWindow.SmallScroll Down:=-18
Range("b3:c3").Select
Selection.ClearContents
Range("B2").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
Range("G2").Select
Selection.ClearContents
Range("e3").Select
Selection.ClearContents
Range("g3").Select
Selection.ClearContents
Range("A5:b11").Select
Selection.ClearContents
Range("e5:e11").Select
Selection.ClearContents
Range("b2").Select
End If
End Sub