Gửi bởi
mjnlove
Xin chào các ACE gpe.
E mới học exel. E có 1 thắc mắc nho nhỏ như thế này, mong các ACE chỉ giúp.
Tình hình là e có 1 tờ khai thuế GTGT theo từng năm, ở đây là năm 2012
Bao gồm các chỉ tiêu ký hiệu, số hóa đơn, ngày tháng, tên công ty, mặt hàng, doanh số bán chưa thuế, VAT..
E muốn lọc ra tất cả những hóa đơn có giá trị từ 20tr (doanh số bán chưa thuế + VAT = từ 20tr trở lên) để tính hóa đơn đủ điều kiện khấu trừ, tính luôn cả những hóa đơn mua nhiều lần trong cùng 1 ngày, với điều kiện của cùng 1 công ty thì phải dùng hàm hay công thức gì?
Mong các ACE chỉ giúp cho e 1 công thức chung, để e có thể áp dụng cho những file sau này nữa ạ. E xin chân thành cám ơn.
Bài này mà làm bằng Hàm và công thức Excel chắc "oải luôn".
Thử VBA xem:
-------------
Oái!
Gửi bởi
Hong.Van
Cái này chắc fải làm =VBA, chứ cthức sợ hơi bị ẹ
Bạn tham khảo
Ðề tài: SHARE: File báo cáo thuế hàng Tháng - Quý để ADD vào chương trình HTKK 3.2.1 trở lên
Trong file của bạn có 1 Sub TrichLoc giống 99% với Sub trong File tôi vừa gởi trong bài này????????????
Mã nguồn PHP:
' Trich loc HD tren 20 trieu
Sub TrichLoc()
Dim rng(), Arr(), i As Long, K As Long, Dic As Object, Tem As Variant, Ma As String
Set Dic = CreateObject("Scripting.Dictionary")
rng = Range([B18], [B65000].End(xlUp)).Resize(, 14).Value
ReDim Arr(1 To UBound(rng, 1), 1 To 5) ' sua 4 thanh 5
For i = 1 To UBound(rng, 1)
Tem = rng(i, 1)
If Tem <> "" Then
If Tem <> 2 And Tem <> 5 Then
Ma = rng(i, 6) & rng(i, 8)
If Not Dic.exists(Ma) Then
Dic.Add Ma, rng(i, 14)
Else
Dic.Item(Ma) = Dic.Item(Ma) + rng(i, 14)
End If
End If
End If
Next i
For i = 1 To UBound(rng, 1)
If rng(i, 1) <> 2 And rng(i, 1) <> 5 Then
Ma = rng(i, 6) & rng(i, 8)
If Dic.Item(Ma) >= 20000000 Then
K = K + 1
Arr(K, 1) = rng(i, 5): Arr(K, 2) = rng(i, 6)
Arr(K, 3) = rng(i, 7): Arr(K, 4) = rng(i, 8): Arr(K, 5) = rng(i, 14)
End If
End If
Next i
[S18:W10000].ClearContents
If K Then [S18].Resize(K, 5).Value = Arr
Set Dic = Nothing
End Sub
Trả lời kèm Trích dẫn
