返回列表 上一主題 發帖

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

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

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


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

本帖最後由 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
複製代碼

TOP

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

TOP

        靜思自在 : 看別人不順眼,是自己修養不夠。
返回列表 上一主題