Функция с параметром диапазоном

[savraska]

Вычислить общий делитель значений диапазона(общего делителя может и не быть)
Option Base 1
Function rabb(diap)
n = diap.Rows.Count
m = diap.Columns.Count

s = 0
For t = 1 To 10
For i = 1 To n
For j = 1 To m
If diap(i, j) Mod t = 0 Then s = t
Next j
Next i
Next t
rabb = s
End Function

[Skif-F]

Option Base 1
Function rabb(diap)
  n = diap.Rows.Count
  m = diap.Columns.Count

  s = 0
  For t = 1 To 10  'Перебор возможных общих делителей'
    For i = 1 To n  'Перебор диапазона'
      For j = 1 To m
         If diap(i, j) Mod t = 0 Then s = s+1 'Надо, чтобы все числа делились на ОД'
      Next j
    Next i
    if s = n*m then exit for 'Нашли искомое'
    s = 0  'Подготовка к следующему проходу'
  Next t
  rabb = s  'Если ОД не найден, то на выходе s=0'
End Function

[savraska]

Похоже что то не так...у меня программа выдает сколько чисел задано, но не делитель...

[EducatedFool]

Function nod(a As Long, b As Long) As Long
    While a <> 0 And b <> 0
        If a >= b Then a = a Mod b Else b = b Mod a
    Wend
    nod = a + b
End Function

Function ОбщийДелитель(diap As Range) As Long
    Dim res As Long
    ОбщийДелитель = 1000000000#
    For Each n In diap.Value
        For Each m In diap.Value
            If Val(n) > 0 And Val(m) > 0 Then
                res = nod(Val(n), Val(m))
                If res < ОбщийДелитель Then ОбщийДелитель = res
            End If
        Next m
    Next n
    If ОбщийДелитель = 1000000000# Then ОбщийДелитель = 1
End Function

Sub test()
    MsgBox "Общий делитель диапазона A1:E5 равен " & _
           ОбщийДелитель([A1:E5]), vbInformation
End Sub

[Skif-F]

Прошу прощения, вот так:

Option Base 1
Function rabb(diap As Range) As Integer
  Dim n As Integer, m As Integer, t As Integer, i As Integer, j As Integer, s As Integer
  n = diap.Rows.Count
  m = diap.Columns.Count

  For t = 1 To 10  'Перебор возможных общих делителей'
    s = 0  'Подготовка к следующему проходу'
    For i = 1 To n  'Перебор диапазона'
      For j = 1 To m
         If diap(i, j) Mod t = 0 Then s = s+1 'Надо, чтобы все числа делились на ОД'
      Next j
    Next i
    if s = n*m then exit for 'Нашли искомое'
  Next t
  if s = n*m then
    rabb = t
  else
    rabb = 1  
  end if
End Function

Рекомендую обратить внимание на вариант EducatedFool'а. Я же просто откорректировал Ваше решение

[savraska]

спасибо большое,мне нужно было именно мое откорректированное решение....