Đưa tiêu đề theo số lượng chỉ định

[kokoro mitsubishi]

Kình chào các anh chị em trong diễn đàn
em có 1 vần đề mong anh chị em giúp đỡ
Khi em đưa tên sản phẩm vào cột F , số lượng sản phẩm cần liệ kê trong cột G sẽ tự động đếm và điền vào cột A
trong đính kèm em đã đưa ví dụ
nhờ anh chị em giúp đỡ
xin cảm ơn

 

[TongDe]

Không biết công thức,
nên làm thử 2 nút,

 

[bebo021999]

Code này đặt trong worksheet module nhé
Chuột phải tên sheet/ chọn View Code, rồi dán code này vào.
Bây giờ thử thay đổi giá trị trong cột E và F thì kết quả bên cột A cũng thay đổi theo nhé

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, j&, k&, rng, res(1 To 100000, 1 To 1)
Dim ce As Range
If Intersect(Target, Columns("F:G")) Is Nothing Then Exit Sub
Range("A2:A100000").ClearContents
lr = Cells(Rows.Count, "F").End(xlUp).Row
rng = Range("F1:G" & lr).Value
For i = 1 To UBound(rng)
    If IsEmpty(rng(i, 1)) Or Not IsNumeric(rng(i, 2)) Or IsEmpty(rng(i, 2)) Or rng(i, 2) <= 0 Then
    Else
        For j = 1 To rng(i, 2)
            k = k + 1: res(k, 1) = rng(i, 1)
        Next
    End If
Next
Range("A2").Resize(k, 1).Value = res
End Sub

 

[kokoro mitsubishi]

Code này đặt trong worksheet module nhé
Chuột phải tên sheet/ chọn View Code, rồi dán code này vào.
Bây giờ thử thay đổi giá trị trong cột E và F thì kết quả bên cột A cũng thay đổi theo nhé

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lr&, i&, j&, k&, rng, res(1 To 100000, 1 To 1)
Dim ce As Range
If Intersect(Target, Columns("F:G")) Is Nothing Then Exit Sub
Range("A2:A100000").ClearContents
lr = Cells(Rows.Count, "F").End(xlUp).Row
rng = Range("F1:G" & lr).Value
For i = 1 To UBound(rng)
    If IsEmpty(rng(i, 1)) Or Not IsNumeric(rng(i, 2)) Or IsEmpty(rng(i, 2)) Or rng(i, 2) <= 0 Then
    Else
        For j = 1 To rng(i, 2)
            k = k + 1: res(k, 1) = rng(i, 1)
        Next
    End If
Next
Range("A2").Resize(k, 1).Value = res
End Sub

em xin cảm ơn chạy đúng theo ý tưởng của em rồi ạ

 

[HUONGHCKT]

Kình chào các anh chị em trong diễn đàn
em có 1 vần đề mong anh chị em giúp đỡ
Khi em đưa tên sản phẩm vào cột F , số lượng sản phẩm cần liệ kê trong cột G sẽ tự động đếm và điền vào cột A
trong đính kèm em đã đưa ví dụ
nhờ anh chị em giúp đỡ
xin cảm ơn

Góp vui thêm 1 code nữa: Code sẽ tránh không cho 1 tiêu đề (ở cột F) được nhập nhiều lần trùng nhau. nếu số mã HTK-??? ở cột A nhiều hơn số nhập vào thì xóa bớt, nếu ít hơn thì thêm vào.
Xem file.

 

[kokoro mitsubishi]

Góp vui thêm 1 code nữa: Code sẽ tránh không cho 1 tiêu đề (ở cột F) được nhập nhiều lần trùng nhau. nếu số mã HTK-??? ở cột A nhiều hơn số nhập vào thì xóa bớt, nếu ít hơn thì thêm vào.
Xem file.

Em cảm ơn ạ , em sẽ áp thực tế để xác nhận