excel中的打印日期範圍

我是excel中的新手。我想微距拍攝2個參數的起始日期&結束日期和打印月明智的日期範圍如下圖所示：excel中的打印日期範圍

起始日期結束日期 2015年1月12日24-08-2016

（小區A4）（小區B4）（小區C4）從到差異天數 01-12-2015 31-12-2015 31 01-01-2016 31-01-2016 31 01-02-2016 29-02-2016 29 01-03-2016 31-03-2016 31 01-04-2016 30-04-2016 30 01-05-2016 31-05-2016 31 01-06-2016 31-06-2016 31 01-07-2016 30- 07-2016 30 01-08-2016 24-08-2016 24

請幫我編寫代碼。提前致謝。

來源

2016-09-24 Amy

你不需要的代碼，你需要在C列的公式，那麼你需要填充它向上/向下的表：'= B10-A10' – jamheadart

感謝您的答覆。其實我想分別從A2和B2的用戶那裏獲取用戶的startdate和enddate。宏應該填充以上述格式拆分它們。 – Amy

本網站不是代碼編寫服務（人們爲此付費），但出於我自己的好奇心，我把它放在一起。希望能幫助到你。

Sub date_info() 

Dim date1 As Date 
Dim date2 As Date 
Dim dateT As Date 
Dim myRow As Integer 

With ActiveSheet 
    .[A3:C1000].ClearContents 
    date1 = .[A2].Value 
    date2 = .[B2].Value 
    myRow = 3 
    .Cells(myRow, 1).Value = date1 

Do Until dateT > date2 
    date1 = DateAdd("m", 1, date1) 
    dateT = DateAdd("d", -1, date1) 
    .Cells(myRow + 1, 1).Value = date1 
    .Cells(myRow, 2).Value = dateT 
    .Cells(myRow, 3).Value = .Cells(myRow, 2).Value - .Cells(myRow, 1).Value + 1 
    myRow = myRow + 1 
Loop 

.Cells(myRow, 1).Value = "" 
End With 
End Sub

來源

2016-09-25 08:22:27 jamheadart

excel中的打印日期範圍

回答

相關問題