Xin Code thay thế hàm VLOOKUP; hàm COUNT và hàm MAX có điều kiện
- Thread starter le_vis
- Ngày gửi
Việc code thay thế hàm Vlookup :
Tôi đã dùng đoạn Code này để lây dữ liệu từ cột C sang cột DD nhưng chưa biết đặt điều kiện thế nào để loại các mã nhân công và mã phụ liệu được (Mã nhân công luôn có 2 ký tự đầu = NG và mã phụ liệu luôn có 2 ký tự đầu = PL)
Set Ws = Sheets("DM_hang")
Vung = Ws.Range(Ws.[C8], Ws.[C10000].End(xlUp)).Resize(, 1)
If Not Intersect(Target, Range("C8:C10000")) Is Nothing Then
If Target.Count = 1 Then
For I = 1 To UBound(Vung)
If Vung(I, 1) = UCase(Target.Value) Then
Target.Offset(, 105) = Vung(I, 1)
Exit For
End If
Next I
End If
End If
Rất mong nhận được sự trợ giúp của các bạn. phần đặt điều kiện cho code này và cho xin code thay thế hàm IF(SUM(G8
B8)=0;"";COUNT(G8B8)) tại cột DC - Trân trọng cảm ơn
Tôi đã dùng đoạn Code này để lây dữ liệu từ cột C sang cột DD nhưng chưa biết đặt điều kiện thế nào để loại các mã nhân công và mã phụ liệu được (Mã nhân công luôn có 2 ký tự đầu = NG và mã phụ liệu luôn có 2 ký tự đầu = PL)
Set Ws = Sheets("DM_hang")
Vung = Ws.Range(Ws.[C8], Ws.[C10000].End(xlUp)).Resize(, 1)
If Not Intersect(Target, Range("C8:C10000")) Is Nothing Then
If Target.Count = 1 Then
For I = 1 To UBound(Vung)
If Vung(I, 1) = UCase(Target.Value) Then
Target.Offset(, 105) = Vung(I, 1)
Exit For
End If
Next I
End If
End If
Rất mong nhận được sự trợ giúp của các bạn. phần đặt điều kiện cho code này và cho xin code thay thế hàm IF(SUM(G8
B8)=0;"";COUNT(G8B8)) tại cột DC - Trân trọng cảm ơn
Upvote
0
- Tham gia
- 8/6/06
- Bài viết
- 14,586
- Được thích
- 22,909
- Nghề nghiệp
- U80
Nếu là mình thì mình sẽ xoay bảng dữ liệu lại; Kiểu có thể là vầy:
| Số TT | |||||||||||
| Mã HH | NG_SD | NG_SM | NG_SG | NG_SO | PL_SD | PL_SM | PL_SG | PL_SO | DTOC_1 | ||
| Tên HH & DV | S. Điện | S. Máy | S. Gầm | Sơn tút | PK Điện | PK Máy | PK Gầm | PK Sơn T. | Đồng tốc 2+3 | ||
| ĐVT | Công | Công | Công | Công | Lượt | Lượt | Lượt | Lượt | Bộ | ||
| Q. Chuẩn NX | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 |
Upvote
0
snow25
Thành viên gạo cội
- Tham gia
- 24/7/18
- Bài viết
- 3,552
- Được thích
- 3,597
- Donate (Momo)
- Giới tính
- Nam
3 cái cột DC,DD,DF cần gì phải đặt trong sự kiện chỉ cần khi nào dùng thì chạy 1 sub là được mà.Nếu cột A không cần thì bỏ đi.Việc code thay thế hàm Vlookup :
Tôi đã dùng đoạn Code này để lây dữ liệu từ cột C sang cột DD nhưng chưa biết đặt điều kiện thế nào để loại các mã nhân công và mã phụ liệu được (Mã nhân công luôn có 2 ký tự đầu = NG và mã phụ liệu luôn có 2 ký tự đầu = PL)
Set Ws = Sheets("DM_hang")
Vung = Ws.Range(Ws.[C8], Ws.[C10000].End(xlUp)).Resize(, 1)
If Not Intersect(Target, Range("C8:C10000")) Is Nothing Then
If Target.Count = 1 Then
For I = 1 To UBound(Vung)
If Vung(I, 1) = UCase(Target.Value) Then
Target.Offset(, 105) = Vung(I, 1)
Exit For
End If
Next I
End If
End If
Rất mong nhận được sự trợ giúp của các bạn. phần đặt điều kiện cho code này và cho xin code thay thế hàm IF(SUM(G8
Upvote
0
Thưa thầy, như tôi đã nêu ở #1 vì số lượng hàng rất nhều có thể lên tới gần 10.000 mặt hàng cơ thầy ạ.
Bài đã được tự động gộp:
Thưa thầy, đúng như thầy nói. Cột A có thể bỏ đi khi lập được điều kiện cho code - Tôi muốn đặt trong sự kiện để mỗi lần thêm 1 mã hàng mới thì nó tự động cập nhật luôn - Thầy xem giúp xin cảm ơn
Upvote
0
Thưa thầy Code chạy tốt - Có 1 ý xin thầy xem có thể được thì điều chỉnh giúp :
* Dữ liệu cập nhật tại cột DC : Khi ta nhập dữ liệu giá vào cột giá lần 1 thì đếm 1, lần 2 thì đếm 2 ..... Hiện tại sau khi nhập giá lần thì phải quay lại Click lần nữa vào mã hàng - Cảm ơn thầy nhiều
* Dữ liệu cập nhật tại cột DC : Khi ta nhập dữ liệu giá vào cột giá lần 1 thì đếm 1, lần 2 thì đếm 2 ..... Hiện tại sau khi nhập giá lần thì phải quay lại Click lần nữa vào mã hàng - Cảm ơn thầy nhiều
Upvote
0
Cảm ơn thầy nhiều - Tôi áp vào file gốc nhẹ đi nhiều và Code chuẩn theo ý rồi - Chân thành cảm ơn Thầy cùng các bạn
Rồi nay mai sẽ còn xin được làm phiền tới các Thầy . với việc thay thế hàm sumifs nhiều điều kiện nữa mong nhận được sự quan tâm của các thầy
Upvote
0
