Báo cáo tháng với cơ sở dữ liệu cột (1 người xem)

[NguyenthiH]

Em có file đính kèm, mong các anh chị giúp em báo cáo theo tháng của các loại nhãn hiệu.

 

[NguyenthiH]

Với cơ sở dữ liệu của em, chắc không thể nào báo cáo theo tháng được rồi.

 

[SA_DQ]

Của bạn đâu fải là CSDL; Là mớ rau củ quả cùng trộn lòng lợn mà!
Fát khiếp!

 

[NguyenthiH]

Em làm vậy để dễ nhìn ra chi tiết Size của các nhãn hiệu, có cách gì để nhập, xuất theo hàng mà copy ra cột được không Thầy @SA_DQ ?

 

[Thong Hoang Tien 250691]

Mình có vài góp ý:
1. Đối với file tổng hợp(CSDL) nên hạn chế tối đa dùng merge & center. (nó chỉ phù hợp với báo cáo khi gửi cần trình bày đẹp thôi)
2. chỉ nên có 1, hoặc 2 sheet tổng hợp (xuất-nhập) với định dạng đơn giản & cố định(điều này dễ dàng cho bạn khi cần xử lý số liệu).
Còn với file này tôi không có kiến giải gì, dữ liệu thì không theo logic nào cả, Merge "tùm lum từa lưa" tôi bó tay thôi

 

[NguyenthiH]

Thế bạn có thể quay từ hàng ngang về hàng dọc dùm mình được chăng?
File đó từ bên Sigapore họ làm để theo dõi theo từng loại nhãn hiệu (mình đã cắt bớt chỉ còn 6 loại nhãn hiệu- chứ của họ tới 120 nhãn hiệu, tới 120 sheet, file nặng tới 23Mb). Mình mới tiếp nhận, nên làm theo họ.

 

[SA_DQ]

Em làm vậy để dễ nhìn ra chi tiết Size của các nhãn hiệu, . . . . . . ?

Bạn dễ nhìn thì tiếp tục vặn vẹo nó để nó cho ra kết quả đi thôi!
Đảm bảo với bạn rằng chả VBE hay công thức nào trị nổi nó đâu! Hãy đợi đấy rồi xem; Những mong sẽ có người trị được nó!

 

[be_09]

Bạn dễ nhìn thì tiếp tục vặn vẹo nó để nó cho ra kết quả đi thôi!
Đảm bảo với bạn rằng chả VBE hay công thức nào trị nổi nó đâu! Hãy đợi đấy rồi xem; Những mong sẽ có người trị được nó!

Có cách trị nó đó anh!
Bằng cách, thiết kế lại dữ liệu, nhưng nhìn File xong thì không thể nào góp ý được luôn.

 

[NguyenthiH]

Vậy là botay@.com

 

[be_09]

Vậy là botay@.com

Bó tay, bó chân thì người ta dùng miệng để diễn thuyết.
Còn bạn chỉ đưa cái cuối cùng mà không giải trình về quy trình theo dõi, nên chẳng ai biết có thằng ăn trộm nó nằm trong bồ lúa.

 

[befaint]

File đó từ bên Sigapore họ làm để theo dõi theo từng loại nhãn hiệu (mình đã cắt bớt chỉ còn 6 loại nhãn hiệu- chứ của họ tới 120 nhãn hiệu, tới 120 sheet, file nặng tới 23Mb)

Bên nước họ dùng tiếng Việt hử? Họ có sở thích gõ chữ kiểu "PROPER" đáng iêu đó hử?
Có (1-2) anh nào đó nói làm* bằng tay được thì VBA thực hiện được. Vậy bạn gửi luôn 23MB lên xem dzư lào? Mình cũng tin là làm được.
Và nhớ đưa là dấu hiệu nhận biết (từ khóa gì đó) đâu là vải, đâu là giấy, đâu là dây treo?

(*) "làm": cụ thể ở đây là phép tính cộng.

 

[NguyenthiH]

File đó biểu mẫu là của bên Singapore, còn chị theo dõi trước đã gỏ tiếng việt vào.
Tối nay em đưa File lên cho anh xem.

 

[NguyenthiH]

Đây em đưa anh file của Singapore nè. Có tất cả 151 Sheet và chì còn 1,015MB (Đã giảm dung lượng)
Em xin xóa File để thu hồi tài nguyên.

 

[NguyenthiH]

Anh @befaint thấy file "khủng khiếp" của em chưa?

 

[truongvu317]

Chả sheet nào giống sheet nào

 

[HieuCD]

Em có file đính kèm, mong các anh chị giúp em báo cáo theo tháng của các loại nhãn hiệu.

