Excel计算间隔天数的函数

1、打开excel，在sheet1绘制下图表格数据，其中生产期栏位留空，用来特写函数。在sheet2中填入假期，请注意单元格格式。

2、接着在excel开发工具中，打开visual basic编辑器，在vbaproject上面点右键，插入，模块。将下面代码复制到右侧的空白区域。Function 生鞯煊忿猾産期(r As range) As Double '建立函数Dim a, b, c, sumb As DoubleDim d, e, f, h As rangesumb = 0Set d = r.Offset(, 0)a = d.ValueSet e = r.Offset(, -9)Set f = r.Offset(, -10)If e > 0.541666666666667 Thenb = f.Value + 1Elseb = f.ValueEnd Ifc = 0For i = b To aFor Each j In Sheet2.range("a1:a100") If i = j Then c = c + 1 Next Nextsumb = a - b - c + 1生産期 = sumbEnd Function