自定义函数取日期再取不同字段计算

jylai

C4:C16 没办法用，计算如同 D4D16

谢谢

边缘码农

没看明白要计算什么，什么原理。

这种自定义函数，只要代码有错误，就返回错误值，调试起来很麻烦。

跨越时空

看不明白需求是什么

jylai

根据 C1日期 对应 G1:Q1，C4 自定义函数  K4 - L4 其它以此类推

quqiyuan

参与一下，仅供参考。。。

ww87725244

参与一下

ww87725244

忘了附件;:

niko88819

C4   , =CAL($G4:$R4,$C$1)

1. Function CAL(dateRange As Range, specificDate As Range) As Variant
   
2.     Dim sht As Worksheet
   
3.     Set sht = ThisWorkbook.Sheets("Sheet1")
   
4.     Dim d As Variant
   
5.     Dim c As Variant
   
6.     Dim d As Variant
   
7.     d = Application.Match(specificDate, sht.Range("G1:R1"), 0)
   
8.     If IsError(d) Then
   
9.         CAL = CVErr(xlErrNA)
   
10.     Else
    
11.         c = Evaluate(dateRange.Cells(1, d).Value)
    
12.         d = dateRange.Cells(1, d + 1).Value
    
13.         CAL = c - d
    
14.     End If
    
15. End Function

复制代码

jylai

感谢楼上三位老师，您们太厉害