Xin code hàm vlookup

[babygirl_8990]

em có file này nhờ anh chị viết dùm em code ở đơn giá và thành tiền để khi thêm sheet mới thì sẽ chạy code tự động tính ạ
e cảm ơn

 

[Cá ngừ F1]

Tôi làm như này không biết có đúng í của tác giả không.
Quả thật là tôi không biết cái ký tự φ ở trong VBA nó thế nào nên tôi tạm đổi thành Ø
Tôi làm thử cho sheet A1, bạn thử làm cho A2 nhé

Sub DonGia()
On Error Resume Next
Dim i&, k&, DonGia(), KQ(), Nguon(), Itm, Dic As Object
DonGia = Range(Sheets("Data").[B6], Sheets("Data").[B100].End(3)).Resize(, 3)
Nguon = Range(Sheets("A1").[C21], Sheets("A1").[G500].End(3))
ReDim KQ(1 To UBound(Nguon), 1 To 2)
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(DonGia)
    Dic(DonGia(i, 1)) = i
Next
For i = 1 To UBound(Nguon)
    Itm = Nguon(i, 1) & "Ø x " & Nguon(i, 2) & "T x " & Nguon(i, 4) & "L"
    KQ(i, 1) = DonGia(Dic.Item(Itm), 2)
    KQ(i, 2) = KQ(i, 1) * Nguon(i, 5)
Next
Sheets("A1").[L21].Resize(i - 1, 2) = KQ
Sheets("A1").Range("L" & i + 19) = Application.WorksheetFunction.Sum(Sheets("A1").Range("L21:L" & i + 21))
Sheets("A1").Range("M" & i + 19) = Application.WorksheetFunction.Sum(Sheets("A1").Range("M21:M" & i + 21))
End Sub

 

[befaint]

φ

Dim phi as String
phi = VBA.ChrW$(966)
'...
Itm = Nguon(i, 1) & phi & " x " ...

 

[Cá ngừ F1]

Dim phi as String
phi = VBA.ChrW$(966)
'...
Itm = Nguon(i, 1) & phi & " x " ...

Em cảm ơn anh nhé, e tìm mãi chả hiểu nó là cái mã gì.

 

[babygirl_8990]

Em cảm ơn anh nhé, tìm mãi chả hiểu nó là cái mã gì.

Em muốn đổi code này Nguon = Range(Sheets.[C21], Sheets("A1").[G500].End(3)) không chạy riêng A1 mà cho bất kỳ sheet mới đều chạy đc ạ VD: A2, A3 thì mình chỉ cần Run cho chạy là được

 

[befaint]

Em cảm ơn anh nhé, e tìm mãi chả hiểu nó là cái mã gì.

Excel 2013 trở lên có hàm Unicode()
Trong VBA thì dùng hàm AscW()

'A1 = φ
msgbox  AscW(Range("A1").value)

 

[Cá ngừ F1]

Theo gợi í của a @befaint , tôi gửi lại File.
Bạn thử làm cho sheet A2 xem sao.

 

[babygirl_8990]

Theo gợi í của a @befaint , tôi gửi lại File.
Bạn thử làm cho sheet A2 xem sao.

Code a làm ok lắm, em cảm ơn nhiều, nhưng em muốn đoạn code không sử dụng riêng cho sheet A1, mà em cần áp dụng cho tất cả các sheets mới thêm vào chỉ chỉ chạy đoạn code sẽ ra kết quả ạ. Vì mỗi tháng em thêm nhiều sheet khác chứ không cố định. Nhờ anh sửa giúp em, chứ em mọ mọ mấy ngày nay không sửa được hix

 

[Cá ngừ F1]

Code a làm ok lắm, em cảm ơn nhiều, nhưng em muốn đoạn code không sử dụng riêng cho sheet A1, mà em cần áp dụng cho tất cả các sheets mới thêm vào chỉ chỉ chạy đoạn code sẽ ra kết quả ạ. Vì mỗi tháng em thêm nhiều sheet khác chứ không cố định. Nhờ anh sửa giúp em, chứ em mọ mọ mấy ngày nay không sửa được hix

oái, cách dễ nhất, copy cái Sub đấy sang 1 sub mới, đổi những cái gì là A1 thành A2
Cần thì làm thêm 1 Sub TongHop nữa để chạy cả 2 cái Sub đấy. Ví dụ bạn đặt tên các sub là DonGia1, DonGia2... thì Sub tổng hợp như sau:

Sub TongHop()
    DonGia1
    DonGia2

End Sub