Cần Giúp Đỡ Về Lấy Giá Tiền Nhập Xuất Kho

[ketoan100]

Lúc trước em có nhờ GPE giúp đỡ em viết code nầy.
Nay thêm một chút về lấy giá tiền xuất nhập kho mà em không biết phải sửa làm sao hết.
Nhờ anh chị nào biết thì giúp đỡ em với.
Em xin chân thành cảm ơn các anh chị đã quan tâm bài viết của em!!!!

 

[ketoan100]

Không có bụt nào giúp mình được sao ta !!!!!!!!!!, huhuhu
File đã sửa lại cho đúng thành tiền để mọi người hiểu đúng hơn.
Xin cảm ơn.

 

[HieuCD]

Lúc trước em có nhờ GPE giúp đỡ em viết code nầy.
Nay thêm một chút về lấy giá tiền xuất nhập kho mà em không biết phải sửa làm sao hết.
Nhờ anh chị nào biết thì giúp đỡ em với.
Em xin chân thành cảm ơn các anh chị đã quan tâm bài viết của em!!!!

Chỉnh tí tẹo

dArr(K, 4) = sArr(i, 14) + sArr(i, 17) ' gia nhap (muon lay them gia xuat)

 

[le_vis]

Lúc trước em có nhờ GPE giúp đỡ em viết code nầy.
Nay thêm một chút về lấy giá tiền xuất nhập kho mà em không biết phải sửa làm sao hết.
Nhờ anh chị nào biết thì giúp đỡ em với.
Em xin chân thành cảm ơn các anh chị đã quan tâm bài viết của em!!!!

Tháo nào mãi không có ai giúp ! Thực tình nhìn cách cập nhật dữ liệu như Sheet Bangkenhapkho thì không hiểu sao cho đúng 1 x 1.575.000 = 4.200.000đ được (Phần xuất dòng thứ tự 12); nhưng đoán đại chắc bạn đó ..... thử thêm đoạn này : + sArr(i, 17) vào sau đoạn code này xem sao : dArr(K, 4) = sArr(i, 14)
THÀNH dArr(K, 4) = sArr(i, 14) + sArr(i, 17)

 

[ketoan100]

Cảm ơn bạn, để thử xem sao.

 

[ketoan100]

Cho mình hỏi thêm cái nầy với, nếu như cột dArr(K, 4) mình đổi lại thành cột tài khoản đối ứng ứng thì phải làm như thế nào vậy.
Xin cảm ơn bạn !

 

[HieuCD]

Dựa vào kiến thức kế toán cơ bản
...
sArr = Sheets("BANGKENHAPKHO").Range("D6", Sheets("BANGKENHAPKHO").Range("D10000").End(xlUp)).Resize(, 27).Value
...
If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26)
...

 

[ketoan100]

Mình không biết phải để dòng này If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26) ở đâu thì cho nó chạy được nữa
Mình đã thử thì nó cứ bị lỗi.
cảm ơn bạn !!!!

 

[HieuCD]

Mình không biết phải để dòng này If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26) ở đâu thì cho nó chạy được nữa
Mình đã thử thì nó cứ bị lỗi.
cảm ơn bạn !!!!

sArr = Sheets("BANGKENHAPKHO").Range("D6", Sheets("BANGKENHAPKHO").Range("D10000").End(xlUp)).Resize(, 27).Value

If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26) '********

'---------------Nhap lai ten Sheet NHAP XUAT
sArr = Sheets("BANGKENHAPKHO").Range("D6", Sheets("BANGKENHAPKHO").Range("D10000").End(xlUp)).Resize(, 27).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 11)
With Sheets("SOCHITIET_KHO") '---------------Nhap lai ten Sheet
    MaHang = .Range("O1").Value
    fDate = .Range("F6").Value
    eDate = .Range("H6").Value
    SL = .Range("K15").Value
    Tien = .Range("L15").Value
    For i = 1 To R
        If sArr(i, 7) = MaHang Then
            If sArr(i, 6) >= fDate Then
                If sArr(i, 6) <= eDate Then
                    K = K + 1
                        dArr(K, 1) = sArr(i, 1)
                        dArr(K, 2) = sArr(i, 6)
                        dArr(K, 3) = sArr(i, 12)
                        If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26) '********
                        'dArr(K, 4) = sArr(i, 14) + sArr(i, 17) ' gia nhap (muon lay them gia xuat)
                        dArr(K, 5) = sArr(i, 13)
                        dArr(K, 6) = sArr(i, 15)
                        dArr(K, 7) = sArr(i, 16)
                        dArr(K, 8) = sArr(i, 18)
                        dArr(K, 9) = SL + dArr(i, 5) - dArr(i, 7)
                        dArr(K, 10) = Tien + dArr(i, 6) - dArr(i, 8)
                End If
            End If
        End If
    Next i

 

