请问，如何按日期平均分配数量

wynbfqny · 发表于 2010-11-23 16:46

想做到附件里的效果，不知各位有何良策

xyzhero · 发表于 2010-11-23 16:58

看看是不是这样的

求解.rar (4.23 KB, 下载次数: 35)

wynbfqny · 发表于 2010-11-24 11:19

原帖由 xyzhero 于 2010-11-23 16:58 发表
看看是不是这样的 829447

怪我没说清楚，一开始右边是没有任何数据的，右边所有的数据都均产生（包括编号，开始日期，结束日期，日期，数量）

Raymondmo1982 · 发表于 2011-12-1 14:38

Sub 平均数量()
'

' Raymondmo 录制，时间: 2011-12-1
'

Dim pdays As Integer

Dim i As Integer
Dim j As Integer

For j = 4 To Sheets("工时分配").UsedRange.Rows.Count
pdays = Sheets("工时分配").Range("c" & j) - Sheets("工时分配").Range("b" & j) + 1
For i = 7 To 60

      If Sheets("工时分配").Cells(1, i) <= Sheets("工时分配").Range("c" & j) Then
         If Sheets("工时分配").Cells(1, i) >= Sheets("工时分配").Range("b" & j) Then
            Sheets("工时分配").Cells(j, i) = Sheets("工时分配").Range("d" & j) / pdays
         Else
         End If

      Else
      End If

Next i
Next j

End Sub
我写了一条VBA ，不知道能不能满足您的需求

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

[求助] 请问，如何按日期平均分配数量