tranphuson
Thành viên thường trực
- Tham gia
- 14/8/09
- Bài viết
- 249
- Được thích
- 9
- Giới tính
- Nam
Bạn bố trí cái data vớ vẩn thế.Nếu nó nhiều quá thì làm thế nào.Vui lòng giúp mình khi tìm mã nhà cung cấp thì trích lọc như file nội dung bên dưới
Ví dụ: Chọn mã Nhà cung cấp ở Cột E dòng 1 - thì tự động Liệt kê dựa theo nội dung bên dưới dựa theo dữ liệu từ Cột A đến Cột L từ dòng 11 trở xuống
Cảm ơn
Chắc bạn ấy ví dụ thôi chứ file gốc chắc nhiều lắm anh ơiBạn bố trí cái data vớ vẩn thế.Nếu nó nhiều quá thì làm thế nào.
Vậy code đây.Hi.Chắc bạn ấy ví dụ thôi chứ file gốc chắc nhiều lắm anh ơi
Sub locdulieu()
Dim arr, arr1, lr As Long, i As Long, a As Long, dk As String, j As Integer
With Sheets("VENDOR")
dk = .Range("E1").Value
lr = .Range("B" & Rows.Count).End(xlUp).Row
If lr < 11 Then Exit Sub
arr = .Range("A11:L" & lr).Value
ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2))
For i = 1 To UBound(arr, 1)
If UCase(arr(i, 2)) = UCase(dk) Then
a = a + 1
For j = 1 To UBound(arr, 2)
arr1(a, j) = arr(i, j)
Next j
End If
Next i
.Range("A4:l6").ClearContents
If a And a < 4 Then .Range("A4").Resize(a, UBound(arr, 2)).Value = arr1 Else MsgBox "khong dung du lieu"
End With
End Sub
Vậy code đây.Hi.
Mã:Sub locdulieu() Dim arr, arr1, lr As Long, i As Long, a As Long, dk As String, j As Integer With Sheets("VENDOR") dk = .Range("E1").Value lr = .Range("B" & Rows.Count).End(xlUp).Row If lr < 11 Then Exit Sub arr = .Range("A11:L" & lr).Value ReDim arr1(1 To UBound(arr, 1), 1 To UBound(arr, 2)) For i = 1 To UBound(arr, 1) If UCase(arr(i, 2)) = UCase(dk) Then a = a + 1 For j = 1 To UBound(arr, 2) arr1(a, j) = arr(i, j) Next j End If Next i .Range("A4:l6").ClearContents If a And a < 4 Then .Range("A4").Resize(a, UBound(arr, 2)).Value = arr1 Else MsgBox "khong dung du lieu" End With End Sub
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2