用VBA或数学每个袋中最多可装糖果

laoau138

用VBA或数学每个袋中最多可装糖果

grf1973

5041分71份，每份71

1. Sub tt()
   
2.     For i = 4000 To 6000
   
3.         For j = 5 To 9
   
4.             If i Mod j <> 1 Then Exit For
   
5.         Next
   
6.         If j = 10 Then   '找到符合条件的数
   
7.             For k = 2 To Int(Sqr(i))   '找最小约数
   
8.                 If i Mod k = 0 Then
   
9.                     MsgBox i & "分" & k & "份，每份" & i \ k
   
10.                     Exit For
    
11.                 End If
    
12.             Next
    
13.         End If
    
14.     Next
    
15. End Sub
    

复制代码

laoau138

grf1973 发表于 2017-2-8 15:10
5041分71份，每份71

用VBA数组分别计算每班总分平均分，输出到F:I列


http://www.excelpx.com/thread-427574-1-1.html