[已解决]设置人数分组

电子表

Private Sub CommandButton1_Click()
Dim dInput As Double
    Dim r As Integer
     r = Sheet2.Range("B65536").End(xlUp).Row
    For i = 3 To r
a = Sheet2.Cells(i, 3).Value
x = Application.InputBox(Prompt:="请设置分组人数：", Type:=1)
C = a Mod x
c1 = Application.InputBox(Prompt:="请设置最大余数：", Type:=1)
If x > a Then
Sheet2.Cells(i, 5) = Int(a / x) + 1
ElseIf x <= a And c1 <= C Then
Sheet2.Cells(i, 5) = Int(a / x)
Else
Sheet2.Cells(i, 5) = Int(a / x) + 1
End If
Next i
End Sub
分组问题.rar (25.02 KB, 下载次数: 10)

2014-3-26 23:05 上传

点击文件名下载附件 自已写的代码,不知错在哪了,求老师指点!谢谢!

初设分组人数x,如分组人数大于等于组别人次数a,则分组数为1;如分组人数小于组别人次数,初设余数c,如余数为0,则分组数为a/x,如初设余数为C1,如x <a And c <= C1,则分组数等于a/x取整;如x <a And c > C1,则分组数等于a/x取整1.

最佳答案

月排行榜 / 总排行榜

grf1973

2014-3-27 11:22

我的代码可以进一步精简如下：

1. Private Sub CommandButton1_Click()
   
2.     With ActiveSheet
   
3.         r = .Range("B65536").End(xlUp).Row
   
4.         x = Application.InputBox(Prompt:="请设置分组人数：", Type:=1)
   
5.         c1 = Application.InputBox(Prompt:="请设置最大余数：", Type:=1)
   
6.         For i = 3 To r
   
7.             a = .Cells(i, 3).Value
   
8.             fz = Int(a / x): C = a Mod x
   
9.             If a <= x Or C > c1 Then fz = fz + 1
   
10.             .Cells(i, 5) = fz
    
11.         Next i
    
12.     End With
    
13. End Su

复制代码

里面的逻辑关系能理清吗？

跳转到最佳答案楼层

grf1973

1. Private Sub CommandButton1_Click()
   
2.     Dim dInput As Double
   
3.     Dim r As Integer
   
4.     With ActiveSheet
   
5.         r = .Range("B65536").End(xlUp).Row
   
6.         x = Application.InputBox(Prompt:="请设置分组人数：", Type:=1)
   
7.         c1 = Application.InputBox(Prompt:="请设置最大余数：", Type:=1)
   
8.         For i = 3 To r
   
9.             a = .Cells(i, 3).Value
   
10.             If a <= x Then
    
11.                 fz = 1
    
12.             Else
    
13.                 c = a Mod x
    
14.                 If c >= c1 Then fz = Int(a / x) + 1 Else fz = Int(a / x)
    
15.             End If
    
16.             .Cells(i, 5) = fz
    
17.         Next i
    
18.     End With
    
19. End Sub
    
20. 
    

复制代码

grf1973

按你要求第14句c>=c1改成c>c1。另外最接近你原来代码的改法如下 ：

1. Private Sub CommandButton1_Click()
   
2.     Dim dInput As Double
   
3.     Dim r As Integer
   
4.     r = Sheet1.Range("B65536").End(xlUp).Row
   
5.     x = Application.InputBox(Prompt:="请设置分组人数：", Type:=1)
   
6.     c1 = Application.InputBox(Prompt:="请设置最大余数：", Type:=1)
   
7.     For i = 3 To r
   
8.         a = Sheet1.Cells(i, 3).Value
   
9.         C = a Mod x
   
10.         If x > a Then
    
11.             Sheet1.Cells(i, 5) = Int(a / x) + 1
    
12.         ElseIf x <= a And c1 >= C Then
    
13.             Sheet1.Cells(i, 5) = Int(a / x)
    
14.         Else
    
15.             Sheet1.Cells(i, 5) = Int(a / x) + 1
    
16.         End If
    
17.     Next i
    
18. End Sub
    

复制代码

grf1973

你原来代码有三个主要错误：
1、sheet1写成了sheet2
2、把设置分组人数和最大余数放到了循环中
3、条件判断ElseIf x <= a And c1 <= C Then
                       Sheet2.Cells(i, 5) = Int(a / x)
     应该改成   c1>=C

grf1973

我的代码可以进一步精简如下：

1. Private Sub CommandButton1_Click()
   
2.     With ActiveSheet
   
3.         r = .Range("B65536").End(xlUp).Row
   
4.         x = Application.InputBox(Prompt:="请设置分组人数：", Type:=1)
   
5.         c1 = Application.InputBox(Prompt:="请设置最大余数：", Type:=1)
   
6.         For i = 3 To r
   
7.             a = .Cells(i, 3).Value
   
8.             fz = Int(a / x): C = a Mod x
   
9.             If a <= x Or C > c1 Then fz = fz + 1
   
10.             .Cells(i, 5) = fz
    
11.         Next i
    
12.     End With
    
13. End Su

复制代码

里面的逻辑关系能理清吗？

电子表

能理解,谢谢帮助!