В общем у меня тут задание одно..
так как я в этом не особо много понимаю, а у вас большой опыт в этой сфере.. то может быть вы мне поможете  :rolleyes: ))
1.    Написанные и отлаженные ранее функции Function NOD (by val a, by val "b") и Function NOK (by val a, by val 'b') скопировать в новые модули новой книги. Убрать атрибут Private. Книгу сохранить.
2.    Обратиться  к этим функциям из мастера функций (категория функций –определенные пользователем) и определить НОД и НОК для какой либо пары чисел.
3.    В новом модуле написать функцию Function pp (k), возвращающую первое простое, большее аргумента  k число. 
Число называется простым, если оно делится только на себя и на 1. 
Для написания программы использовать обращение к функции NOD (a,'b') и следующий алгоритм (два вложенных цикла). Внутренний цикл считает количество делителей  текущего числа n, а внешний - перебирает числа, большие исходного числа k до тех пор, пока не встретит число, количество делителей которого равно 0.
 DO WHILE (s>0)
n=k+1
FOR i=2 to (n+1)/2
операторы
NEXT
LOOP



4.    Для отладки функции создать процедуру, содержащую обращение к функции по образцу 
 Sub OTLADKA()
Dim k As Integer, y As Integer, z As Integer
k = 31
y = pp(k)
z = y
End Sub
5.    Обратиться к функции из мастера функций, вычислив первое простое число, большее, например 27. 
6.    Написать и отладить процедуру с именем simpl_numbr() заполнения выделенного диапазона ячеек листа EXCEL  простыми числами. Для этого 
•    ввести переменную типа объект, 
Dim r As Range
•    определить количество ячеек в выделенном диапазоне, используя свойство диапазона: Cells и метод Count:
Set r = Selection
k = r.Cells.Count
•    в цикле заполнить выделенный диапазон ячеек:  
r(1) =2
For i = 2 To k
ii = r(i - 1)
 r (i)  =  pp (ii)
Next
7.    Используя свойства выделенного диапазона ячеек назначить программным путем ему формат по своему вкусу, например так:
With Selection.Font
        .Name = "Courier"
        .Size = 12
        .Color = RGB(125, 200, 100)
        .Shadow = True
        .Underline = xlUnderlineStyleSingle
    End With
    Selection.Font.Bold = True
Selection.NumberFormat = "0.0000"
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Orientation = 0
        .MergeCells = False
    End With
8.    Создать макрос, реализующий созданную процедуру. Макросу назначить пункт меню или пиктограмму.
•    Сервис/ макрос/макросы/ ввести имя/создать.
•    Скопировать процедуру в открывшееся окно редактора.
•    Сервис/настройка/команды/ макросы/настраиваемая кнопка или команда меню.




Вооооот, ну и самое главное по образцу и подобию сделать еще одно задание:
Вариант №!
Написать программу заполнения диагонали диапазона ячеек С5: G9 целыми числами, делящимися на 5, начиная с 10. Шрифт в ячейках назначить красного цвета, arial, размер 16 .
 Вариант №2
Написать программу перестановки данных в двух выделенных ячейках  Шрифт в ячейках назначить зеленого цвета, courier, размер 14. .


Пожааалуйста, мне очень-очень нужно для зачета, помогитееее!!!))  :

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!