[Nhờ giúp đỡ] bảng tính tiền

Chia sẻ bởi:hands

★★★★★

‹ Nhờ giúp em công thức số phiếu... [Xin giúp đỡ] Tìm thời gian trùng... ›

Quảng cáo

Xin cám ơn!

Nhờ mọi người giúp đỡ bảng tính tiền lấy sheet "TinNhan" rồi điền vào các cột tương ứng theo mã hàng và số lượng
File e có đính kèm, mong được giúp đỡ chứ cái này điền bằng tay e hay bị nhằm
Xin cám ơn!

Lần sau thì viết rõ ra "e" là gì nhé. Đã đi hỏi bài cũng lười biếng viết tắt. Bạn không nghĩ người ta phải bỏ công ra gõ bài trả lời bạn à?

Dữ liệu gì nhìn phát bịnh.

Bài này làm thủ công cũng được nhưng chắc với khả năng của bạn thì cũng dễ nhầm.

Sub t()
' dont ask me why I use so much magic numbers
' this crap doesnt deserve clean code
' Ii wrote this, but i dont thinj the table is a good design.

Dim loai() As String, soluong As Long
Dim bang(1 To 20, 1 To 7)
Dim tenSP(), vtSP(), cotSP ' ten san pham (viet tat), vi tri tren bang, vi tri theo cot
Dim dong As Long, sp ' dong trong tin nhan, san pham trong dong
tenSP = Array("cc", "ps", "pc", "tg", "tgn", "tgb", "sg", "sgd", "sgs")
vtSP = Array(0, 1, 2, 3, 4, 4, 5, 6, 6, 7)
dlDong = Split(Range("'tinnhan'!c5").Value, Chr(10)) ' du lieu cua tung dong trong tin nhan
For dong = LBound(dlDong) To UBound(dlDong) ' duyet tung dong
For Each sp In Split(dlDong(dong), " ") ' duyet tung san pham trong dong
soluong = Val(sp)
sp = Replace(sp, CStr(soluong), "")
If soluong >= 100 And sp = tenSP(1) Then sp = tenSP(2) ' chuyen ps sang psc
cotSP = vtSP(Application.Match(sp, tenSP, 0))
If Not IsError(cotSP) Then
bang(dong - LBound(dlDong) + 1, cotSP) = soluong ' ghi vao bang
End If
Next sp
Next dong
Range("c4:i23").Value = bang
End Sub