работа с ячейками в Экселе

[Slimmi]

Hello, world!
Вот такую задачу перед нами, студентами, поставил товарищ преподаватель, НО попросил внести небольшие дизайнерские и соответственно головоломающие коррективы.
Вот непосредственно первоначальное условие задачи:

Напишите функцию, которая бы для диапазона, передаваемого ей в качестве параметра, и признака типа результата, находила бы количество четных чисел, содержащихся в диапазоне, если значение типа результата = 1, нечетных чисел, если значение типа результата = 2.

Вроде задача не сложная, даже если учитывать полное незнание VBA. Но нужно следующее: допустим у нас есть выделеная область ячеек, пусть будет 20*20. Ее мы должны рандомно заполнить числами и выделить мышкой область допустим 5*4 и решить главный вопрос задачи. Так вот, помогите пожалуйста, покажите как работать так с ячейками Экселя. Заранее благодарен!

[Hugo121]

Вот например, свеженаписанное:
http://www.planetaexcel.ru/forum.php?thread_id=24597

[doober]

I will do.But not for free
А погуглить по форуму вера не позволяет.Решений море.

[IgorGO]

Function Count12(Rg As Range, What As Integer) As Long
  Dim c As Long, rest As Long
  c = 0
  rest = iff(What = 1, 0, 1)
  For Each cel In Rg.Cells
    If cel Mod 2 = rest Then c = c + 1
  Next
  Count12 = c
End Function

первый параметр -диапазон с данными, второй - 1 (для парных) или любое другое для не парных.