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

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

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] 的单元格中的值。

构建 ONLYOFFICE 宏

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

对于 ONLYOFFICE 宏,我们首先需要通过 Api.GetActiveSheet () 函数获取活动工作表。然后便是从单元格 A2A4 中获取值。这两个单元格就是 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);
  }
});
})();

点击这里,观看视频,看看宏的效果如何!

总结一下,首先,我们无法直接将 VBA 宏转换为可在 ONLYOFFICE 中使用的 JavaScript 宏。不过,在为 ONLYOFFICE 构建宏的过程中,您可使用现有的 VBA 宏代码作为参考,与此同时借助 ONLYOFFICE API 方法,加上一些必要的调整,这样就能实现类似的功能。

虽然在这一过程中可能会需要进行一些代码重构工作,不过其完全是可行的。希望文本中简要介绍的内容能够帮助您成功打造出功能强大的 ONLYOFFICE 宏。拥抱广阔的可能性,尽享自定义的优势与乐趣。祝愿您的探索之旅一帆风顺!

相关链接

​ONLYOFFICE 论坛​

​ONLYOFFICE API 文档​

​宏示例​

​GitHub 上的 ONLYOFFICE

相关推荐
inxunoffice1 小时前
批量将文本文件转换为 Word/PDF/Excel/图片等其它格式
pdf·word·excel
极客柒3 小时前
RustDesk 开源远程桌面软件 (支持多端) + 中继服务器伺服器搭建 ( docker版本 ) 安装教程
服务器·docker·开源
赵孝正4 小时前
自动用 Excel 转 .CSV 为 .xlsx 的原理
excel
互联网上的猪5 小时前
Excel时间类型函数(包括today、date、eomonth、year、month、day、weekday、weeknum、datedif)
笔记·学习·excel
NocoBase6 小时前
NocoBase 本周更新汇总:优化及缺陷修复
低代码·开源·资讯
几米哥6 小时前
OpenManus进阶指南:如何配置DeepSeek模型和百度搜索提升中文体验
开源·aigc·deepseek
深圳亥时科技6 小时前
课程质量评估系统(源码+文档+讲解+演示)
开源
蚝油菜花6 小时前
Cua:Mac用户狂喜!这个开源框架让AI直接接管你的电脑,快速实现AI自动化办公
人工智能·开源
蚝油菜花6 小时前
AutoAgent:无需编程!接入DeepSeek用自然语言创建和部署AI智能体!港大开源框架让AI智能体开发变成填空题
人工智能·开源
深圳亥时科技7 小时前
服装智能制造软件平台(源码+文档+讲解+演示)
开源