Dim WB as Workbook
Dim WS as Worksheet
Dim i as Integer
Set WB = Excel.ActiveWorkbook
Set WS = WB.Worksheets("Лист1")
i = 1
For b = 2 To 8 Step 2
For c = 4 To 10 Step 2
For d = 10 To 50 Step 10
' Выводит числа в столбик '
WS.Cells(i, 1).Value = 10 + b * c * d
i = i + 1
Next d
Next c
Next b
$('#menu_open_button').on('click', function(){
var menu = $('#new_menu_right').toggleClass('hidden')
if (menu.hasClass('hidden')) {
OpenNewmenu()
} else {
Hidenewmenu()
}
})