Tổng hợp ghi chú các vi phạm theo bảng số liệu (1 người xem)

[Thbv]

Mình nhờ các bạn giúp đỡ đặt công thức tổng hợp lỗi vi phạm theo bảng trên, Kết quả mong muốn tại cột N, mình ví dụ 3 dòng số liệu, thực tế thì nhiều dòng số liệu đánh tay thì mất nhiều thời gian quá. Mình cảm ơn các bạn nhiều.

 

[hocexcel_1991]

Mình nhờ các bạn giúp đỡ đặt công thức tổng hợp lỗi vi phạm theo bảng trên, Kết quả mong muốn tại cột N, mình ví dụ 3 dòng số liệu, thực tế thì nhiều dòng số liệu đánh tay thì mất nhiều thời gian quá. Mình cảm ơn các bạn nhiều.

Thử dùng Power Query xem kết quả đúng không

 

[le_vis]

Mình nhờ các bạn giúp đỡ đặt công thức tổng hợp lỗi vi phạm theo bảng trên, Kết quả mong muốn tại cột N, mình ví dụ 3 dòng số liệu, thực tế thì nhiều dòng số liệu đánh tay thì mất nhiều thời gian quá. Mình cảm ơn các bạn nhiều.

Các dòng N4; N5; N6 lập công thức sau. Không hiểu có đúng ý bạn không ?
N4 = "Chậm "&$B$3&" = "&SUM(B4:B6)&" , "&"Sai "&$F$3&" = "&SUM(F4:F6)&" , "&"Thiếu "&$K$3&" = "&SUM(K4:K6)
N5 = "Chậm "&MID($B$3;1;2)&","&MID($C$3;1;2)&","&$E$3&" = "&SUM(B4:B6;C4:C6;E4:E6)&" , "&"Sai "&MID(F$3;1;2)&","&$I$3&" = "&SUM(F4:F6;I4:I6)&" , "&"Thiếu "&$L$3&" = "&SUM(L4:L6)
N6 = "Chậm "&MID($B$3;1;2)&","&$D$3&" = "&SUM(B4:B6;D46)&" , "&"Sai "&MID($G$3;1;2)&","&$H$3&" = "&SUM(G4:G6;H4:H6)&" , "&"Thiếu "&$M$3&" = "&SUM(M4:M6)

 

[Nhattanktnn]

Mình nhờ các bạn giúp đỡ đặt công thức tổng hợp lỗi vi phạm theo bảng trên, Kết quả mong muốn tại cột N, mình ví dụ 3 dòng số liệu, thực tế thì nhiều dòng số liệu đánh tay thì mất nhiều thời gian quá. Mình cảm ơn các bạn nhiều.

Hoặc VBA mình chỉ viết được vậy:

Sub NoiChu()
Dim sArr(), dArr(), Rng As Range
Dim i As Long, j As Long
sArr = Application.InputBox(Prompt:="Please Select Range", Title:="Range Select", Default:="$B$2:$M$6", Type:=8).Value 'Vung B2:M6
ReDim dArr(3 To UBound(sArr), 1 To 1)
For i = 3 To UBound(sArr)           'Dong
    For j = 1 To UBound(sArr, 2)    'Cot
        If sArr(i, j) <> "" Then
            dArr(i, 1) = dArr(i, 1) & "," & sArr(1, Int((j - 1) / 4) * 4 + 1) & " " & sArr(2, j)
            If Left(dArr(i, 1), 1) = "," Then dArr(i, 1) = Right(dArr(i, 1), Len(dArr(i, 1)) - 1)
        End If
    Next j
Next i
Range("O4").Resize(UBound(dArr) - 2, 1).Value = dArr
End Sub

Nhờ các bác cải thiện thêm

 

[Thbv]

Cảm ơn các bạn rất nhiều. Mình muốn đặt công thức ra kết quả như cột trong file của mình. Bạn có thể sửa hoặc thay đổi tên của cột hoặc thêm cột phụ nhưng vẫn rõ là vi phạm: Chậm, Sai, Thiếu kết quả có ghi chú Chậm, Sai, Thiếu của từng Quý theo file của mình

Bài đã được tự động gộp: 24/7/20

Mong các bạn giúp đỡ

 

[Ba Tê]

Mình muốn đặt công thức ra kết quả như cột trong file của mình.

Tôi không dùng công thức được, chỉ dùng VBA viết Hàm tự tạo thôi.

 

[le_vis]

Cảm ơn các bạn rất nhiều. Mình muốn đặt công thức ra kết quả như cột trong file của mình. Bạn có thể sửa hoặc thay đổi tên của cột hoặc thêm cột phụ nhưng vẫn rõ là vi phạm: Chậm, Sai, Thiếu kết quả có ghi chú Chậm, Sai, Thiếu của từng Quý theo file của mình

Bài đã được tự động gộp: 24/7/20

Mong các bạn giúp đỡ

Bạn xem File -