При работе с документами большое значение имеет автоматизация часто выполняемых операций — когда данных много, ручное выполнение некоторых процессов может занимать достаточно времени. Ускорить работу и повысить ее эффективность можно с помощью макросов. Разберемся, что это такое, и как они работают на примере офисного пакета «Р7-Офис».
(function()
{
Api.GetActiveSheet().GetRange(«Е5»).SetValue(«Проверка макроса»);
})();
(function()
{
Api.GetActiveSheet().GetRange(«A5»).SetFillColor(Api.CreateColorFromRGB(0, 0, 250));
})();
(function()
{
Api.GetActiveSheet().GetRange(«B2:D5»).Merge(true);
})();
(function()
{
Api.GetActiveSheet().FormatAsTable(«A1:G7»);
})();
(function()
{
Api.GetActiveSheet().AddChart(«‘Sheet1’!$C$5:$D$7», true, «bar», 2, 105 * 36000, 105 * 36000, 5, 2 * 36000, 1, 3 * 36000);
})();
(function()
{
var oDoc = Api.GetDocument();
var elcount = oDoc.GetElementsCount();
for(var i = 0; i<elcount; i++){
var el = oDoc.GetElement(i);
var oTextPr = el.GetTextPr();
oTextPr.SetFontFamily(«Comic Sans MS»);
el.SetTextPr(oTextPr);
}
})();
Sub Example()
Dim myRange
Dim result
Dim Run As Long
For Run = 1 To 3
Select Case Run
Case 1
result = «=SUM(A5:A105)»
Case 2
result = «=SUM(A5:A305)»
Case 3
result = «=SUM(A5:A30)»
End Select
ActiveSheet.range(«B» & Run) = result
Next Run
End Sub
(function()
{
for (let run = 1; run <= 3; run++)
{
var result = «»;
switch (run)
{
case 1:
result = «=SUM(A5:A105)»;
break;
case 2:
result = «=SUM(A5:A305)»;
break;
case 3:
result = «=SUM(A5:A30)»;
break;
default:
break;
}
Api.GetActiveSheet().GetRange(«B» + run).Value = result;
}
})();