[已解决]请高手师傅帮忙看下这个用vba要怎么做，谢谢

qiongmei · 发表于 2015-9-21 13:55

我附件有一个表格，我本来是想用公式来做的，后来请教了很多人，发现用公式做的不好，所以请高手师傅们帮忙看下用vba能做吗。在这个表格中我希望l 列的得数是b列-(c列到k列日期的统计数)，如果c列到k列中，如果单元格没有变成红色，那在统计的时候里头有日期则算1，如果单元格变成红色，里头有数字则算0.5，例如l 12中的得数是2.5，在l14中则为2，谢谢高手师傅们的帮忙。

最佳答案

月排行榜 / 总排行榜

grf1973

2015-9-21 14:22

请看附件。

跳转到最佳答案楼层

grf1973 · 发表于 2015-9-21 14:22

Sub 统计()
Dim x As Range
For i = 3 To [b65536].End(3).Row
Cells(i, "L") = Cells(i, 2) - Application.WorksheetFunction.Count(Cells(i, 3).Resize(1, 9))
For Each x In Cells(i, 3).Resize(1, 9)
If Len(x) > 0 And x.Interior.ColorIndex = 3 Then Cells(i, "L") = Cells(i, "L") + 0.5
Next
Next
End Sub

复制代码

grf1973 · 发表于 2015-9-21 14:22

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

请看附件。

江河行地 · 发表于 2015-9-22 13:48

休假安排1.zip (8.79 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册