Question

我有一个带有vba代码的ms excel文件，它运行顺畅，但我需要使用google app scrpit在谷歌上传它。如何将我的vba代码转换为Google Script？在这里我的代码：

函数MYVLOOKUP（pValue为String，pWorkRng为Range，pIndex为Long） '更新20150310 Dim rng As Range Dim xResult As String

xResult =“” 对于每个rng In pWorkRng 如果rng = pValue和rng.Offset（0，-1）.Value =“Mathematics”那么 xResult = xResult＆amp; “”＆amp; rng.Offset（0，pIndex - 1）

ElseIf rng = pValue And rng.Offset(0, -1).Value = "English" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "Science" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "Filipino" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "Araling Panlipunan" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "MAPEH" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "TLE" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)

    ElseIf rng = pValue And rng.Offset(0, -1).Value = "Values Education" Then
    xResult = xResult & " " & rng.Offset(0, pIndex - 1)
End If

接着 MYVLOOKUP = xResult 结束功能

适用于Google App Scritp的自定义Vlookup

0 个答案: