Nhờ các bác lập công thức trong file excel bán hàng (1 người xem)

[vanhung2506]

Em có 1 file bán hàng, hàng ngày em nhập liệu vào Sheet "Nhaplieu", căn cứ vào từng khu vực và cho ra kết quả chi tiết của từng khu vực, mỗi khu vực là 1 Sheet, nhờ các bác chỉ giúp nhé!

 

[ec ec]

chép code sau vào sheet Total Revenue

Private Sub Worksheet_Change(ByVal r As Range)
On Error Resume Next
With ActiveSheet
    Set s = Intersect(.UsedRange, [A:J])
    Set kv = [L:O]
End With
If r.Column = "J" Then s.Rows(r.Row - s.Row + 1).Copy _
Sheets("KV_" & (kv.Find(r(1, -4), lookat:=xlWhole).Column - kv.Column + 1)) _
.Cells.Find("*T?NG L?Y H?NG*").End(xlUp).Offset(1)
End Sub

thay đổi giá trị cột J (hoặc double-click) thì dòng dữ liệu sẽ được điền vào sheet thích hợp

 

[vanhung2506]

Cái này có dùng công thức được không bác nhỉ, cái VBA thì em lại không biết làm

 

[ndu96081631]

chép code sau vào sheet Total Revenue

Private Sub Worksheet_Change(ByVal r As Range)
On Error Resume Next
With ActiveSheet
    Set s = Intersect(.UsedRange, [A:J])
    Set kv = [L:O]
End With
[COLOR=#ff0000][B]If r.Column = "J" [/B][/COLOR]Then s.Rows(r.Row - s.Row + 1).Copy _
Sheets("KV_" & (kv.Find(r(1, -4), lookat:=xlWhole).Column - kv.Column + 1)) _
.Cells.Find("*T?NG L?Y H?NG*").End(xlUp).Offset(1)
End Sub

thay đổi giá trị cột J (hoặc double-click) thì dòng dữ liệu sẽ được điền vào sheet thích hợp

Chỗ màu đỏ là bạn tự "chế" ra à?
Code dù ngắn hay dài, dù đơn giản hay phức tạp... thiết nghĩ cũng nên test trước khi đưa lên

 

[le_vis]

Vì bạn nói không biết gì về VBA nên thử làm theo cách củ chuối vậy. Đã lập công thức tại Sheet: Total Revenue và Sheet : KV_1, Nếu đúng ý bạn thì triển khai tiếp nhé