[Xin giúp] Cách copy công thức từ bảng tham chiếu vào một ô (3 người xem)

[Lá chanh]

Em hôm nay gặp vấn đề mà chưa tìm được cách giải quyết, mong được sự giúp đỡ của các bác trong diễn đàn ạ. Vấn đề của Em như sau:
1. Em có một bảng chứa công thức ở sheet " Công thức". Bảng này sẽ có công thức tính toán giá trị khấu trừ của từng mã phân loại ( có rất nhiều mã khác nhau)
2. Một bảng dữ liệu, bảng này sẽ được cập nhật mới thường xuyên.
Em cần khi nhập mã phân loại ở bảng dữ liệu thì lúc đó sẽ tính toán theo công thức tương ứng ở sheet công thức a.

 

[bebo021999]

Nếu có ít mã có thể dùng IF hay IFS
Nếu nhiều mã thì dùng hàm UDF (hàm tự tạo, dùng VBA)
Bạn có muốn dùng VBA không?

 

[Lá chanh]

Nếu có ít mã có thể dùng IF hay IFS
Nếu nhiều mã thì dùng hàm UDF (hàm tự tạo, dùng VBA)
Bạn có muốn dùng VBA không?

Vấn đề là nó nhiều đấy bác. nên dùng if không được. Bác làm giúp Em với, thêm trường hợp em muốn bổ sung thêm vào bảng công thức thì làm thế nào nhé Bác

 

[HUONGHCKT]

Em hôm nay gặp vấn đề mà chưa tìm được cách giải quyết, mong được sự giúp đỡ của các bác trong diễn đàn ạ. Vấn đề của Em như sau:
1. Em có một bảng chứa công thức ở sheet " Công thức". Bảng này sẽ có công thức tính toán giá trị khấu trừ của từng mã phân loại ( có rất nhiều mã khác nhau)
2. Một bảng dữ liệu, bảng này sẽ được cập nhật mới thường xuyên.
Em cần khi nhập mã phân loại ở bảng dữ liệu thì lúc đó sẽ tính toán theo công thức tương ứng ở sheet công thức a.
View attachment 307479

Trong khi chờ code xin hơn, hay tham khảo code file sau:
Thay đổi cột C/ Sheet2 để được kết quả.
Bạn có thể sửa Sub CopyHam( Byval Rng as Range) đôi chút để chuyển nó thành hàm UDF.
Hy vọng đúng ý.

 

[bebo021999]

Code này sẽ chạy mỗi khi các ô tại cột C sheet dữ liệu được chọn, sẽ gán công thức vào cột I
Sheet "Công thức" có dấu Tiếng Việt tôi sửa thành không dấu Congthuc để dễ dàng viết code
Cách dùng: Click chuột phải vào tên sheet "Dữ liệu T3", Chọn "View Code", sau đó dán code này vào
Lưu file dạng .xlsm

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim f
If Target.Column = 3 And Target.Row > 3 Then ' Neu cot C tu dong 4 tro di ma thay doi (ma phan loai duoc chon)
    With Sheets("Congthuc")
        Set f = .Columns(3).Find(Target) ' Tim ma PL ben cot C (cot 3) sheet Congthuc
        If f Is Nothing Then Exit Sub ' Neu khong tim thay thi thoat ra ngoai
        Target.Offset(, 6).Value = f.Offset(, 6).Formula ' Neu tim thay thi gan cong thuc ben sheet congthuc qua sheet Du lieu
    End With
End If
End Sub