Đưa tiêu đề theo số lượng chỉ định (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

kokoro mitsubishi

Thành viên chính thức
Tham gia
2/12/13
Bài viết
55
Được thích
3
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
 

File đính kèm

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é

PHP:
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
 

File đính kèm

Upvote 0
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é

PHP:
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 ạ
 
Upvote 0
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.
 

File đính kèm

Upvote 0
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
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom