Проверка результатов деления чисел в 2-х столбцах

[ZSV]

Здравствуйте!
Пожалуйста, помогите решить задачку, очень нужно в Basic, в Excel я ее решила с помощью формулы с {} - фигурными скобочками) :

Необходимо проверить результат деления каждой пары чисел в двух столбцах на наличие хотя бы одной пары, в результат деления которой является НЕ ЦЕЛЫМ ЧИСЛОМ. Но тут есть сложность: результат сравнения (Истина или Ложь) должен получиться в одной ячейке.
Есть два столбца А и В и там цифры, надо выяснить есть ли хотя бы одно число из столбца В не делящееся нацело на своего "напарника" из столбца А.

т.е. если
А В
10 10
20 20
30 30, то все ок

а если например
А В
10 10
20 10
30 30, то пора бить тревогу!

Заоанее спасибо!

[Казанский]

Используйте формулу листа в VBA

Sub bb()
If [SUM(MOD(B1:B3/A1:A3,1))] = 0 Then '=СУММ(ОСТАТ(B1:B3/A1:A3;1))
    MsgBox "Все ОК", vbInformation
Else
    MsgBox "Тревога!", vbExclamation
End If
End Sub

[ZSV]

Сообщение от Казанский

Используйте формулу листа в VBA

Sub bb()
If [SUM(MOD(B1:B3/A1:A3,1))] = 0 Then '=СУММ(ОСТАТ(B1:B3/A1:A3;1))
    MsgBox "Все ОК", vbInformation
Else
    MsgBox "Тревога!", vbExclamation
End If
End Sub

скажите пожалуйста, просто это что у меня не получается
я эту задачку в бейсике пыталась решить вот так:

Function MultipleRanges(rng1 As Range, rng2 As Range) As Boolean
Dim i As Long: MultipleRanges = True: Application.Volatile
For i = 1 To rng1.Count
If rng2.Item(i) <> 0 And rng1.Item(i) <> 0 Then
If rng2.Item(i) / rng1.Item(i) <> Int32 Then MultipleRanges = False: Exit Function
End If: Next
End Function

просто я бейсиком не особо владею...(( методом "научного тыка" так сказать, и я пыталась представить деление каждой пары чисел как целое - integer, либо же не целое число.

Подскажите пожалуйста, что я не правильно пишу в своей функции, почему она не работает, так как надо?

[IgorGO]

If rng2.Item(i) Mod rng1.Item(i) > 0 ...

[ZSV]

спасибо большое!
а я вот уже решила вот как, у меня получилось (ура!!!) могу тож поделиться:

Function MultipleRanges(rng1 As Range, rng2 As Range) As Boolean
Dim i As Long: MultipleRanges = True: Application.Volatile
For i = 1 To rng1.Count
If rng2.Item(i) <> 0 And rng1.Item(i) <> 0 Then
If rng2.Item(i) / rng1.Item(i) - Fix(rng2.Item(i) / rng1.Item(i)) <> 0 Then MultipleRanges = False: Exit Function
End If: Next
End Function


все равно всем спасибо огромное!