[已解决]请高手帮忙看下这个能否用vba表示

qiongmei

请高手帮忙看下这个能否用vba表示，我附件上有一个原料表，我希望实现的功能是当我点清除窗体的按钮的时候，在b列中当出现单元格出现停学的时候，则该行保持原样，但如果是其他字，则e列以后的其他列则清空，在附件里我也设了一个执行代码后应该达到的效果。谢谢高手的帮忙

984t7LCW.rar (4.15 KB, 下载次数: 1)

2010-12-22 14:10 上传

点击文件名下载附件
请高手帮忙看下这个能否用vba表示

最佳答案

月排行榜 / 总排行榜

amulee

2010-12-22 14:14

Sub MyClear()
    With ActiveSheet
        For i = 5 To .Range("B65536").End(xlUp).Row
            If .Cells(i, 2) <> "停学" Then
                .Range(.Cells(i, 5), .Cells(i, 7)).ClearContents
            End If
        Next i
    End With
End Sub

跳转到最佳答案楼层

amulee

Sub MyClear()
    With ActiveSheet
        For i = 5 To .Range("B65536").End(xlUp).Row
            If .Cells(i, 2) <> "停学" Then
                .Range(.Cells(i, 5), .Cells(i, 7)).ClearContents
            End If
        Next i
    End With
End Sub