Конвертировать VBA в Google App Script Vlookupformat [закрыто] ⇐ Javascript

[Anonymous]

Нужно преобразовать следующий код VBA в скрипт приложения, в основном он хранит формат ячейки в поиске Vlookup. Использование его на некоторое время и отлично работает
Модуль 1
Public IntClr, IntShade, FntClr, FntShade, CellAdd
Function LookupFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef ColRef As Long)
Set FindCell = LookupRng.Find(What:=FndValue, LookIn:=xlValues)
CellAdd = Application.Caller.Address
With FindCell
FindRow = .Row
FindCol = .Column
With .Offset(0, ColRef - 1)
With .Interior
IntClr = .Color
IntShade = .TintAndShade
End With
With .Font
FntClr = .Color
FntShade = .TintAndShade
End With
LookupFormat = .Value
End With
End With
End Function

модуль рабочего листа
Sub Worksheet_Change(ByVal Target As Range)
If CellAdd = "" Then Exit Sub
RefChk = IntClr & IntShade & FntClr & FntShade
If RefChk = "" Then Exit Sub
With Range(CellAdd)
With .Interior
.Color = IntClr
.TintAndShade = IntShade
End With
With .Font
.Color = FntClr
.TintAndShade = FntShade
End With
End With
IntClr = ""
IntShade = ""
FntClr = ""
FntShade = ""
CellAdd = ""
End Sub


Подробнее здесь: https://stackoverflow.com/questions/794 ... okupformat