Не пытайтесь делать это дома или воспринимайте это слишком серьезно, это просто для сладкого удовольствия ...
function conditionalSwitch (значение, cond, callback / * cond , callback, cond, callback, ... * /) {for (var i = 1; i & lt; arguments.length; i + = 2) {if (arguments [i] (value)) {arguments [i + 1 ](стоимость); вернуть; }}} function test (val) {let width, height; conditionalSwitch (val, (val) = & gt; val & gt; 10, () = & gt; [высота, ширина] = [48,36], (val) = & gt; val & gt; 5, () = & gt; [высота , width] = [40, 30], // Default () = & gt; true, () = & gt; [height, width] = [16, 12]) console.log (ширина, высота); } test (4.9); // 12 16 тест (5.1); // 30 40 тест (10.1); // 36 48
Как указано в разделе info для тега vbscript , вы не можете использовать именованные параметры в VBScript. Кроме того, вы помещаете имя переменной objWorksheet
в двойные кавычки. Это сделало бы это буквальной строкой «objWorksheet» вместо переменной, содержащей объект рабочего листа. Измените строку
.SetSourceData Source:="objWorksheet".Range("B2:B10"), Plotby:=xlColumns
на это:
.SetSourceData objWorksheet.Range("B2:B10"), xlColumns
В более общем примечании вам следует использовать ключевое слово Const
для определения констант:
Const xlLine = 4
Const xlPrimary = 1
Const xlCategory = 1
Const xlValue = 2
Const xlColumns = 3
, в противном случае они будут регулярными (изменяемыми) переменными.