[發問] 依輸入的日期範圍，於指定的工作表欄位秀出該範圍內的日期???

p6703

Sheet1輸入起始日及天數，可自動於Sheet2 L1欄位起秀出其每日日期，請問如何以巨集可達成，請各住先進指教，謝謝^^


日期範圍巨集套取.rar (4.61 KB)

下載次數: 10

2012-10-23 12:22

GBKEE

回復 1# p6703

1. ub Ex()
   
2.     Dim xi As Integer
   
3.     With Sheet2.Range("L1")
   
4.         Sheet2.Range(.Cells(1), .Cells(1).End(xlToRight)) = ""
   
5.         '迴圈
   
6.         For xi = 0 To Sheet1.[B3]
   
7.             .Offset(, xi) = Sheet1.[B2] + xi
   
8.         Next
   
9.         
   
10.         '公式
    
11.      '  .Resize(, Sheet1.[B3] + 1) = "= Sheet1!$B$2+" & "Column() -" & .Column
    
12.      '  .Resize(, Sheet1.[B3] + 1) = .Resize(, Sheet1.[B3] + 1).Value
    
13.         
    
14.     End With
    
15. End Sub

複製代碼

p6703

感謝GBKEE 版主，又讓小弟學了一招，謝謝^^