[已解决]求个简单的vba

lmknj

条件是a5,b5,c5三格有空格(指没有数字)就提示"要更新"并结束运行,如果三格都有数就把它复至到a10,b10,c10

最佳答案

月排行榜 / 总排行榜

dsjohn

2012-4-20 14:50

Sub tt()
If Range("a5") <> "" And Range("b5") <> "" And Range("c5") <> "" Then
    Range("a5:c5").Copy
    Range("a10").PasteSpecial
Else
    MsgBox "需更新"
End If
Application.CutCopyMode = False
End Sub

跳转到最佳答案楼层

dsjohn

Sub tt()
If Range("a5") <> "" And Range("b5") <> "" And Range("c5") <> "" Then
    Range("a5:c5").Copy
    Range("a10").PasteSpecial
Else
    MsgBox "需更新"
End If
Application.CutCopyMode = False
End Sub

lmknj

dsjohn 发表于 2012-4-20 14:50
Sub tt()
If Range("a5")  "" And Range("b5")  "" And Range("c5")  "" Then
    Range("a5:c5").Copy

运行时点确定后能不能把后面的vba也停止掉,因为有几个vba连在一起

dsjohn

传个附件吧，这么说也不知道你其他的vba是什么代码

lmknj

dsjohn 发表于 2012-4-20 15:40
传个附件吧，这么说也不知道你其他的vba是什么代码

就这样也可以谢谢你