Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3036|回复: 19

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

[复制链接]
发表于 2012-10-21 10:31 | 显示全部楼层 |阅读模式
Public Sub ZZ()
Range("N2").Select
ActiveCell.FormulaR1C1 = Range("B2").Value / (10 - Application.WorksheetFunction.CountIf(Range("C" & 4 & ":L" & 4), ""))


End Sub

最佳答案
2012-10-21 23:37
  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就行。
发表于 2012-10-21 10:40 | 显示全部楼层
你countifj结果等于10,10-10=0,然后,你再除以0,不出错就怪了
回复

使用道具 举报

发表于 2012-10-21 11:00 | 显示全部楼层
回复

使用道具 举报

发表于 2012-10-21 11:15 | 显示全部楼层
正在学习,我也搞不懂。
回复

使用道具 举报

 楼主| 发表于 2012-10-21 12:04 | 显示全部楼层
hwc2ycy 发表于 2012-10-21 11:00
学习了。

C4:L4有六个单元格内有内容,内容各不相同,COUNTIF的结果是4
回复

使用道具 举报

发表于 2012-10-21 12:27 | 显示全部楼层
把附件传上来吧。
回复

使用道具 举报

发表于 2012-10-21 12:30 | 显示全部楼层
B2里有数字吗?
回复

使用道具 举报

发表于 2012-10-21 12:32 | 显示全部楼层
countif的结果是4没错啊,你有6个内容,问题是你countif是统计空的个数,当然是4了。
CountIf(Range("C" & 4 & ":L" & 4), ""),你这里是统计空的个数。
回复

使用道具 举报

发表于 2012-10-21 12:32 | 显示全部楼层
报错是因为C4-L4无任何内容。
回复

使用道具 举报

发表于 2012-10-21 12:34 | 显示全部楼层
QQ截图20121021123449.jpg
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 21:55 , Processed in 0.642850 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表