VBA эквивалент функции модема Excel

Question

Есть ли vba-эквивалент функции excel mod?

Answer 1

Вы хотите mod operator.

The expression a Mod b is equivalent to the following formula: 

a - (b * (a \ b)) 

Edited добавить:

Есть некоторые особые случаи, вы, возможно, придется рассмотреть, потому что Excel использует точку математики с плавающей (и возвращает float), где функция VBA возвращает целое число. Из-за этого, используя mod с числами с плавающей точкой может потребоваться дополнительное внимание:

• результаты Excel могут не точно соответствовать тому, что вы бы предсказать; это покрывается кратко here (see topmost answer) и на большой длине here.

• Как отмечает Андре в комментариях, отрицательные числа могут округлять в противоположном направлении от ожидаемого. Предлагается функция Fix()here (MSDN).

Answer 2

В vba функция MOD.

например

5 MOD 2 

Вот полезный link.

Answer 3

Mod operator, примерно эквивалентно MOD function:

number Mod divisor примерно эквивалентно MOD(number, divisor).

Answer 4

Мой путь к репликации в Excel MOD(a,b) в VBA является использование XLMod(a,b) в VBA, где вы включите функцию:

Function XLMod(a, b) 
    ' This replicates the Excel MOD function 
    XLMod = a - b * Int(a/b) 
End Function 

в вашем VBA модуль

Answer 5

Будьте очень осторожны с Excel MOD (a, b) и VBA a Mod b. Excel возвращает результат с плавающей запятой, а VBA - целое число.

В Excel = Mod (90.123,90) возвращает +0,123000000000005 вместо 0,123 В VBA 90.123 Mod 90 возвращает 0

Они, конечно, не эквивалентны!

Эквивалент являются: В Excel: = Round (Mod (90.123,90), 3) возвращение 0,123 и В VBA: ((90,123 * 1000) Mod 90000)/1000 возвращения также 0,123

Answer 6

В верхней Ответ на самом деле неправильный.

Предложенное уравнение: a - (b * (a \ b))

будет решать: a - a

который, конечно, 0 во всех случаях.

Правильное уравнение:

a - (b * INT(a \ b))

Или, если номер (а) может быть отрицательным, используйте:

a - (b * FIX(a \ b))

Answer 7

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

If i Mod 2 > 0 then 'this is an odd 
    'Do Something 
Else 'it is even 
    'Do Something Else 
End If