VBA equivalente a la función de mod de Excel

Question

¿Hay una vba equivalente a la función de mod de Excel?

Answer 1

Quiere el mod operator.

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

a - (b * (a \ b)) 

Editado para agregar:

Hay algunos casos especiales que pueda tener en cuenta, porque Excel está utilizando cálculos de coma flotante (y devuelve un float), que la función de VBA devuelve un entero. Debido a esto, el uso de mod con números de punto flotante puede requerir una atención especial:

• resultados de Excel pueden no corresponder exactamente con lo que se puede predecir; esto se cubre brevemente here (see topmost answer) y en gran longitud here.

• Como señala @ André en los comentarios, los números negativos pueden redondear en la dirección opuesta a la esperada. La función Fix() que sugiere se explica here (MSDN).

Answer 2

En vba la función es MOD. por ejemplo

5 MOD 2 

Aquí es un útil link.

Answer 3

El Mod operator, es más o menos equivalente a la MOD function:

number Mod divisor es más o menos equivalente a MOD(number, divisor).

Answer 4

Mi manera de replicar de Excel MOD(a,b) en VBA es el uso de XLMod(a,b) en VBA, donde se incluye la función:

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

en su módulo de VBA

Answer 5

tener mucho cuidado con el Ministerio de Defensa de Excel (a, b) función y el operador VBA a Mod b. Excel devuelve un resultado de punto flotante y VBA un entero.

En Excel = MOD (90.123,90) devuelve ,123000000000005 en lugar de 0,123 En VBA 90.123 Mod 90 vuelve 0

Desde luego, no son equivalentes!

equivalentes son: En Excel: = redondo (Mod (90.123,90), 3) devolver 0.123 y En VBA: ((90.123 * 1000) Mod 90000)/1000 volver también 0,123

Answer 6

La parte superior la respuesta es realmente incorrecta

La ecuación sugerida: a - (b * (a \ b))

resolverá a: a - a

que por supuesto es 0 en todos los casos.

La ecuación correcta es:

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

O, si el número (a) puede ser negativo, utilice esto:

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

Answer 7

Pero si lo que desea es decir la diferencia entre una iteración impar y una iteración par, esto funciona bien:

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