Excel 宏 - 谁能解释一下？

Question

我是 Excel 宏的新手。

谁能告诉我这个宏的作用吗？

Sub People_Add_Document()

    prow = ActiveCell.row
    num = Cells(prow, 1).Value
    wshet = ActiveSheet.Name

    If (Val(num) > 0) _
       And (Cells(4, 1).Value = "#") _
       And (wsheet = People_wsheet) _
    Then
        people_select_link_to_Document process_wbook_path, prow
    End If
  End Sub



Sub people_select_link_to_Document(process_wbook_path, prow)

        If Len(Cells(prow, DocumentFile).Value) = 0 Then
        Fname = Application.GetOpenFilename("Document Files (*.doc;*.pdf),*.doc;*.pdf", 1, "Select the Document file..")

        If Fname <> False Then

            Cells(prow, DocumentFile).Value = Fname 'global path

        End If

    End If

End Sub

Answer 1

获取活动单元格的行号：

prow = ActiveCell.row

获取该行第1列的值：

num = Cells(prow, 1).Value

读取活动工作表的名称（这里有一个错误，应该读取wsheet而不是wshet< /code>)：

wshet = ActiveSheet.Name

测试 num 是否大于 0，并且单元格 A4 包含“#”，并且活动工作表是否等于名为 People_wsheet 的变量或常量。如果是这样，则使用参数 process_wbook_path 和 prow 调用名为 people_select_link_to_Document 的子例程。

If (Val(num) > 0) _
   And (Cells(4, 1).Value = "#") _
   And (wsheet = People_wsheet) _
Then
    people_select_link_to_Document process_wbook_path, prow
End If

现在，该子例程首先检查 活动行的 >DocumentFile 列为空。实际上，这是一种相当蹩脚的测试空性的方法，但它可能会起作用。

    If Len(Cells(prow, DocumentFile).Value) = 0 Then

如果它是空的，那么我们将显示一个文件对话框来获取文件名：

    Fname = Application.GetOpenFilename("Document Files (*.doc;*.pdf),*.doc;*.pdf", 1, "Select the Document file..")

如果已选择文件名（即对话框未取消），那么我们将该文件名保存在文件的 DocumentFile 列中。活动行以供将来参考：

    If Fname <> False Then

        Cells(prow, DocumentFile).Value = Fname 'global path

    End If

就是这样！