如何将微软 Office 宏转换为 ONLYOFFICE 宏

2023年07月11日作者: Alina

想要将微软 Office VBA 宏转换为可在 ONLYOFFICE 中无缝使用的宏？嗯，虽然这种需求并没有直接的解决方案，不过我们也会在本文中介绍 VBA 宏的转换步骤——正好我们手上也有一个来自用户的实际案例可供参考。

Transforming a Microsoft Office macro into an ONLYOFFICE macro

VBA 宏

以下是原始的 VBA 宏代码：

Sub Button1_Click()
    Dim mycel As Range
    For Each mycel In Columns("D:D").SpecialCells(xlCellTypeConstants, 23)
        If mycel = [TODAY()] Then mycel.Offset(0, 1) = [This_value]
    Next
End Sub

宏代码会对 D 列进行扫描，查找值为常量“23”的单元格，同时检查各个单元格中的值是否等于标记为 [TODAY()] 的单元格的值。如果值匹配的话，则会对其右侧的单元格进行更新，更新的值为标记为 [This_value] 的单元格中的值。

Transforming a Microsoft Office macro into an ONLYOFFICE macro

构建 ONLYOFFICE 宏

在将上述宏转换为与 ONLYOFFICE 兼容的 JavaScript 宏的过程中，我们需要使用 ONLYOFFICE API。

对于 ONLYOFFICE 宏，我们首先需要通过 Api.GetActiveSheet() 函数获取活动工作表。然后便是从单元格 A2 和 A4 中获取值。这两个单元格就是 VBA 宏中 [TODAY()] 与 [This_value] 标记分别对应的单元格：

var sheet = Api.GetActiveSheet();
var dateValue = sheet.GetRange("A2").GetValue();
var updateValue = sheet.GetRange("A4").GetValue();

下一步是使用 sheet.GetRange(“D1:D10”) 定义需要进行迭代的单元格范围。这里的代码即确定了本例中的 D 列作为迭代范围，实际使用时您可按照自己的特定需求对其进行调整：

var dateRange = sheet.GetRange("D1:D10");

我们需要使用 ForEach 函数来在已定义范围内的各单元格上迭代执行代码。对于每个单元格，我们都会使用 range.GetValue() 来获取其当前值，然后与单元格 A2 内的值进行对比。如果匹配的话，则会使用 range.GetRow() 获取当前单元格的行号，然后借助 sheet.GetRange(“E” + row) 获取 E 列中的相应单元格：

dateRange.ForEach(function(range) {
  var currentDate = range.GetValue();
  // 检查当前日期是否与单元格 A2 中的值匹配
  if (currentDate === dateValue) {
    // 获取 E 列中的相应单元格
    var row = range.GetRow();
    var oRange = sheet.GetRange("E" + row);  }
});

最后，我们可通过 oRange.SetValue(updateValue) 使用单元格 A4 中的值来更新下一单元格的值（向右侧偏移一列）：

   // 更新下一单元格中的值
    oRange.SetValue(updateValue);
  }
});

完整的宏代码如下：

(function()
{
    var sheet = Api.GetActiveSheet();
var dateValue = sheet.GetRange("A2").GetValue();
var updateValue = sheet.GetRange("A4").GetValue();
var dateRange = sheet.GetRange("D1:D10");
dateRange.ForEach(function(range) {
  var currentDate = range.GetValue();
  // 检查当前日期是否与单元格 A2 中的值匹配
  if (currentDate === dateValue) {
    // 获取 E 列中的相应单元格
    var row = range.GetRow();
    var oRange = sheet.GetRange("E" + row);
   // 更新下一单元格中的值
    oRange.SetValue(updateValue);
  }
});
})();