Посчитать произведение квадратов чисел входящих в заданный диапазон - VBA
Формулировка задачи:
Приветствую участников форума.
Имеется задание, код набран и выполняется, но в процедуры Application.OnTime и Application.OnKey надо прописать соответственно для выполнения "bar" и "cell". Вроде бы ничего сложного, но внесение sub/end sub в разных вариациях не дают результата. Подскажите, пожалуйста, как правильно внести процедуру?
Решение задачи: «Посчитать произведение квадратов чисел входящих в заданный диапазон»
textual
Листинг программы
Public Sub bar() ' Через 15 секунд ввести текст в строку состояния . Текст при этом вводит пользователь. Application.OnTime Now + TimeValue("00:00:15"), CodeName & ".bar" Application.DisplayStatusBar = True Application.StatusBar = "azm est' excel" End Sub Public Sub cell() ' На сочетание клавиш «Shift+Ctrl+A» выполнить вставку текста «Мой макрос» курсивом и жирным шрифтом 'Verdana 24 размера, цветом синим. With ActiveCell .Font.Bold = True .Font.Italic = True .Font.Underline = False .Font.Color = vbBlue .Font.Name = "Verdana" .Font.Size = 24 .Value = "мой макрос" End With Application.OnKey "+^{A}", CodeName & ".cell" End Sub