我需要创建一个脚本以将发票发送给个人。我想将来自主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表格的新手。