Excel - 使用基于用户输入的日期填充列

Question

我相当精通Excel VBA（有很多在线帮助!!）......但是我偶然发现了一个让我完全陷入困境的问题。

我正在为项目计划创建甘特图。我的问题是，我希望让用户指定项目开始日期和项目结束日期，然后让电子表格填充从开始日期到结束日期的列。

请参阅基本布局：

我已经见底与InputBoxes

Sub Set_Project_Start_Date() 

' Written 2nd August 13 
' P.J. Callaghan 
' 

ActiveSheet.Select 
Dim projStartDate 

showInputBox_Start: 
projStartDate = Application.InputBox("Please enter Project Start Date" & Chr(10) & "Must be a Monday" & Chr(10) & "Format is: dd/mm/yyyy") 

' Set Message Box such that clicking cancel ends the sub-routine for projStartdate variable 
If projStartDate = False Then 
MsgBox "You clicked the Cancel button, Input Box will close.", 64, "Cancel was clicked." 
Exit Sub 
ElseIf projStartDate = "" Then 
MsgBox "You must click Cancel to exit.", 48, "You clicked Ok but entered nothing." 
GoTo showInputBox_Start 
Else 
MsgBox "You entered " & projStartDate & ".", 64, "Please click OK to resume." 
Range("c6").Select 
With Selection 
.Value = projStartDate 
.NumberFormat = "dd-mmm-yy" 
End With 
Range("e10").Select 
With Selection 
.Value = projStartDate 
.NumberFormat = "dd-mmm-yy" 
.Orientation = 90 
End With 

End If 

End Sub 

Sub Set_Project_End_Date() 

' Written 2nd August 13 
' P.J. Callaghan 
' 

ActiveSheet.Select 
Dim projEndDate 

showInputBox_End: 
projEndDate = Application.InputBox("Please enter Project End Date" & Chr(10) & "Must be a Monday" & Chr(10) & "Format is: dd/mm/yyyy") 

' Set Message Box such that clicking cancel ends the sub-routine for projStartdate variable 
If projEndDate = False Then 
MsgBox "You clicked the Cancel button, Input Box will close.", 64, "Cancel was clicked." 
Exit Sub 
ElseIf projEndDate = "" Then 
MsgBox "You must click Cancel to exit.", 48, "You clicked Ok but entered nothing." 
GoTo showInputBox_End 
Else 
MsgBox "You entered " & projEndDate & ".", 64, "Please click OK to resume." 
Range("c7").Select 
With Selection 
.Value = projEndDate 
.NumberFormat = "dd-mmm-yy" 
End With 

End If 

End Sub 

位，我只能和正在编写代码从起始日期来填充到最终用户输入仅限日期。我肯定这肯定是某种循环安排......至今我还没有弄明白。

我想知道你们中的任何人是否可以提出解决方案？

由于提前，

保罗

Answer 1

如果你的目标是填充与细胞E10开始从起始日期到项目结束日期每日日期的行，那么你可以使用自动填充：

With Worksheets("Gantt") 
    Set sourceRange = .Range("E10") 
    sourceRange.Value = projStartDate 
    Set fillRange = .Range(sourceRange, Cells(sourceRange.Row, _ 
     sourceRange.Column + projEndDate - projStartDate + 1)) 
    sourceRange.AutoFill Destination:=fillRange, Type:=xlFillDays 
End With 

Answer 2

Chuff，这是正确的钱。

我已经采取了你的代码，并修改了它咯...因为某些原因没有执行的复制和粘贴

Sub Date_Fill() 

' http://stackoverflow.com/questions/18043084/excel-populate-columns-with-dates-based-on-user-input 

Dim projEndDate As Date 
Dim projStartDate As Date 
Dim projDuration As Integer 

projStartDate = Range("c6").Value 
projEndDate = Range("c7").Value 

With Worksheets("Gantt") 
    Set SourceRange = .Range("E10") 
    SourceRange.Value = projStartDate 
    Set fillRange = .Range(SourceRange, Cells(SourceRange.Row, _ 
     SourceRange.Column + projEndDate - projStartDate + 1)) 
    SourceRange.AutoFill Destination:=fillRange, Type:=xlFillDays 
End With 

End Sub 

谢谢你曾经这么多的帮助......这一项一直在窃听我几个星期。我今天正在考虑循环，因为我认为答案可能在那里。

再次......非常感谢。