哪位大神帮忙翻译下，下面代码的意思，非常感谢！

樱果

哪位大神帮忙翻译下，下面代码的意思，非常感谢！

Sub 班产统计表保存()
Worksheets("班产统计汇总表").Unprotect ("149") '解密  
Dim arr As Variant, rng As Range
Dim i, s, f As Integer
Set rng = Worksheets("班产统计汇总表").[b:b].Find([F3] + 1, , , xlWhole)
If rng Is Nothing Then
    With Sheets("班产统计表")
        If Range("c3") = "" Then
        MsgBox "请输入“领用日期”信息"
        GoTo aa
        End If
        If .[F3] = "" Then
            .[F3] = Now()
        End If
        s = .Columns(2).Cells(.Columns(2).Cells.Count).End(xlUp).Row
        arr = .Range("b5:g" & s).Value
    End With
    With Sheets("班产统计汇总表")
        .Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Offset(1).Resize(UBound(arr), 5) = arr
        .Range(.Cells(.Columns(1).Cells(.Columns(1).Cells.Count).End(xlUp).Row + 1, 1), .Cells(.Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Row, 1)) = Sheets("班产统计表").[C3]
        .Range(.Cells(.Columns(2).Cells(.Columns(2).Cells.Count).End(xlUp).Row + 1, 2), .Cells(.Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Row, 2)) = Sheets("班产统计表").[F3]
    End With
    MsgBox "保存成功！"
    Union(Sheets("班产统计表").Range("c3"), Range("g3"), Range("e5", "h40")) = ""
End If
aa:
Worksheets("班产统计汇总表").Protect ("149") '加密
End Sub
Sub 班产统计表清空数据()
Union(Sheets("班产统计表").Range("c3"), Range("g3"), Range("e5", "h40")) = ""
End Sub

chxw68

估计没几个人有兴趣干这个苦力活的。

约定的童话

朱荣兴 发表于 2018-9-19 11:35
注释代码就如给小学生讲高等数学

大师总结的精辟啊，哈哈

樱果

chxw68 发表于 2018-9-19 11:23
估计没几个人有兴趣干这个苦力活的。

没办法呀，自己不太懂，只能靠各位兄弟帮忙了

樱果

朱荣兴 发表于 2018-9-19 11:35
注释代码就如给小学生讲高等数学

这个的确是，隔行如隔山，对我来说，那就象是天书一样。

a18b88

坛里一位朋友的作品，请参考！ VBA程序解释器_进化_5.rar (104.52 KB, 下载次数: 10)

2018-9-19 14:28 上传

点击文件名下载附件

樱果

a18b88 发表于 2018-9-19 14:28
坛里一位朋友的作品，请参考！

这个我用过了，但是显示翻译时，就报警了，报警信息为：编译错误“找不到工程和库”

lsc900707

樱果 发表于 2018-9-19 14:18
没办法呀，自己不太懂，只能靠各位兄弟帮忙了

一个百度，一个F1键，可能要多问问这两位老师！

a18b88

Sub 班产统计表保存()    '子程序 班产统计表保存()
Worksheets("班产统计汇总表").Unprotect ("149") '解密      '<工作表>("班产统计汇总表" )的取消保护("149")'解密
Dim arr As Variant, rng As Range    '定义变量 arr 为 变量,rng 为 单元格区域
Dim i, s, f As Integer    '定义变量 i,s,f 为 整型值
Set rng = Worksheets("班产统计汇总表").[b:b].Find([F3] + 1, , , xlWhole)    '设定rng=<工作表>("班产统计汇总表" )的[b :b]的<查找>([F3]+1,,,全部)
If rng Is Nothing Then    '如果 rng 是 空值 则执行
        With Sheets("班产统计表")    '工作于<工作表>("班产统计表")
                If Range("c3") = "" Then    '如果 <单元格>区域("c3")=空值 则执行
                        MsgBox "请输入“领用日期”信息"    '<消息框>："请输入“领用日期”信息"
                        GoTo aa    ' 跳至 aa
                End If    'If判断过程结束
                If .[F3] = "" Then    '如果 <With对象>的[F3]=空值 则执行
                        .[F3] = Now()    '<With对象>的[F3]=Now()
                End If    'If判断过程结束
                s = .Columns(2).Cells(.Columns(2).Cells.Count).End(xlUp).Row    's=<With对象>的<列>坐标(2 )的<单元格>坐标(<With对象>的<列>坐标(2 )的单元格集合的计数值 )的<末端>(方向向上 )的行标
                arr = .Range("b5:g" & s).Value    'arr=<With对象>的<单元格>区域("b5:g" & s )的值
        End With    'With语句结束
        With Sheets("班产统计汇总表")    '工作于<工作表>("班产统计汇总表")
                .Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Offset(1).Resize(UBound(arr), 5) = arr    '<With对象>的<列>坐标(3 )的<单元格>坐标(<With对象>的<列>坐标(3 )的单元格集合的计数值 )的<末端>(方向向上 )的<偏移>(1 )的<重调大小>(<数组上限>(arr),5)=arr
                .Range(.Cells(.Columns(1).Cells(.Columns(1).Cells.Count).End(xlUp).Row + 1, 1), .Cells(.Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Row, 1)) = Sheets("班产统计表").[C3]    '<With对象>的<单元格>区域(<With对象>的<单元格>坐标(<With对象>的<列>坐标(1 )的<单元格>坐标(<With对象>的<列>坐标(1 )的单元格集合的计数值 )的<末端>(方向向上 )的行标+1,1),<With对象>的<单元格>坐标(<With对象>的<列>坐标(3 )的<单元格>坐标(<With对象>的<列>坐标(3 )的单元格集合的计数值 )的<末端>(方向向上 )的行标,1))=<工作表>("班产统计表" )的[C3]
                .Range(.Cells(.Columns(2).Cells(.Columns(2).Cells.Count).End(xlUp).Row + 1, 2), .Cells(.Columns(3).Cells(.Columns(3).Cells.Count).End(xlUp).Row, 2)) = Sheets("班产统计表").[F3]    '<With对象>的<单元格>区域(<With对象>的<单元格>坐标(<With对象>的<列>坐标(2 )的<单元格>坐标(<With对象>的<列>坐标(2 )的单元格集合的计数值 )的<末端>(方向向上 )的行标+1,2),<With对象>的<单元格>坐标(<With对象>的<列>坐标(3 )的<单元格>坐标(<With对象>的<列>坐标(3 )的单元格集合的计数值 )的<末端>(方向向上 )的行标,2))=<工作表>("班产统计表" )的[F3]
        End With    'With语句结束
        MsgBox "保存成功！"    '<消息框>："保存成功！"
        Union(Sheets("班产统计表").Range("c3"), Range("g3"), Range("e5", "h40")) = ""    'Union(<工作表>("班产统计表" )的<单元格>区域("c3"),<单元格>区域("g3"),<单元格>区域("e5","h40"))=空值
End If    'If判断过程结束
aa:    'aa:
Worksheets("班产统计汇总表").Protect ("149") '加密    '<工作表>("班产统计汇总表" )的保护("149")'加密
End Sub    '子程序结束
这是注释后的代码：
Sub 班产统计表清空数据()    '子程序 班产统计表清空数据()
Union(Sheets("班产统计表").Range("c3"), Range("g3"), Range("e5", "h40")) = ""    'Union(<工作表>("班产统计表" )的<单元格>区域("c3"),<单元格>区域("g3"),<单元格>区域("e5","h40"))=空值
End Sub    '子程序结束