求助改写、优化vba、注释vba代码(见附表)
有网友提供了如下代码:将现有的vba代码优化或改写都可以,只要达到效果就可以,要求附表有说明,且在每行代码右侧加上详细解释Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 33 Then
If Target.Value > 1 Or Target.Value < 0 Then Exit Sub
arr = Sheet1.Range("g6").CurrentRegion
i = UBound(arr, 2) + 5
If Range("ag5") = 1 And i - 5 > 2 Then
Range(Cells(6, i), Cells(34, i)).ClearContents
End If
End If
End Sub
求高手改写vba代码.rar
(10.25 KB)
[ 本帖最后由 dizha 于 2013-3-30 17:11 编辑 ]