Помогите переделать vba под js

[Aidec]

У меня есть макрос экселевский

Sub Кнопка1_Щелчок()
    Dim mycel As Range
    For Each mycel In Columns("D:D").SpecialCells(xlCellTypeConstants, 23)
        If mycel = [Сегодня] Then mycel.Offset(0, 1) = [Данной_значение]
    Next
End Sub

Как мне его переделать под р7-офис(онлиофис)?
Весь инет перерыл вообще ничего полезного не нашел

[Aetae]

Отвечает чатгпт:

var sheet = Api.GetActiveSheet();

// Get the range of column D
var columnD = sheet.GetRange("D:D");

// Iterate through each cell in column D
columnD.ForEachCell(function(cell) {
  // Check if the cell value is equal to "Сегодня"
  if (cell.GetValue() === "Сегодня") {
    // Get the corresponding cell in column E
    var cellE = cell.GetOffset(0, 1);
    // Update the value in column E to [Данной_значение]
    cellE.SetValue([Данной_значение]);
  }
});

[Aidec]

Попробовал вставить этот макрос в эту книгу и ничего не отрабатывает(((
Посмотри пожалуйста