| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 388 人关注过本帖
标题:求助改写、优化vba、注释vba代码(见附表)
只看楼主 加入收藏
dizha
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-3-25
结帖率:100%
收藏
已结贴  问题点数:6 回复次数:1 
求助改写、优化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 编辑 ]
2013-03-30 14:12
seafish011
Rank: 7Rank: 7Rank: 7
等 级:黑侠
威 望:1
帖 子:167
专家分:694
注 册:2011-11-8
收藏
得分:6 
vba不懂,帮顶
2013-03-30 18:39
快速回复:求助改写、优化vba、注释vba代码(见附表)
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021369 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved