[已解决]代码解译。

108937101

Sub 按钮9_Click()

    Application.ScreenUpdating = False

    a = MsgBox("你确定要添加吗？", 4 + 64 + 256, "系统提示")

    r2 = Sheets(2).Cells(Rows.Count, 1).End(3).Row

    r3 = Sheets(3).Cells(Rows.Count, 1).End(3).Row

    If Len(Cells(3, 1)) > 0 Then

        r1 = Sheets(1).Cells(Rows.Count, 1).End(3).Row

        Range("a3:e" & r1).Copy Sheets(2).Cells(r2 + 1, 1)

        Range("a3:e" & r1).Copy Sheets(3).Cells(r3 + 1, 1)

        Range("a3:e" & r1).ClearContents

    'MsgBox "保存成功!"

    End If

    Application.ScreenUpdating = True

End Sub

以上代码请帮忙解译一下，刚接触vba，不懂。

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2014-7-15 22:50

Sub 按钮9_Click()
Dim a, r2, r3, r1

    Application.ScreenUpdating = False  '关闭屏幕刷新
    a = MsgBox("你确定要添加吗？", 4 + 64 + 256, "系统提示")   '出现你确定要添加的提示框
    r2 = Sheets(2).Cells(Rows.Count, 1).End(3).Row     'r2的值=表2的第一列的最后一行行号
    r3 = Sheets(3).Cells(Rows.Count, 1).End(3).Row     'r3的值=表3的第一列的最后一行行号
    If Len(Cells(3, 1)) > 0 Then '如果单元格A3的长度大于1  那么
        r1 = Sheets(1).Cells(Rows.Count, 1).End(3).Row  'r1的值=表1的第一列的最后一行行号
        Range("a3:e" & r1).Copy Sheets(2).Cells(r2 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表2 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).Copy Sheets(3).Cells(r3 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表3 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).ClearContents   '清除内容
    'MsgBox "保存成功!"
    End If
    Application.ScreenUpdating = True  '打开屏幕刷新
End Sub
  解释的不是很好 有什么疑问 在说吧

跳转到最佳答案楼层

su45

最好的办法是：用鼠标选中一词，按 F1 键！

我心飞翔410

Sub 按钮9_Click()
Dim a, r2, r3, r1

    Application.ScreenUpdating = False  '关闭屏幕刷新
    a = MsgBox("你确定要添加吗？", 4 + 64 + 256, "系统提示")   '出现你确定要添加的提示框
    r2 = Sheets(2).Cells(Rows.Count, 1).End(3).Row     'r2的值=表2的第一列的最后一行行号
    r3 = Sheets(3).Cells(Rows.Count, 1).End(3).Row     'r3的值=表3的第一列的最后一行行号
    If Len(Cells(3, 1)) > 0 Then '如果单元格A3的长度大于1  那么
        r1 = Sheets(1).Cells(Rows.Count, 1).End(3).Row  'r1的值=表1的第一列的最后一行行号
        Range("a3:e" & r1).Copy Sheets(2).Cells(r2 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表2 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).Copy Sheets(3).Cells(r3 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表3 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).ClearContents   '清除内容
    'MsgBox "保存成功!"
    End If
    Application.ScreenUpdating = True  '打开屏幕刷新
End Sub
  解释的不是很好 有什么疑问 在说吧

我心飞翔410

Sub 按钮9_Click()
Dim a, r2, r3, r1

    Application.ScreenUpdating = False  '关闭屏幕刷新
    a = MsgBox("你确定要添加吗？", 4 + 64 + 256, "系统提示")   '出现你确定要添加的提示框
    r2 = Sheets(2).Cells(Rows.Count, 1).End(3).Row     'r2的值=表2的第一列的最后一行行号
    r3 = Sheets(3).Cells(Rows.Count, 1).End(3).Row     'r3的值=表3的第一列的最后一行行号
    If Len(Cells(3, 1)) > 0 Then '如果单元格A3的长度大于1  那么
        r1 = Sheets(1).Cells(Rows.Count, 1).End(3).Row  'r1的值=表1的第一列的最后一行行号
        Range("a3:e" & r1).Copy Sheets(2).Cells(r2 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表2 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).Copy Sheets(3).Cells(r3 + 1, 1)  'Range("a3:e" & r1)的内容复制到 表3 以 第一列的最后一个有数据的下一行为顶点
        Range("a3:e" & r1).ClearContents   '清除内容
    'MsgBox "保存成功!"
    End If
    Application.ScreenUpdating = True  '打开屏幕刷新
End Sub
解释的不是很好    不懂 你按 f8  单步执行看效果

zpy2

解释的不错，顶。

zpy2

End(3)换成End(xlup)，可能好理解点。