TỰ ĐỘNG ĐIỀN THỜI GIAN THEO TỔNG SỐ NGÀY BẰNG VBA

TỰ ĐỘNG ĐIỀN THỜI GIAN THEO TỔNG SỐ NGÀY BẰNG VBA

Chào cả nhà!
Mình có vấn đề này muốn hỏi, mình muốn tạo 1 biểu đồ nhân lực và thiết bị dựa vào định mức, nhưng có vấn đề chổ duration( khoảng thời gian) có bạn nào có ý tưởng nhập số ngày và ngày bắt đầu cần làm thì tự động điền thời gian theo số ngày đó không.
VD. CV A: ngày bắt đầu 1/7/18. Thời gian cần làm là 15 ngày
Thì kết quả xuất ra ở 1 cột là từ cột C1 -> C15 là 1/7/18 … 14/7/18.
Mình đã thử dùng vài lệnh rows và counta nhưng “fomular refer own cells” nên kết quả ko chính xác.
Hi vọng anh em giúp đở

	Sub MinhDang()
	Dim StartDate As Date, TMP() As Date, Totalday As Long, I As Long
	With Sheet1
	StartDate = CDate(.Range(“A1”).Value)‘Ngày bắt đầu tính từ ô A1
	Totalday = CLng(.Range(“B1”).Value)‘ Số ngày cần điền
	.Range(“C1:C1048576”).ClearContents ‘Xóa dữ liệu cột C
	For I = 1 To Totalday ‘ Vòng lăọ chạy từ 1 tới tổng số ngày
	.Range(“C” & I) = StartDate + I – 1 ” Điền dữ liệu vào cột C
	Next
	End With
	End Sub

view rawMinhdang.bas hosted with  by GitHub

?

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.