Посчитать произведение квадратов чисел входящих в заданный диапазон - 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

Оцени полезность:

6   голосов , оценка 4.333 из 5
Похожие ответы