Google表格的脚本,用于将数据行保存到单独的表格中

时间:2018-07-11 06:49:10

标签: google-sheets google-sheets-macros

我需要创建一个脚本以将发票发送给个人。我想将来自主Google工作表的一些数据行添加到每个人各自的Google工作表中,然后他们便可以访问。

我在主表中的数据如下:

Sub Test()
    Application.OnTime Now + TimeValue("00:00:01"), WrapMacro("popUpReminders ", 1, 2, "3", "Tin", "Man", Date)
    Application.Run WrapMacro("popUpReminders", 1, 2, "3", "Tin", "Man", Date)
    ActiveSheet.Buttons.Add(0, 0, 72, 72).OnAction = WrapMacro("popUpReminders ", 1, 2, "3", "Tin", "Man", Date)
End Sub

Function WrapMacro(ProcName As String, ParamArray Args() As Variant) As String
    Dim n As Long
    For n = 0 To UBound(Args)
        If TypeName(Args(n)) = "String" Then          'Surround with Double Quotes
            Args(n) = Chr$(34) & Args(n) & Chr$(34)
        ElseIf TypeName(Args(n)) = "Date" Then        'Surround with Hashes
            Args(n) = Chr$(35) & Args(n) & Chr$(35)
        End If
    Next

    WrapMacro = Chr$(39) & ProcName & Space(1) & Join(Args, ",") & Chr$(39)
End Function

Sub popUpReminders(ParamArray Args() As Variant)
    MsgBox Join(Args, vbNewLine)
End Sub

每个工作表将按照B列中的人员命名-“ Sam Young”,并将保存在名为“ Specialists”的文件夹中

我希望宏从“主”表中复制Sam Young的所有行,然后转到名为“ Specialists”的文件夹,在该文件夹中打开一个表,该表是B2中人的名字“ Sam Young”,清除第2行到第10行中的现有数据,然后将主表中的行粘贴到“ Sam Young表”中。

转到下一个名称-布鲁斯·韦恩(Bruce Wayne),然后再次处理布鲁斯的文件,等等。

我为excel写了一个类似的脚本,但是不久前,我是google表格的新手。

0 个答案:

没有答案