Tính giá vốn bằng VBA (Dictionary) (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
D

dream3616

Thành viên chính thức
Tham gia
28/8/08
Bài viết
81
Được thích
46
Em có tham khảo một số bài viết trên GPE nhưng chưa tìm được giải pháp phù hợp để tính giá vốn cho file của mình. Em gửi kèm file. Bài toán này không biết dùng Dic có giải quyết được không Nhờ mọi người giúp đỡ. Trân trọng cảm ơn
 

File đính kèm

Sắp xếp theo thời gian sắp xếp theo bầu chọn
Công thức tính giá vốn:
Mã: 
=IF(H10=0,0,((SUMIF(Ma!$A$7:$A$19,NX!C10,Ma!$D$7:$D$19)+SUMIF($C$9:C9,C10,$G$9:G9)-SUMIF($C$9:C9,C10,$J$9:J9))/(SUMIF(Ma!$A$7:$A$19,NX!C10,Ma!$C$7:$C$19)+SUMIF($C$9:C9,C10,$F$9:F9)-SUMIF($C$9:C9,C10,$H$9:H9))))
Số lượng tồn cuối kỳ:
Mã: 
=SUMIF(Ma!$A$7:$A$19,NX!C10,Ma!$C$7:$C$19)+SUMIF($C$10:C10,C10,$F$10:F10)-SUMIF($C$10:C10,C10,$H$10:H10)
Tồn TT cuối kỳ:
Mã: 
=SUMIF(Ma!$A$7:$A$19,NX!C10,Ma!$D$7:$D$19)+SUMIF($C$10:C10,C10,$G$10:G10)-SUMIF($C$10:C10,C10,$J$10:J10)
Em gửi lại file đính kèm với công thức đang làm bằng e xcel. Nhờ anh chị và các bạn giúp đỡ chuyển công thức sau bằng VBA
 

File đính kèm

Upvote 0
Ở bài 2, mình đã minh họa bằng công thức và diễn giải lại. Mình nghĩ có thể dùng sumif tính được, chắc cũng có thể chuyển nó bằng VBA nhưng hiện tại chưa nghĩ ra được. Hơn nữa ko phải ai cũng học chuyên ngành kế toán nên ko phải hiểu ngay được vấn đề. Số lương hiện tại gần 40.000 dòng nên chạy hơi lâu. Có vấn đề gì không hiểu về cách tính, các bạn cứ phản hồi mình sẽ giải thích và diễn giải lại. Trân trọng cảm ơn.
 
Upvote 0
KHông biết có bạn nào có hướng làm theo yêu cầu của bài 2 không ah.
 
Upvote 0
Mã: 
Public Sub Gia_Von()
Dim Dic As Object, sArr(), dArr(), I As Long, J As Long, K As Long, Tem As String, N
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("Ma")
    sArr = .Range(.[A7], .[A7].End(xlDown)).Resize(, 4).Value
End With
ReDim dArr(1 To UBound(sArr, 1), 1 To 9)
For I = 1 To UBound(sArr, 1)
    Tem = sArr(I, 1)
    If Not Dic.Exists(Tem) Then
        K = K + 1
        Dic.Add Tem, K
        dArr(K, 1) = sArr(I, 3) ' So luong ton dau ky
        dArr(K, 2) = sArr(I, 4) ' Thanh tien ton dau ky
        
    End If
Next I
With Sheets("NX")
    sArr = .Range(.[A9], .[A9].End(xlDown)).Resize(, 15).Value
End With
For I = 1 To UBound(sArr, 1)
    Tem = sArr(I, 3)
    If Dic.Exists(Tem) Then
        N = Dic.Item(Tem)
            dArr(N, 1) = dArr(N, 1) + sArr(I, 5) - sArr(I, 7) ' Tong so luong cong don
            dArr(N, 2) = dArr(N, 2) + sArr(I, 6) - sArr(I, 9) ' Tong thanh tien cong don
            dArr(N, 3) = dArr(N, 2) + sArr(I, 6) - sArr(I, 9) / dArr(N, 1) + sArr(I, 5) - sArr(I, 7) ' Gia von
      
    End If
Next I
Set Dic = Nothing
End Sub
Đây là ý tưởng của em, nhưng chưa biết thể hiện làm sao cho đúng
 
Upvote 0
Đây là ý tưởng của em, nhưng chưa biết thể hiện làm sao cho đúng
Nhấp chuột vào đây để mở rộng...

Mình không hiểu về KT nhưng làm thấy kết quả giông giống nhau nên gửi cho bạn tham khảo
PHP: 
Sub update()
Dim d As Object, d2 As Object
Dim hangton
Dim i, j
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
hangton = Sheet2.Range("A7:D" & Sheet2.Range("D" & Sheet2.Rows.Count).End(3).Row)
Application.ScreenUpdating = False
        For i = 1 To UBound(hangton)
            If Not d.exists(hangton(i, 1)) Then
                d.Add hangton(i, 1), hangton(i, 3)
                d2.Add hangton(i, 1), hangton(i, 4)
            End If
        Next
     With Sheet1
        .Range("I10:L200").ClearContents
        For j = 10 To 200
                If .Cells(j, 3) <> "" Then
                   If d.exists(.Cells(j, 3).Value) Then
                     If .Cells(j, 6) <> "" Then
                          d.Item(.Cells(j, 3).Value) = d.Item(.Cells(j, 3).Value) + .Cells(j, 6).Value
                          d2.Item(.Cells(j, 3).Value) = d2.Item(.Cells(j, 3).Value) + .Cells(j, 7).Value
                          .Cells(j, 11) = d.Item(.Cells(j, 3).Value)
                          .Cells(j, 12) = d2.Item(.Cells(j, 3).Value)
                         Else
                          .Cells(j, 9) = d2.Item(.Cells(j, 3).Value) / d.Item(.Cells(j, 3).Value)
                          .Cells(j, 10) = .Cells(j, 8) * .Cells(j, 9)
                           d.Item(.Cells(j, 3).Value) = d.Item(.Cells(j, 3).Value) - .Cells(j, 8).Value
                          d2.Item(.Cells(j, 3).Value) = d2.Item(.Cells(j, 3).Value) - .Cells(j, 10).Value
                          .Cells(j, 11) = d.Item(.Cells(j, 3).Value)
                          .Cells(j, 12) = d2.Item(.Cells(j, 3).Value)
                          
                     End If
                   End If
                End If
         Next
     End With
 Application.ScreenUpdating = True
End Sub
 
Upvote 0
thanh_tks đã viết:
Mình không hiểu về KT nhưng làm thấy kết quả giông giống nhau nên gửi cho bạn tham khảo
PHP: 
Sub update()
Dim d As Object, d2 As Object
Dim hangton
Dim i, j
Set d = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
hangton = Sheet2.Range("A7:D" & Sheet2.Range("D" & Sheet2.Rows.Count).End(3).Row)
Application.ScreenUpdating = False
        For i = 1 To UBound(hangton)
            If Not d.exists(hangton(i, 1)) Then
                d.Add hangton(i, 1), hangton(i, 3)
                d2.Add hangton(i, 1), hangton(i, 4)
            End If
        Next
     With Sheet1
        .Range("I10:L200").ClearContents
        For j = 10 To 200
                If .Cells(j, 3) <> "" Then
                   If d.exists(.Cells(j, 3).Value) Then
                     If .Cells(j, 6) <> "" Then
                          d.Item(.Cells(j, 3).Value) = d.Item(.Cells(j, 3).Value) + .Cells(j, 6).Value
                          d2.Item(.Cells(j, 3).Value) = d2.Item(.Cells(j, 3).Value) + .Cells(j, 7).Value
                          .Cells(j, 11) = d.Item(.Cells(j, 3).Value)
                          .Cells(j, 12) = d2.Item(.Cells(j, 3).Value)
                         Else
                          .Cells(j, 9) = d2.Item(.Cells(j, 3).Value) / d.Item(.Cells(j, 3).Value)
                          .Cells(j, 10) = .Cells(j, 8) * .Cells(j, 9)
                           d.Item(.Cells(j, 3).Value) = d.Item(.Cells(j, 3).Value) - .Cells(j, 8).Value
                          d2.Item(.Cells(j, 3).Value) = d2.Item(.Cells(j, 3).Value) - .Cells(j, 10).Value
                          .Cells(j, 11) = d.Item(.Cells(j, 3).Value)
                          .Cells(j, 12) = d2.Item(.Cells(j, 3).Value)
                          
                     End If
                   End If
                End If
         Next
     End With
 Application.ScreenUpdating = True
End Sub
Nhấp chuột vào đây để mở rộng...

Trước hết, cảm ơn bạn nhiều nhé bài viết và phản hồi đầu tiên.
Mình sẽ test thử
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

B
Sau 1 tháng Mã Lại reset về 1 trở lên (5 người xem)
Trả lời
14
Đọc
149
HieuCD
H
H
  • Question Question
Xin giúp đỡ về tạo hàm excel với C# và excel-dna (5 người xem)
Trả lời
0
Đọc
23
hdcv.excel
H
H
Đánh số thứ thự phiếu thu chi (1 người xem)
Trả lời
12
Đọc
185
HangktGTN
H
N
  • Question Question
Cho em hỏi về mail merge bằng vba
Trả lời
5
Đọc
120
Hoàng Tuấn 868
H
T
Khóa cột cập nhật dữ liệu
Trả lời
0
Đọc
34
tnkhanhvy
T
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
3 4 5
Trả lời
411
Đọc
50K
ongke0711
ongke0711
H
Tìm kiếm thông tin chi tiết trên sheet tổng hợp (2 người xem)
Trả lời
1
Đọc
56
LOGANWover
L
T
Xin hỏi về bảng lương (1 người xem)
Trả lời
0
Đọc
61
tuandovn
T
Gà Công Nghệ
Tô màu họ và tên bị trùng từ 2 sheet khác nhau
Trả lời
6
Đọc
120
Gà Công Nghệ
Gà Công Nghệ
A
  • Question Question
Giải thích giúp mình code giải phóng bộ nhớ từ biến (1 người xem)
Trả lời
20
Đọc
9K
nguyendang95
N
Nguyenkhang2404
giúp đỡ lọc dữ liệu nâng cao (1 người xem)
Trả lời
22
Đọc
736
Phan Thế Hiệp
Phan Thế Hiệp
B
Dùng button trên forrm để gọi bàn phím ảo win 10(OSK)
Trả lời
5
Đọc
125
huhumalu
H
P
VẼ ĐƯỜNG TẦN SUẤT (DTS) TRÊN EXCEL
Trả lời
8
Đọc
201
ptm0412
ptm0412
P
GOAL SEEK NÂNG CAO TRONG EXCEL
    • Thích
Trả lời
4
Đọc
211
Hoale85
H
B
Gán Phím Tắt Gọi Form
Trả lời
7
Đọc
116
HeSanbi
HeSanbi
K
Điền giá trị ô thay vì địa chỉ ô
Trả lời
2
Đọc
130
LOGANWover
L
G
Chia sẻ các bạn File vẽ kèo Zamil từ excel
    • Thích
    • Yêu thích
Trả lời
11
Đọc
919
trqt82
T
T
Xin trợ giúp cách lọc trùng về khoảng thời gian
Trả lời
10
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
L
Xin hàm trích xuất chuỗi trong ô
Trả lời
12
Đọc
217
LINH7979
L
H
[Xin giúp đỡ] Tìm thời gian trùng ở nhiều khoảng thời gian khác nhau.
Trả lời
14
Đọc
2K
Phan Thế Hiệp
Phan Thế Hiệp
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom