[已解决]生产排期表WORKDAY问题---已由Zipall朋友解决

saman

生产排期表WORKDAY问题

如何运用WORKDAY计算生产天数，但不要将周六计算为休息日。

详情请阅附件。

请各路高手指教，不胜感谢！

eRhpIKSR.rar (28.32 KB, 下载次数: 35)

2010-4-11 20:10 上传

点击文件名下载附件
生产排期表WORKDAY问题

**************已解决。谢谢第16楼Zipall朋友提供的方法。现列出如下，与众多朋友共享。**********

1-按住ALT+F11, 打开VB,

2-点击菜单栏之“插入I”,再点击“模块M”，会出现一个模块1

3-在模块1中粘贴下面的代码：

Function NWD(start_date As Date, days As Integer, holidays As Range)
    Dim x As Integer
    x = 1
    With Application.WorksheetFunction
        Do While x < days
            start_date = start_date + 1
            If start_date Mod 7 <> 1 And .CountIf(holidays, start_date) = 0 Then x = x + 1
        Loop
    End With
    NWD = start_date
End Function

然后回到EXCEL表格中，在J8输入公式

=NWD(F7,C7,M6:U6)

即可得出将周日当作正常上班的日期。

本人不懂VB，为了有些跟我同样不懂VB的朋友能操作，多加了一点点说明。

[此贴子已经被作者于2010-5-6 16:37:19编辑过]

最佳答案

月排行榜 / 总排行榜

Zipall

2010-5-5 11:05

QUOTE:

以下是引用saman在2010-5-5 10:05:00的发言：

回朋友：

--  作者：杰 --   =结束日期-开始日期-SUM(N(TEXT(ROW(INDIRECT(开始日期&":"&结束日期)),"a")="日")) CTRL+SHIFT+ENTER结束

本来就是要求结束日期，请教公式中“结束日期”如何设？

按住ALT，依次按F11,I,M

粘贴下面的代码后回到excel中，在J8输入公式

=NWD(E7,C7,M6:U6)

------------------------------------------------------------

Function NWD(start_date As Date, days As Integer, holidays As Range)
    Dim x As Integer
    x = 1
    With Application.WorksheetFunction
        Do While x < days
            start_date = start_date + 1
            If start_date Mod 7 <> 1 And .CountIf(holidays, start_date) = 0 Then x = x + 1
        Loop
    End With
    NWD = start_date
End Function

跳转到最佳答案楼层

陈桂平

学习一下

saman

看来高手们都比较忙，自己顶一个。

hn968968

学习一下

zyjs029

lz意思是周六上班  法定假休息一天  是吗  这样的话20天应该是在4月24 阿

saman

QUOTE:

以下是引用zyjs029在2010-4-12 19:00:00的发言：

lz意思是周六上班  法定假休息一天  是吗  这样的话20天应该是在4月24 阿

多谢关注。

我的意思是：如果要计算生产排期，可否用WORKDAY公式返回生产周期天数，但将周六视为正常上班时间。仅将法定假日和周日作为休息日。

saman

看来高手们都比较忙哈，没什么人过问。

xiaoyezi83

学习下

真永远

[em01][em01][em01][em01]

真永远

[em02][em02][em02][em02][em02]