VBA 相當於 Excel 的 mod function

Question

是否有一個 vba 相當於 excel 的mod function？

Answer 1

在vba中，函數是MOD。 例如

 5 MOD 2

這是一個有用的鏈接 。

Answer 2

你想要mod運算符 。

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

a - (b * (a \ b))

編輯添加：

您可能需要考慮一些特殊情況，因為Excel使用浮點數學（並返回一個float ），VBA函數返回一個整數。 因此，使用帶有浮點數的mod可能需要額外注意：

• Excel的結果可能與您預測的結果不完全一致; 這里簡要介紹一下（參見最頂層的答案）並在這里詳細介紹 。

• 正如@André在評論中指出的那樣，負數可能會與您的預期相反。 他建議的Fix()函數在這里解釋（MSDN） 。

Answer 3

我在VBA中復制Excel的MOD(a,b)在VBA中使用XLMod(a,b) ，其中包含函數：

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

在您的VBA模塊中

Answer 4

使用Excel MOD（a，b）函數和VBA和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和In VBA :(（90.123 * 1000）Mod 90000）/ 1000返回也是0.123

Answer 5

Mod運算符大致相當於MOD函數 ：

number Mod divisor大致相當於MOD(number, divisor) 。

Answer 6

最佳答案實際上是錯誤的。

建議的等式： a - (b * (a \\ b))

將解決： a - a

在所有情況下，當然是0。

正確的等式是：

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

或者，如果數字（a）可能是負數，請使用：

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

Answer 8

Function Remainder(Dividend As Variant, Divisor As Variant) As Variant
    Remainder = Dividend - Divisor * Int(Dividend / Divisor)
End Function

此功能始終有效，並且是Excel功能的精確副本。

Answer 9

如果 excel 的 mod function 也給出不正確的結果，我發現這是最可靠的：

最初甚至 XLMod = (a - (b * Int(a / b))) 也給我不正確的結果所以..

Function XLMod(a, b As Long)
' This replicates the Excel MOD function - the VBA mod function returns an integer

Dim templong As Long

  templong = (b * Int(a / b))
  XLMod = (a - templong)
End Function