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

[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!