有任务1、任务2等,开始日期不固定,完成日期不固定,每天完成数量不固定,如何自动统计每个任务的开始日期和完成日期?不能先排序,只能按日期顺序查找。
如图:第一行为日期
如图,做两个函数,函数名称及内容如下:
Function ks(p%) As String
Dim i%, x As String
x = ""
i = 2
Do While Cells(1, i) <> ""
If Cells(p, i) <> "" Then
x = Cells(1, i)
Exit Do
End If
i = i + 1
Loop
ks = x
End Function
Function js(p%) As String
Dim i%, x As String
x = ""
i = 2
Do While Cells(1, i) <> ""
If Cells(p, i) <> "" Then
x = Cells(1, i)
End If
i = i + 1
Loop
js = x
End Function
在单元格中调用时,参数P表示你要查找的行号,比如对于任务1,P=2,对于任务2,P=3
然后就可以得到结果了
注意:(1)两个函数必须写在独立模块中。
(2)由于日期型数据在EXCEL不好控制,所以最好表示成字符型。