[已解决]请教老师

ping052062

请教老师，麻烦了。详情见附件。
求余数.zip (2.22 KB, 下载次数: 8)

2013-7-7 13:55 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-7-7 15:50

是不是要这样的？

跳转到最佳答案楼层

h16503

=MOD(D2,9)


=MOD(D7,30)

ping052062

h16503 发表于 2013-7-7 14:17
=MOD(D2,9)

要求用VBA代码模块写出来。

ligh1298

1. Sub 求余数()
   
2. [d3:al3].ClearContents
   
3. For Each Rng In [d2:al2]
   
4. n = n + 1
   
5. Cells(3, n + 3) = Rng Mod 9
   
6. Next
   
7. [d8:al8].ClearContents
   
8. For Each Rng1 In [d7:al7]
   
9. k = k + 1
   
10. Cells(8, k + 3) = Rng1 Mod 30
    
11. Next
    
12. End Sub

复制代码

h16503

Sub oo()
For i = 1 To 35
    Cells(4, 3 + i) = Cells(2, i + 3) Mod 9
Next
End Sub

ping052062

ligh1298 发表于 2013-7-7 14:31

整除的余数是被除数的本身，不能为零。

ligh1298

ping052062 发表于 2013-7-7 15:26
整除的余数是被除数的本身，不能为零。

9除以9，余数是0呀，18、27、36……这些除以9余数都是0，你想他为多少？可加一个if来判断。

ping052062

ligh1298 发表于 2013-7-7 15:37
9除以9，余数是0呀，18、27、36……这些除以9余数都是0，你想他为多少？可加一个if来判断。

9除以9，余数是0呀，18、27、36……这些除以9余数都是0，你想他为多少？是9呀。可加一个if来判断。应怎样加？谢谢了。

ligh1298

是不是要这样的？