Tự động điền công thức tương ứng với mã nguyên liệu (1 người xem)
- Thread starter namdoi
- Ngày gửi
Người dùng đang xem chủ đề này
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,554
- Được thích
- 3,604
- Donate (Momo)
- Giới tính
- Nam
Đến bạn chẳng biết nó quy luật thế nào thì sao viết công thức đây.Ít ra cũng phải giải thích chứ.
Ý mình là mỗi lại nguyên liệu sẽ chỉ có 1 công thức tính riêng cho nó. khi mình lặp lại mã nguyên liệu đó nó sẽ tự động điền công thức tương ứng ở 2 cột định lượng.
lambaonguyen
Thành viên mới
- Tham gia
- 7/12/10
- Bài viết
- 20
- Được thích
- 5
Theo ý kiến của mình thì bạn phải tự phân loại theo mã hàng và công thức trước, ví dụ có 1000 mã NL nhưng chỉ áp dụng 5 công thức thì được. Chứ 1000 mã NL ứng với 1000 công thức khác nhau hoàn toàn thì cứ mỗi mã mới lại có Công thức mới. Không khả thi cho việc sử dụng excel hay cả VBA đâu bạn.
Trong trường hợp bạn 1000 mã NL và 5 Công thức thì. sẽ tạo thêm cột để phân loại mã NL liệu dạng sử dụng công thức nào. Sau đó mới tính tới việc sử dụng VBA hoặc Công thức IF.
Trong trường hợp bạn 1000 mã NL và 5 Công thức thì. sẽ tạo thêm cột để phân loại mã NL liệu dạng sử dụng công thức nào. Sau đó mới tính tới việc sử dụng VBA hoặc Công thức IF.
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,554
- Được thích
- 3,604
- Donate (Momo)
- Giới tính
- Nam
Vậy bạn làm cái bảng chia tỷ lệ cho mã đó.Ứng với giá trị nào rồi dùng VLookup sang là được.
Dùng VBA cho sự kiện
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sRow As Long
Dim DonVi As String, TenNVL As String, Rng As Range
On Error Resume Next
Set sRng = Intersect(Range("O5:O600000"), Target)
If Not sRng Is Nothing Then
sRow = sRng.Rows.Count
For i = 1 To sRow
Set Rng = sRng(i, 1)
DonVi = Rng.Value
If UCase(DonVi) Like "CHI?C" Then
Rng.Offset(, 1) = 1
ElseIf UCase(DonVi) Like "KG" Then
TenNVL = Rng.Offset(, -1).Value
TenNVL = Mid(TenNVL, InStr(1, TenNVL, "~") + 1, Len(TenNVL)) & " "
Rng.Offset(, 1).FormulaR1C1 = "=1/" & CLng(Mid(TenNVL, 1, InStr(1, TenNVL, " ") - 1))
ElseIf UCase(DonVi) Like "M" Then
Rng.Offset(, 1).FormulaR1C1 = "=RC[-7]/1000"
ElseIf UCase(DonVi) Like "M2" Then
If Rng.Offset(, -4).Value = 0 Then
Rng.Offset(, 1).FormulaR1C1 = "=(RC[-8]/1000*RC[-7]/1000)"
Else
Rng.Offset(, 1).FormulaR1C1 = "=(RC[-8]/1000*RC[-7]/1000)/RC[-5]"
End If
Else
Rng.Offset(, 1) = Empty
End If
Next i
Else
Set sRng = Intersect(Range("R5:R600000"), Target)
If Not sRng Is Nothing Then
sRow = sRng.Rows.Count
For i = 1 To sRow
Set Rng = sRng(i, 1)
DonVi = Rng.Value
If UCase(DonVi) Like "CHI?C" Then
Rng.Offset(, 1).FormulaR1C1 = "=1*RC[-15]"
ElseIf UCase(DonVi) Like "CU?N" Then
Rng.Offset(, 1).FormulaR1C1 = "=RC[-15]/((INT(RC[1]/RC[-11])*INT(RC[2]/RC[-10])))"
ElseIf UCase(DonVi) Like "KG" Then
TenNVL = Rng.Offset(, -4).Value
TenNVL = Mid(TenNVL, InStr(1, TenNVL, "~") + 1, Len(TenNVL)) & " "
Rng.Offset(, 1).FormulaR1C1 = "=(1/" & CLng(Mid(TenNVL, 1, InStr(1, TenNVL, " ") - 1)) & ")*RC[-15]"
ElseIf UCase(DonVi) Like "M" Then
Rng.Offset(, 1).FormulaR1C1 = "=((RC[-15]/(INT(RC[1]/RC[-11])))*RC[-10]/1000)"
ElseIf UCase(DonVi) Like "T?M" Then
Rng.Offset(, 1).FormulaR1C1 = "=RC[-15]/RC[-8]/((INT(RC[1]/RC[-11])*INT(RC[2]/RC[-10])))"
ElseIf UCase(DonVi) Like "THANH" Then
Rng.Offset(, 1).FormulaR1C1 = "=RC[-15]/INT(RC[2]/RC[-10])"
Else
Rng.Offset(, 1) = Empty
End If
Next i
End If
End If
End SubBác HieuCD có thể giúp em với mã nguyên liệu mà em đánh dấu đỏ? đơn vị KG chia nhiều trường hợp thì làm thế nào để áp dụng được ạ!
File đính kèm
Bạn nhập kết quả mong muốn mới biết cách xử lý
Ơ! em quên mất. bác xem giúp em với! Thank bác!
Bác Hieu CD xem giùm em với ạ.hihi!
Tự nhiên quên, để mình xem lại, có thể ngày mai sẽ làm cho bạn
Các giá trị không tìm được mối liên hệ nên không viết code được
Vậy có viết theo kiể thêm ký hiệu để nhận dạng hoặc cái/kg. Kg/m2 không bác?
Cách tiếp cận theo đơn vị không ổn, cần xây dựng cách tính trong bảng mã NVL và dò theo bảng nầy
