Giúp đoạn code VBA lấy dữ liệu theo điều kiện (2 người xem)
- Thread starter hongdaisu
- Ngày gửi
Người dùng đang xem chủ đề này
nmhung49
Thành viên tích cực
- Tham gia
- 20/8/09
- Bài viết
- 1,186
- Được thích
- 1,338
Cái này có thể dùng công thức như bạn muốn code thì có thể dùng code này
[GPECODE=vb]
Sub LocKH()
Dim cotdl, i As Long, k As Long
Dim VungDL, j As Long, cotkq
Dim KQ(1 To 100, 1 To 9)
VungDL = Sheets("Sheet1").Range("A11:AJ25").Value
cotdl = Array(1, 2, 3, 4, 6, 11, 32, 33, 17)
cotkq = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 1 To UBound(VungDL)
If VungDL(i, 15) = Sheet2.Range("k1").Value Then
j = j + 1
For k = 0 To UBound(cotdl)
KQ(j, cotkq(k)) = VungDL(i, cotdl(k))
Next
End If
Next
With Sheets("Sheet2")
.Range("A11:I100").ClearContents
.Range("A4").Resize(j, 9).Value = KQ
End With
End Sub
[/GPECODE]
Xem file để dễ hiểu
[GPECODE=vb]
Sub LocKH()
Dim cotdl, i As Long, k As Long
Dim VungDL, j As Long, cotkq
Dim KQ(1 To 100, 1 To 9)
VungDL = Sheets("Sheet1").Range("A11:AJ25").Value
cotdl = Array(1, 2, 3, 4, 6, 11, 32, 33, 17)
cotkq = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 1 To UBound(VungDL)
If VungDL(i, 15) = Sheet2.Range("k1").Value Then
j = j + 1
For k = 0 To UBound(cotdl)
KQ(j, cotkq(k)) = VungDL(i, cotdl(k))
Next
End If
Next
With Sheets("Sheet2")
.Range("A11:I100").ClearContents
.Range("A4").Resize(j, 9).Value = KQ
End With
End Sub
[/GPECODE]
Xem file để dễ hiểu
Lần chỉnh sửa cuối:
Upvote
0
nmhung49
Thành viên tích cực
- Tham gia
- 20/8/09
- Bài viết
- 1,186
- Được thích
- 1,338
[GPECODE=vb]
Sub LocKH()
Dim cotdl, i As Long, k As Long
Dim VungDL, j As Long, cotkq
Dim KQ(1 To 100, 1 To 9)
Tạo mảng gồm 100 dòng 9 cột
VungDL = Sheets("Sheet1").Range("A11:AJ25").Value
Gán dữ liệu gốc vào VungDL để xử lý trên mảng
cotdl = Array(1, 2, 3, 4, 6, 11, 32, 33, 17)
Vị trí cột cần lấy dữ liệu của vùng dữ liệu gốc
cotkq = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Vi trị cột để đưa vào Mảng KQ
For i = 1 To UBound(VungDL) ' Vòng lặp để duyệt dữ liệu Ubound(VungDL) cho biết dữ liệu có bao nhiều dòng
If VBA.UCase(VungDL(i, 15)) = VBA.UCase([K1]) Then
'Đồng nhất code dữ liệu nhập và code dữ liệu muốn lấy
Nếu duyệt Vùng dữ liệu cột 15 code KH trùng với nhau thì
j = j + 1 'Gán biến J tăng lên 1
For k = 0 To UBound(cotdl)
KQ(j, cotkq(k)) = VungDL(i, cotdl(k)) ' đưa dữ liệu mà dòng có KH muốn lấy vào mảng KQ
Next
End If
Next
With Sheets("Sheet2") 'Mở cầu lệnh with
.Range("A11:I100").ClearContents ' Xóa dữ liệu cũ nếu nhiều thay đổi phù hợp
.Range("A4").Resize(j, 9).Value = KQ ' Gán giá trị của Mảng KQ vào sheet2
End With ' kết thúc with
End Sub
[/GPECODE]
Mong giải thích vậy bạn hiểu
Upvote
0
Bài viết mới nhất
- Dán lên cao