[ketoan100]

Đã cho chạy thử và đã chạy được rồi.
Cảm ơn bạn rất nhiều !!!!!

 

[ketoan100]

anh HieuCD và mọi người có thể giúp em làm ra tổng SL nhập và tổng SL xuất ở dòng cuối (số dư cuối kỳ) ngay đoạn nầy được không ạ?
K = K + 1
dArr(i, 3) = Sheet2.[E24]
dArr(i, 5) = 0 '---------> thay thành số tổng
dArr(i, 6) = 0 ----------> thay thành số tổng
dArr(i, 7) = 0 '---------->thay thành số tổng
dArr(i, 8) = 0 '----------->thay thành số tổng
.Range("C16:M100").ClearContents
.Range("C16:M16").Resize(K) = dArr
End With
Xin chân thành cảm ơn rất nhiều.

 

[HieuCD]

anh HieuCD và mọi người có thể giúp em làm ra tổng SL nhập và tổng SL xuất ở dòng cuối (số dư cuối kỳ) ngay đoạn nầy được không ạ?
K = K + 1
dArr(i, 3) = Sheet2.[E24]
dArr(i, 5) = 0 '---------> thay thành số tổng
dArr(i, 6) = 0 ----------> thay thành số tổng
dArr(i, 7) = 0 '---------->thay thành số tổng
dArr(i, 8) = 0 '----------->thay thành số tổng
.Range("C16:M100").ClearContents
.Range("C16:M16").Resize(K) = dArr
End With
Xin chân thành cảm ơn rất nhiều.

With Sheets("SOCHITIET_KHO") '---------------Nhap lai ten Sheet
    MaHang = .Range("O1").Value
    fDate = .Range("F6").Value
    eDate = .Range("H6").Value
    SL = .Range("K15").Value
    Tien = .Range("L15").Value
    For i = 1 To R
        If sArr(i, 7) = MaHang Then
            If sArr(i, 6) >= fDate Then
                If sArr(i, 6) <= eDate Then
                    K = K + 1
                    dArr(K, 1) = sArr(i, 1)
                    dArr(K, 2) = sArr(i, 6)
                    dArr(K, 3) = sArr(i, 12)
                    If sArr(i, 26) = "152" Then dArr(K, 4) = sArr(i, 27) Else dArr(K, 4) = sArr(i, 26) 'TK doi ung
                    'dArr(K, 4) = sArr(i, 14) + sArr(i, 17) ' gia nhap (muon lay them gia xuat)
                    dArr(K, 5) = sArr(i, 13)
                    dArr(K, 6) = sArr(i, 15)
                    dArr(K, 7) = sArr(i, 16)
                    dArr(K, 8) = sArr(i, 18)
                    SL = SL + dArr(K, 5) - dArr(K, 7)
                    dArr(K, 9) = SL
                    Tien = Tien + dArr(K, 6) - dArr(K, 8)
                    dArr(K, 10) = Tien
                End If
            End If
        End If
    Next i
    K = K + 1
    dArr(K, 3) = Sheet2.[E24]
    dArr(K, 5) = 0
    dArr(K, 6) = 0
    dArr(K, 7) = 0
    dArr(K, 8) = 0
    .Range("C16:M100").ClearContents
    .Range("C16:M16").Resize(K) = dArr
End With

 

[Ba Tê]

anh HieuCD và mọi người có thể giúp em làm ra tổng SL nhập và tổng SL xuất ở dòng cuối (số dư cuối kỳ) ngay đoạn nầy được không ạ?
K = K + 1
dArr(i, 3) = Sheet2.[E24]
dArr(i, 5) = 0 '---------> thay thành số tổng
dArr(i, 6) = 0 ----------> thay thành số tổng
dArr(i, 7) = 0 '---------->thay thành số tổng
dArr(i, 8) = 0 '----------->thay thành số tổng
.Range("C16:M100").ClearContents
.Range("C16:M16").Resize(K) = dArr
End With
Xin chân thành cảm ơn rất nhiều.

Bạn muốn thế này phải không?

 

[ketoan100]

[QUOTE

Em đã copy code bỏ vô rồi nhưng nó vẫn cứ như cũ. hihi
Nếu anh cò rãnh thì nhìn vô xem giúp em với.
Xin cảm ơn anh nhiều!!!!!!

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

dạ ! chạy

Bạn muốn thế này phải không?

Dạ! chạy ngon rồi đó anh.
Cảm ơn anh rất nhiều ạ!!!!