Nhờ giúp đỡ công thức vba lọc có điều kiện

nguyenkar · 18/11/22

Mình có đăng 1 bài nhờ giúp đỡ bên box gỡ rối công thức nhưng có bạn nói sai địa chỉ nên mình hỏi lại ở bên đây ạ.
link bài cũ: https://www.giaiphapexcel.com/diendan/threads/nhờ-mọi-người-giúp-đỡ-công-thức-update.163041/
Vấn đề cần hỏi:
Mình dùng vba để làm cái báo cáo cho bảng dữ liệu như trong file đính kèm nhưng không được như ý muốn, mong mọi người giúp đỡ sửa công thức với ạ.
Yêu cầu là nhấn update thì in ra những dữ liệu đang có từ sheet 1 sang sheet 2 (mình làm bị in sai cột và in hết chứ không cắt được dòng chưa có dữ liệu).
Phần in tên mình chưa làm được, ý tưởng là so sánh 2 mảng để lấy ra kết quả nhưng không thành công. Mong mọi người giúp đỡ ạ.

Update:
Mình vẫn đã giải quyết được phần in dư và đang nghiên cứu tiếp phương pháp dùng Dic để lấy kết quả. Do mới tập tành vba nên có nhiều cái vẫn cần học hỏi ạ. Hiện tại mình đang thử 2 phương án
1. Add tất cả ô trong bảng dữ liệu vào Dic, sau đó so sánh cột stt với stt ngang, nếu có thì in phần có ra
2. So sánh cột stt dọc với stt ngang, nếu có thì tạo và ghi vào dic, không có thì không ghi, sau đó in Dic ra.

Cả 2 phương pháp đều chưa làm được thành code ạ, rất mong các anh chị cho ý kiến.

nguyenkar · 19/11/22

Sau 2 ngày mò mẫm dò dẫm thì mình cũng đã tìm được phương pháp xử lý khá là cồng kềnh, và theo mình nghĩ là chuối hơn cả dùng match index.
Rất cảm ơn @batman1 vì đoạn code copy của bạn, cảm ơn luôn bạn @tuhumg00 vì bài viết hỏi của bạn mà mình mới tìm ra hướng giải quyết.

Nhân đây nhờ @batman1 và các anh chị trong diễn đàn chỉnh giúp em đoạn code này cho đỡ rườm rà phức tạp hơn được không? Em mới tiếp xúc với vba chưa tròn tháng nên code còn yếu quá, không tìm ra hướng giải quyết khác. Mong các anh chị giúp đỡ.

bebo021999 · 21/11/22

Đúng ra bạn nên điền tay kết quả mong muốn bên sheet tongket và mọi người sẽ giúp bạn code.
Trong ví dụ của bạn thì danh sách học viên không trùng, không cần dùng dic.
Tạm thời dùng code này.

PHP:

Option Explicit
Sub inra()
Dim lr&, lc&, i&, j&, k&, rng, result(1 To 10000, 1 To 5)
With Sheets("kiemtra")
    lr = .Cells(Rows.Count, "C").End(xlUp).Row
    lc = .Cells(7, Columns.Count).End(xlToLeft).Column
    rng = .Range(.Cells(7, "C"), .Cells(lr, lc)).Value ' nap gia tri trong bang vao mang rng
End With
For j = 5 To UBound(rng, 2) ' loop tu cot 5 cua rng
    If rng(2, j) <> "" Then
        For i = 4 To UBound(rng) ' loop tu dong 4 cua rng
            If rng(2, j) = rng(i, 1) Then
                k = k + 1
                result(k, 1) = rng(2, j): result(k, 2) = rng(3, j)
                result(k, 3) = rng(1, j)
                result(k, 4) = rng(i, 2) & " - " & rng(i, 3)
                result(k, 5) = k
                Exit For ' thoat vong lap dong va tiep tuc vong lap cot
            End If
        Next
    End If
