標題: [發問] 依輸入的日期範圍，於指定的工作表欄位秀出該範圍內的日期??? [打印本頁]

---

作者: p6703    時間: 2012-10-23 12:23     標題: 依輸入的日期範圍，於指定的工作表欄位秀出該範圍內的日期???

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


[attach]12864[/attach]

---

作者: GBKEE    時間: 2012-10-23 13:17

本帖最後由 GBKEE 於 2012-10-23 13:37 編輯

回復 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    時間: 2012-10-23 16:37

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)