想要將微軟 Office VBA 宏轉(zhuǎn)換為可在 ONLYOFFICE 中無縫使用的宏？嗯，雖然這種需求并沒有直接的解決方案，不過我們也會(huì)在本文中介紹 VBA 宏的轉(zhuǎn)換步驟——正好我們手上也有一個(gè)來自用戶的實(shí)際案例可供參考。
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
宏代碼會(huì)對(duì) D 列進(jìn)行掃描，查找值為常量“23”的單元格，同時(shí)檢查各個(gè)單元格中的值是否等于標(biāo)記為 [TODAY()] 的單元格的值。如果值匹配的話，則會(huì)對(duì)其右側(cè)的單元格進(jìn)行更新，更新的值為標(biāo)記為 [This_value] 的單元格中的值。
構(gòu)建?ONLYOFFICE 宏
在將上述宏轉(zhuǎn)換為與 ONLYOFFICE 兼容的 JavaScript 宏的過程中，我們需要使用 ONLYOFFICE API。?
對(duì)于 ONLYOFFICE 宏，我們首先需要通過?Api.GetActiveSheet()?函數(shù)獲取活動(dòng)工作表。然后便是從單元格?A2?和?A4?中獲取值。這兩個(gè)單元格就是 VBA 宏中 [TODAY()] 與 [This_value] 標(biāo)記分別對(duì)應(yīng)的單元格：
var sheet = Api.GetActiveSheet();
var dateValue = sheet.GetRange("A2").GetValue();
var updateValue = sheet.GetRange("A4").GetValue();
下一步是使用?sheet.GetRange(“D1:D10”)?定義需要進(jìn)行迭代的單元格范圍。這里的代碼即確定了本例中的?D?列作為迭代范圍，實(shí)際使用時(shí)您可按照自己的特定需求對(duì)其進(jìn)行調(diào)整：
var dateRange = sheet.GetRange("D1:D10");
我們需要使用?ForEach?函數(shù)來在已定義范圍內(nèi)的各單元格上迭代執(zhí)行代碼。對(duì)于每個(gè)單元格，我們都會(huì)使用?range.GetValue()?來獲取其當(dāng)前值，然后與單元格?A2?內(nèi)的值進(jìn)行對(duì)比。如果匹配的話，則會(huì)使用?range.GetRow()?獲取當(dāng)前單元格的行號(hào)，然后借助?sheet.GetRange(“E” + row)?獲取?E?列中的相應(yīng)單元格：
dateRange.ForEach(function(range) {
? var currentDate = range.GetValue();
? // 檢查當(dāng)前日期是否與單元格 A2 中的值匹配
? if (currentDate === dateValue) {
? ? // 獲取 E 列中的相應(yīng)單元格
? ? var row = range.GetRow();
? ? var oRange = sheet.GetRange("E" + row);? }
});
最后，我們可通過?oRange.SetValue(updateValue)?使用單元格?A4?中的值來更新下一單元格的值（向右側(cè)偏移一列）：
? ?// 更新下一單元格中的值
? ? 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();
? // 檢查當(dāng)前日期是否與單元格 A2 中的值匹配
? if (currentDate === dateValue) {
? ? // 獲取 E 列中的相應(yīng)單元格
? ? var row = range.GetRow();
? ? var oRange = sheet.GetRange("E" + row);
? ?// 更新下一單元格中的值
? ? oRange.SetValue(updateValue);
? }
});
})();
點(diǎn)擊這里，觀看視頻，看看宏的效果如何！
總結(jié)一下，首先，我們無法直接將 VBA 宏轉(zhuǎn)換為可在 ONLYOFFICE 中使用的 JavaScript 宏。不過，在為 ONLYOFFICE 構(gòu)建宏的過程中，您可使用現(xiàn)有的 VBA 宏代碼作為參考，與此同時(shí)借助 ONLYOFFICE API 方法，加上一些必要的調(diào)整，這樣就能實(shí)現(xiàn)類似的功能。
雖然在這一過程中可能會(huì)需要進(jìn)行一些代碼重構(gòu)工作，不過其完全是可行的。希望文本中簡(jiǎn)要介紹的內(nèi)容能夠幫助您成功打造出功能強(qiáng)大的 ONLYOFFICE 宏。擁抱廣闊的可能性，盡享自定義的優(yōu)勢(shì)與樂趣。祝愿您的探索之旅一帆風(fēng)順！
相關(guān)鏈接
??ONLYOFFICE 論壇??
??ONLYOFFICE API 文檔??
??宏示例??文章來源：http://www.zghlxwxcb.cn/news/detail-752683.html
??GitHub 上的 ONLYOFFICE文章來源地址http://www.zghlxwxcb.cn/news/detail-752683.html
到了這里，關(guān)于如何將微軟 Office 宏轉(zhuǎn)換為 ONLYOFFICE 宏的文章就介紹完了。如果您還想了解更多內(nèi)容，請(qǐng)?jiān)谟疑辖撬阉鱐OY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關(guān)文章，希望大家以后多多支持TOY模板網(wǎng)！
