如何取1~5之间的整数？

excelflower

原帖由 gwfzh 于 2010-12-30 13:23 发表

不是又要建立一个循环吗？现传上代码和附件，请老师更正！
在下面程序中如何用粉红色语句部分取代砖红色语句部分？即如何用brr(2 * (Int((m) / 2)), r) 取得数组brr的4，6，8，10偶数行数组：具体要求见附件问题三 ...

这个问题三，不用那么复杂！分析了一下，直接用数组解决，请测试 漏报分类统计123.rar (44.27 KB, 下载次数: 15)

2010-12-30 16:41 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2.     Dim i&, j&, n&, Arr, Brr()
   
3.     Range([a4], [a65536].End(3)(2, 10)).ClearContents
   
4.     With Sheets("调查登记表")
   
5.         Arr = .Range(.[a4], .[a65536].End(3)(1, 21))
   
6.         For i = 1 To UBound(Arr)
   
7.             If Arr(i, 21) = "" Then
   
8.                 n = n + 1
   
9.                 For j = 1 To UBound(Arr)
   
10.                     If Arr(i, 2) = Arr(j, 2) Then
    
11.                         Arr(i, 21) = j: Arr(j, 21) = j
    
12.                         ReDim Preserve Brr(1 To 10, 1 To n)
    
13.                         Brr(2, n) = Brr(2, n) + 1
    
14.                         Brr(3, n) = Brr(3, n) + Arr(j, 18)
    
15.                         Brr(5, n) = Brr(5, n) + Arr(j, 19)
    
16.                         Brr(7, n) = Brr(7, n) + Arr(j, 20)
    
17.                         Brr(9, n) = Brr(9, n) + Arr(j, 14)
    
18.                     End If
    
19.                 Next j
    
20.                 Brr(1, n) = Arr(i, 2)
    
21.                 Brr(4, n) = Round(Brr(3, n) / Brr(2, n), 2)
    
22.                 Brr(6, n) = Round(Brr(5, n) / Brr(2, n), 2)
    
23.                 Brr(8, n) = Round(Brr(7, n) / Brr(2, n), 2)
    
24.                 Brr(10, n) = Round(Brr(9, n) / Brr(2, n), 2)
    
25.             End If
    
26.         Next i
    
27.     End With
    
28.     [a4].Resize(UBound(Brr, 2), 10) = Application.Transpose(Brr)
    
29.     n = [a65536].End(3).Row + 1
    
30.     Range("a" & n).Value = "合计"
    
31.     Range("b" & n & ":i" & n).Formula = "=SUM(R[-25]C:R[-1]C)"
    
32.     Union(Range("d" & n), Range("f" & n), Range("h" & n), Range("j" & n)).Formula = "=rc[-1]/r" & n & "c2"
    
33. End Sub

复制代码

excelflower

原帖由 hanter007 于 2010-12-30 11:58 发表
楼上说得很有道理.
发觉楼上说话方式很有趣.呵呵

老师你好！EH是我的快乐答题俱乐部

gwfzh

谢谢excelflower 老师！祝你元旦快乐！在你的帮助下顺利解决问题！

cqxscc

直接用randbetween。。。。。

hiternc

真不错，元旦快乐

d353729046

说得很有道理