tách ngày tháng thành từng dòng (1 người xem)

[xingns]

Em chào các anh/ chị e đang có một bảng mà hàng ngày e phải tách ra để theo dõi chuyên cần của nhân viên. Tuy nhiên e không dành về các hàm cũng như viết VBA. Em muốn nhờ anh/chị giúp đỡ. ĐỀ BÀI LÀ NẾU NGÀY BẮT ĐẦU - NGÀY KẾT THÚC -> KẾT QUẢ LÀ MỖI NGÀY THỂ HIỆN THÀNH 1 DÒNG NHƯ SHEET ket qua trong file đính kèm ạ
Em xin cảm ơn cách anh/chị!

 

[Hoàng Tuấn 868]

ĐỀ BÀI LÀ NẾU NGÀY BẮT ĐẦU - NGÀY KẾT THÚC

Đề bài này không thực hiện được vì sẽ chỉ ra số không hoặc số âm. Khả năng là nhầm lẫn rồi.

 

[xingns]

Đề bài này không thực hiện được vì sẽ chỉ ra số không hoặc số âm. Khả năng là nhầm lẫn rồi.

bạn xem lại file đính kèm của mình sheets KQ ấy, mình muốn nó diễn giải được như vậy

 

[Hoàng Tuấn 868]

bạn xem lại file đính kèm của mình sheets KQ ấy, mình muốn nó diễn giải được như vậy

Bài này của bạn nếu nhiều dữ liệu nên dùng vba. Còn dùng công thức thì sẽ nặng file.

 

[xingns]

bạn xem có thể viết thế nào thì giúp mình với. cảm ơn bạn

 

[Hoàng Tuấn 868]

!!!............. . . ..

 

[Phuocam]

Em chào các anh/ chị e đang có một bảng mà hàng ngày e phải tách ra để theo dõi chuyên cần của nhân viên.

Bạn chạy thử code này

Public Sub MotNgatMotDong()
Dim i&, k&, r&, soNgay&
Dim sArr, rArr
With Sheets("goc")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Resize(, 8).Value
    r = UBound(sArr, 1)
    ReDim rArr(1 To r * 30, 1 To 8)
End With

For i = 1 To r
    For soNgay = CDate(sArr(i, 4)) To CDate(sArr(i, 6))
        k = k + 1
            rArr(k, 1) = sArr(i, 1)
            rArr(k, 2) = sArr(i, 2)
            rArr(k, 3) = sArr(i, 3)
            rArr(k, 4) = soNgay
            rArr(k, 5) = sArr(i, 5)
            rArr(k, 6) = soNgay
            rArr(k, 7) = sArr(i, 7)
            rArr(k, 8) = sArr(i, 8)
    Next soNgay
Next i
With Sheets("ket qua")
    .UsedRange.Offset(1).ClearContents
    .Range("A2").Resize(k, 8).Value = rArr
    .Range("D2").Resize(k, 1).NumberFormat = "yyyy-mm-dd"
    .Range("F2").Resize(k, 1).NumberFormat = "yyyy-mm-dd"
End With
End Sub

.

 

[xingns]

Bạn chạy thử code này

Public Sub MotNgatMotDong()
Dim i&, k&, r&, soNgay&
Dim sArr, rArr
With Sheets("goc")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Resize(, 8).Value
    r = UBound(sArr, 1)
    ReDim rArr(1 To r * 30, 1 To 8)
End With

For i = 1 To r
    For soNgay = CDate(sArr(i, 4)) To CDate(sArr(i, 6))
        k = k + 1
            rArr(k, 1) = sArr(i, 1)
            rArr(k, 2) = sArr(i, 2)
            rArr(k, 3) = sArr(i, 3)
            rArr(k, 4) = soNgay
            rArr(k, 5) = sArr(i, 5)
            rArr(k, 6) = soNgay
            rArr(k, 7) = sArr(i, 7)
            rArr(k, 8) = sArr(i, 8)
    Next soNgay
Next i
With Sheets("ket qua")
    .UsedRange.Offset(1).ClearContents
    .Range("A2").Resize(k, 8).Value = rArr
    .Range("D2").Resize(k, 1).NumberFormat = "yyyy-mm-dd"
    .Range("F2").Resize(k, 1).NumberFormat = "yyyy-mm-dd"
End With
End Sub

.

cảm ơn bạn, nhưng cái này dùng như thế nào nhỉ

 

[Hoàng Tuấn 868]

cái này dùng như thế nào nhỉ

Bạn tìm hiểu cách chèn code vào module là được thôi.

 

[xingns]

Bạn tìm hiểu cách chèn code vào module là được thôi.

Cảm ơn bạn nhiều, để mình tìm hiểu