Lọc và tìm (1 người xem)

[nasalem]

Tôi có mã sản phẩm và DR có chưa mã sản phẩm đấy làm như nào để cho sản phẩm ở DR chạy sang bảng kê năm ngan ngắn trên cột bôi maud xanh ??

 

[Let'GâuGâu]

Tôi có mã sản phẩm và DR có chưa mã sản phẩm đấy làm như nào để cho sản phẩm ở DR chạy sang bảng kê năm ngan ngắn trên cột bôi maud xanh ??

làm bằng vba nha,
mấy cái dzụ phẩy phẩy này ko làm bằng cthuc được

 

[nasalem]

là như nào? mỗi sản phẩm phẩy 1 cái hay ko thể tìm đc cọt màu hồng?? cụ thể hơn đi huynh?? VBA là như nào?

 

[Let'GâuGâu]

là như nào? mỗi sản phẩm phẩy 1 cái hay ko thể tìm đc cọt màu hồng?? cụ thể hơn đi huynh?? VBA là như nào?

vba (visual basic for applications), tức là lập trình ứng dụng trên office (cụ thể ở dây là excel)
=======
thí dụ số HD 00047 có 5 mặt hàng==> ở cell H8 có 5 tên nối nhau như vậy "Biovital, Colosmax Q10, Colosmax Q10 Baby, Tỏi đen Sâm Ngọc Linh, HPMax"

hàm không làm được việc này

 

[nasalem]

hàm ko dùng dc nhưng dùng cái vba (visual basic for applications) là làm dc đúng ko ạ, huynh hướng dẫn cụ thể vs ạ

 

[Let'GâuGâu]

hàm ko dùng dc nhưng dùng cái vba (visual basic for applications) là làm dc đúng ko ạ, huynh hướng dẫn cụ thể vs ạ

nhớ enable macro khi mở file
nhấn vào buttom "ten san pham" ở sheet "bang ke hoa don"

Sub ten_san_pham()
Dim dr, bkhd, ma As Variant, d As Object, i, j, k As Long
[h27:h60000].ClearContents
ma = Sheet1.[a1].Resize(Sheet1.[a60000].End(3).Row, 2).Value
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(ma)
d.Add ma(i, 1), ma(i, 2)
Next

bkhd = [d27].Resize([d60000].End(3).Row - 26, 5).Value
dr = Sheet2.[b6].Resize(Sheet2.[b60000].End(3).Row - 5, 4).Value

For i = 1 To UBound(bkhd)
    For j = 1 To UBound(dr)
        If bkhd(i, 1) = dr(j, 1) Then
            If IsEmpty(bkhd(i, 5)) Then
                bkhd(i, 5) = d.Item(dr(j, 4))
            Else
                bkhd(i, 5) = bkhd(i, 5) & "," & d.Item(dr(j, 4))
            End If
        End If
    Next j
Next i


[d27].Resize([d60000].End(3).Row - 26, 5).Value = bkhd

End Sub

 

[nasalem]

mình chưa bao giờ dùng VBA nên ko biết cách sử dụng cái này như nào? chi tiết hơn nữa đi ạ??? mình đang dùng ecxel 2007

 

[Let'GâuGâu]

mình chưa bao giờ dùng VBA nên ko biết cách sử dụng cái này như nào? chi tiết hơn nữa đi ạ??? mình đang dùng ecxel 2007

tôi đã làm hết rồi, bạn chỉ việc nhấn vào cái nút (button)mà tôi đặt nó ở cell H26 thôi mà???
=========
bạn mở file ra có thanh cảnh báo macro màu vàng ko?
nếu ko có thì bạn kiểm tra như sau:
1-mở excel ra==>cho tab file===>options==>trust center==>trust center seting==>chọn disable macro with notification
2-mở file trên ra==enable macro==>nhấn vào cái nút tôi để nó ở cell h25,26 gì đó

 

[nasalem]

m nhấn vào " tên sản phẩm rồi ko tháy gì chạy ra cả? file mình gửi đấy chỉ là cắt từ 1 file lớn ra làm cách nào tạo dc và dùng như thê nào?

 

[Let'GâuGâu]

m nhấn vào " tên sản phẩm rồi ko tháy gì chạy ra cả? file mình gửi đấy chỉ là cắt từ 1 file lớn ra làm cách nào tạo dc và dùng như thê nào?

trước hết phải thấy được kết quả của file này cái đã, rồi mới lo tiếp. xóa nội dung trong cột H rồi cho code chạy thử. nếu vẫn ko có kết quả gì thì tôi cũng po tay rồi.