[已解决]这句代码哪里不对啊？为啥啊？弄了一个晚上没整明白

hwc2ycy

qjsu

hwc2ycy 发表于 2012-10-21 12:35

请看附件，晕啊，11111111

hwc2ycy

1. Sub 按钮1_Click()
   
2.     Dim i As Integer
   
3.     Dim y() As Integer
   
4.     For i = 4 To 20
   
5.         ReDim Preserve y(i) As Integer
   
6.         If Application.WorksheetFunction.CountIf(Range("C" & i & ":L" & i), [m3]) >= 1 Then
   
7.         y(i) = Range("B" & i) / (10 - Application.WorksheetFunction.CountIf(Range("C" & i & ":L" & i), ""))
   
8.     Else
   
9.     y(i) = 0
   
10.     End If
    
11.     Range("n" & i).Select
    
12.     ActiveCell.FormulaR1C1 = y(i)
    
13.     Next
    
14. 
    
15. End Sub

复制代码

hwc2ycy

1. Sub 按钮1_Click()
   
2.     Dim i As Integer
   
3.     Dim y() As Integer
   
4.     For i = 4 To 20
   
5.         ReDim Preserve y(i) As Integer
   
6.         If Application.WorksheetFunction.CountIf(Range("C" & i & ":L" & i), [m3]) >= 1 Then
   
7.         y(i) = Range("B" & i) / (10 - Application.WorksheetFunction.CountIf(Range("C" & i & ":L" & i), ""))
   
8.     Else
   
9.     y(i) = 0
   
10.     End If
    
11.     Range("n" & i).Select
    
12.     ActiveCell.FormulaR1C1 = y(i)
    
13.     Next
    
14.     [m4] = Application.WorksheetFunction.Sum(y)
    
15. End Sub

复制代码

改了下，可以显示指定人员获取的资金总和。
如果要求月份，只要你的日期例是标准的，就好算了。
根据资金平均列，用SUMPRODUCT就行。

hwc2ycy

原有的公式时，直接用M3是不行的，这里不是表格。你用RANGE("M3")或[M3]就差不多了。
还有那个统计姓名出现资料的条件也不对，>1要成立的话，出现资料最少得2次才行。

hwc2ycy

闪屏的问题。
在代码里开始处加一个

1. Application.ScreenUpdating = False

复制代码

qjsu

hwc2ycy 发表于 2012-10-21 23:37
改了下，可以显示指定人员获取的资金总和。
如果要求月份，只要你的日期例是标准的，就好算了。
根据资金 ...

为什么必须使用大于等于1，使用大于1就不行呢？

hwc2ycy

qjsu 发表于 2012-10-22 09:44
为什么必须使用大于等于1，使用大于1就不行呢？

大于1就得是2了。

qjsu

hwc2ycy 发表于 2012-10-22 09:55
大于1就得是2了。

明白了，我犯2了，我磁欧

hwc2ycy

慢慢来。