Next
With Sheets("tongket")
    .Range("C4:G10000").ClearContents ' Xoa du lieu cu
    If k > 0 Then .Range("C4").Resize(k, 5).Value = result ' dan du lieu moi vao
    .Activate
    .Range("C3").Select
End With
End Sub

nguyenkar · 24/11/22

bebo021999 đã viết:
Đúng ra bạn nên điền tay kết quả mong muốn bên sheet tongket và mọi người sẽ giúp bạn code.
Trong ví dụ của bạn thì danh sách học viên không trùng, không cần dùng dic.
Tạm thời dùng code này.

Vâng, em cảm ơn bác nhiều, em sẽ rút kinh nghiệm lần sau ạ. Qua bài này mới hiểu được nhiều thứ, lúc trước e cũng chỉ nghĩ nếu chuyển workbook hay worksheet thì range hay array sẽ reset nên mới tìm dic, giờ hiểu được rồi ạ.

nguyenkar · 29/11/22

bebo021999 đã viết:

Đúng ra bạn nên điền tay kết quả mong muốn bên sheet tongket và mọi người sẽ giúp bạn code.
Trong ví dụ của bạn thì danh sách học viên không trùng, không cần dùng dic.
Tạm thời dùng code này.

PHP:

Option Explicit
Sub inra()
Dim lr&, lc&, i&, j&, k&, rng, result(1 To 10000, 1 To 5)
With Sheets("kiemtra")
    lr = .Cells(Rows.Count, "C").End(xlUp).Row
    lc = .Cells(7, Columns.Count).End(xlToLeft).Column
    rng = .Range(.Cells(7, "C"), .Cells(lr, lc)).Value ' nap gia tri trong bang vao mang rng
End With
For j = 5 To UBound(rng, 2) ' loop tu cot 5 cua rng
    If rng(2, j) <> "" Then
        For i = 4 To UBound(rng) ' loop tu dong 4 cua rng
            If rng(2, j) = rng(i, 1) Then
                k = k + 1
                result(k, 1) = rng(2, j): result(k, 2) = rng(3, j)
                result(k, 3) = rng(1, j)
                result(k, 4) = rng(i, 2) & " - " & rng(i, 3)
                result(k, 5) = k
                Exit For ' thoat vong lap dong va tiep tuc vong lap cot
            End If
        Next
    End If
Next
With Sheets("tongket")
    .Range("C4:G10000").ClearContents ' Xoa du lieu cu
    If k > 0 Then .Range("C4").Resize(k, 5).Value = result ' dan du lieu moi vao
    .Activate
    .Range("C3").Select
End With
End Sub

Mong bác giúp em phát nữa ạ. Bảng dữ liệu đổi thành điểm số, em muốn thêm 2 cột sum điểm của cá nhân và điểm theo từng lượt vào array luôn thì phải làm sao ạ?

SA_DQ · 30/11/22

Góp 1 ý nhỏ với chủ bài đăng (& có thể coi là ngoài lề) nhưng quan trong trong xây dựng CSDL:
Hoàn toàn không nên trong 1 cột lại chứa 2 loại thông tin như của bạn hiện tại:

TÊN HỌC VIÊN	THỨ TỰ KIỂM TRA	Tổng điểm cá nhân	Tổng điểm theo Lượt
Hà Văn Năng - Nam	1	57	115
Trần Thị Bảy - Nữ	2	54	117
Hoàng Nhật Khánh - Nữ	3	60	124
Nguyễn Thị Thu Thuỷ - Nữ	4	50	111
Lê Văn Được - Nam	5	50	117
Trần Văn Hiệp - Nam	6	58	117
Hồng Văn Bé Tám - Nữ	7	53	118

Mà nên là như ví dụ:

STT

Ho & Ten

Mã

1

Võ Thanh Sang

VTS00

2

Võ Ngọc Bích

VNB00

3

Trần Văn Hiệp

TVH00

4

Trần Thị Bảy

TTB00

5

Trần Ngọc Tuyến

TNT00

6

Phạm Thanh Thảo

PTT00

7

Phạm Thanh Thảo