File sau khong biet gi nen chi lam theo mau file bai #1
Ps: May khong co bo go tieng Viet, cac ban thong cam

 

[vanaccex]

Đây em đưa anh file của Singapore nè. Có tất cả 151 Sheet và chì còn 1,015MB (Đã giảm dung lượng)

Cái này nhìn quen quen nhỉ ?

 

[NguyenthiH]

Lại lần nữa anh Hiếu giúp em. Cám ơn anh Hiếu nhiều. Em đang test file của anh. Có gì mong anh giúp.
Tới bạn @vanaccex : "Cái này nhìn quen quen" là sao bạn?

 

[vanaccex]

Lại lần nữa anh Hiếu giúp em. Cám ơn anh Hiếu nhiều. Em đang test file của anh. Có gì mong anh giúp.
Tới bạn @vanaccex : "Cái này nhìn quen quen" là sao bạn?

Dữ liệu

 

[n0thing1988]

Xem xong bài này. Chứng tỏ bọn Sing và các công ty như này cũng không hẳn là giỏi trong việc xử lý dữ liệu. Nhìn bảng theo dõi chẳng chuyên nghiệp tẹo nào. Thế mà được đánh giá hiệu suất công việc cao hơn VN là sao nhỉ?

 

[NguyenthiH]

Em Test file của anh @HieuCD, thì thấy như sau: nếu em chọn tháng 4 tới tháng 10 năm 2017 thì báo lổi "13" type Mismatch ở dòng

If i = 3 Or tmp < fDay Then
                      Res(j, 1) = Res(j, 1) - Val(sArr(i, cArr(m, j)))
                    ElseIf tmp < eDay Then
                      Res(j, 3) = Res(j, 3) + sArr(i, cArr(m, j)) <-----lỗi vàng
                    End If
                  End If
                Next m

cón các tháng khác thì không bị lỗi, mong anh giúp.

Bài đã được tự động gộp: 9/8/18

tới bạn @n0thing1988 : vậy bạn có thể đề xuất cách nào để chuyển dữ liệu thế nào cho mình mà có thể nhìn vào là thấy nhập, xuất của tất cà các phụ liệu của một "Nhãn Hiệu" với.

 

[HieuCD]

Em Test file của anh @HieuCD, thì thấy như sau: nếu em chọn tháng 4 tới tháng 10 năm 2017 thì báo lổi "13" type Mismatch ở dòng

If i = 3 Or tmp < fDay Then
                      Res(j, 1) = Res(j, 1) - Val(sArr(i, cArr(m, j)))
                    ElseIf tmp < eDay Then
                      Res(j, 3) = Res(j, 3) + sArr(i, cArr(m, j)) <-----lỗi vàng
                    End If
                  End If
                Next m

cón các tháng khác thì không bị lỗi, mong anh giúp.

Bài đã được tự động gộp: 9/8/18

tới bạn @n0thing1988 : vậy bạn có thể đề xuất cách nào để chuyển dữ liệu thế nào cho mình mà có thể nhìn vào là thấy nhập, xuất của tất cà các phụ liệu của một "Nhãn Hiệu" với.

Them ham Val cho cac sArr(...,...)

      For i = 3 To UBound(sArr)
        tmp = sArr(i, 1)
        If Len(tmp) Then
          If k <= 1 Then
            If i > 3 And TypeName(sArr(i, 1)) = "String" Then
              k = k + 1
            Else
              For j = 1 To 3
                For m = 1 To cArr(10, j)
                  If k = 0 Then
                    If i = 3 Or tmp < fDay Then
                      Res(j, 1) = Res(j, 1) + Val(sArr(i, cArr(m, j)))
                    ElseIf tmp < eDay Then
                      Res(j, 2) = Res(j, 2) + Val(sArr(i, cArr(m, j)))
                    End If
                  Else
                    If i = 3 Or tmp < fDay Then
                      Res(j, 1) = Res(j, 1) - Val(sArr(i, cArr(m, j)))
                    ElseIf tmp < eDay Then
                      Res(j, 3) = Res(j, 3) + Val(sArr(i, cArr(m, j)))
                    End If
                  End If
                Next m
              Next j
            End If
          Else
            If TypeName(sArr(i, 1)) = "String" Then k = k + 1
          End If
          
          If TypeName(sArr(i, 1)) = "String" Then
            For j = 1 To 3
              For m = 1 To cArr(10, j)
                Res2(j, k + 1) = Res2(j, k + 1) + Val(sArr(i, cArr(m, j)))
              Next m
            Next j
          End If
        End If
      Next i

 

[NguyenthiH]

Cám ơn anh Hiếu nhiệu!