实在不会了，帮帮我，还得求教老师们！

huanghun1973

在下很菜。做了个表格，大致就是输入商品的销售金额能除尽单价的（就是没有余数的），好判断是哪种价格的商品，然后统计数量和价格构成。由于商品价格都是有小数的，有的能除尽，有的就显示错误，比如说单价为7.86和2.86的，输入78.6我28.6就显示结果错误，试了好几种函数如MOD、INT、FIX等，可结果都是错误，请大家帮我看下，指出我的错误，十分感谢。附件和代码如下：
Sub zc()
Dim i As Integer
For i = 2 To 301
If Cells(i, 1) / 2.84 = Int(Cells(i, 1) / 2.84) Then
Cells(i, 2) = Cells(i, 1) / 2.84
Cells(i, 3) = Cells(i, 2) * 1.81
Cells(i, 4) = Cells(i, 2) * 0.95
Cells(i, 5) = Cells(i, 2) * 0.08

ElseIf Cells(i, 1) / 2.86 = Int(Cells(i, 1) / 2.86) Then
Cells(i, 2) = Cells(i, 1) / 2.86
Cells(i, 3) = Cells(i, 2) * 1.81
Cells(i, 4) = Cells(i, 2) * 0.95
Cells(i, 5) = Cells(i, 2) * 0.1

ElseIf Cells(i, 1) / 7.86 = Int(Cells(i, 1) / 7.86) Then
Cells(i, 2) = Cells(i, 1) / 7.86
Cells(i, 3) = Cells(i, 2) * 3.96
Cells(i, 4) = Cells(i, 2) * 1.4
Cells(i, 5) = Cells(i, 2) * 2.5

ElseIf Cells(i, 1) / 13.86 = Int(Cells(i, 1) / 13.86) Then
Cells(i, 2) = Cells(i, 1) / 13.86
Cells(i, 3) = Cells(i, 2) * 9.96
Cells(i, 4) = Cells(i, 2) * 1.4
Cells(i, 5) = Cells(i, 2) * 2.5

ElseIf Cells(i, 1) / 20.86 = Int(Cells(i, 1) / 20.86) Then
Cells(i, 2) = Cells(i, 1) / 20.86
Cells(i, 3) = Cells(i, 2) * 9.96
Cells(i, 4) = Cells(i, 2) * 1.4
Cells(i, 5) = Cells(i, 2) * 9.5

Else
Cells(i, 2) = "错误"
End If
Next


End Sub

ww87725244

说实话，我题意都看不懂

MOY838840554

乘100
If Cells(i, 1) * 100 Mod 284 = 0 Then

ElseIf Cells(i, 1) * 100 Mod 286 = 0 Then

ElseIf Cells(i, 1) * 100 Mod 786 = 0 Then

ElseIf Cells(i, 1) * 100 Mod 1386 = 0 Then

ElseIf Cells(i, 1) * 100 Mod 2086 = 0 Then

MOY838840554

刚好能整除，万一有个金额是两个价格的公倍数呢，两个都符合你也要考虑到吧

huanghun1973

ww87725244 发表于 2018-11-18 14:06
说实话，我题意都看不懂

哦，不好意思，可能我的表达有点啰嗦了。其实意思就是判断一些数能否被7.86、2.86、13.86等一些数整除，能整除是对的，否则是错的。是数学意义上的整除。

huanghun1973

MOY838840554 发表于 2018-11-18 14:45
刚好能整除，万一有个金额是两个价格的公倍数呢，两个都符合你也要考虑到吧

十分感谢。之前是有一个这样的价格，某个金额数就能把两个价格都除开，现在不大用了。说实话，我真想到了，如果再有这样的情况的话，这代码怎么写呢？是在语句中加个“AND”吗？

huanghun1973

MOY838840554 发表于 2018-11-18 14:41
乘100
If Cells(i, 1) * 100 Mod 284 = 0 Then

太谢谢了！