PTT00

8

Nguyễn Thị Thu Thuỷ

NTT00

9

Lê Văn Được

LVF00

10

Lê Ngọc Bích

LNB00

11

Hà Văn Năng

HVN00

12

Hoàng Nhật Khánh

HNK01

13

Hoàng Nhật Khánh

HNK00

14

Hồng Văn Bé Tám

HBT00

15

Hoàng Bích Diệp

HBD00

16

Dương Đỗ

DJF00

Lúc đó ta nên xài mã (duy nhất) của mỗi học viên/nhân viên thay vì cột 'TÊN HỌC VIÊN' đang có của bạn.

Chúc các bạn có ngày vui!

nguyenkar · 30/11/22

SA_DQ đã viết:
Góp 1 ý nhỏ với chủ bài đăng (& có thể coi là ngoài lề) nhưng quan trong trong xây dựng CSDL:
Hoàn toàn không nên trong 1 cột lại chứa 2 loại thông tin như của bạn hiện tại:

TÊN HỌC VIÊN THỨ TỰ KIỂM TRA Tổng điểm cá nhân Tổng điểm theo Lượt
Hà Văn Năng - Nam
1
57
115
Trần Thị Bảy - Nữ
2
54
117
Hoàng Nhật Khánh - Nữ
3
60
124
Nguyễn Thị Thu Thuỷ - Nữ
4
50
111
Lê Văn Được - Nam
5
50
117
Trần Văn Hiệp - Nam
6
58
117
Hồng Văn Bé Tám - Nữ
7
53
118

Mà nên là như ví dụ:

STT Ho & Ten Mã
1 Võ Thanh Sang VTS00
2 Võ Ngọc Bích VNB00
3 Trần Văn Hiệp TVH00
4 Trần Thị Bảy TTB00
5 Trần Ngọc Tuyến TNT00
6 Phạm Thanh Thảo PTT00
7 Phạm Thanh Thảo PTT00
8 Nguyễn Thị Thu Thuỷ NTT00
9 Lê Văn Được LVF00
10 Lê Ngọc Bích LNB00
11 Hà Văn Năng HVN00
12 Hoàng Nhật Khánh HNK01
13 Hoàng Nhật Khánh HNK00
14 Hồng Văn Bé Tám HBT00
15 Hoàng Bích Diệp HBD00
16 Dương Đỗ DJF00

Lúc đó ta nên xài mã (duy nhất) của mỗi học viên/nhân viên thay vì cột 'TÊN HỌC VIÊN' đang có của bạn.

Chúc các bạn có ngày vui!

Vâng cảm ơn bác đã góp ý, lúc đầu em cũng định tách ra cột giới tính mà nhìn nó hơi rối nên gộp vào luôn ạ. Rút kinh nghiệm lần sau e sẽ tách ra.

nguyenkar · 30/11/22

nguyenkar đã viết:
Mong bác giúp em phát nữa ạ. Bảng dữ liệu đổi thành điểm số, em muốn thêm 2 cột sum điểm của cá nhân và điểm theo từng lượt vào array luôn thì phải làm sao ạ?

E đã giải quyết được rồi ạ, e thêm 1 range nữa bắt đầu từ cell G10 đến cells lastrow, lastcol, sau đó nạp vào arr1, transpose thành arr2, rồi gọi tổng các cột là result(k, 10) = WF.Sum(WF.Index(arr2, j - 4, 0)).

Chúc các bác 1 ngày vui vẻ, rất cảm ơn các bác đã giúp đỡ ạ.

Nhờ giúp đỡ công thức vba lọc có điều kiện

nguyenkar

Thành viên mới

File đính kèm

bebo021999

nguyenkar

Thành viên mới

File đính kèm

bebo021999

Thành viên gạo cội

File đính kèm

nguyenkar

Thành viên mới

nguyenkar

Thành viên mới

File đính kèm

SA_DQ

/(hông là gì!

nguyenkar

Thành viên mới

nguyenkar

Thành viên mới

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

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng