Truy xuất bằng VBA (1 người xem)

[BinXi1223]

Em có thử xài đoạn code sau nhưng mà không hiểu cho lắm. Ai pro giúp em hiểu sơ sơ về các lệnh đc không ạ.



Sub Theo_Thanh_Vien()
Dim DL, Kq(1 To 50000, 1 To 5), Dk$, i&, k&
Dk = [C10].Value
DL = Sheets("Bang_Tinh_Luong").Range("B5", Sheets("Bang_Tinh_Luong").Range("B65000").End(3)).Resize(, 21)
Application.ScreenUpdating = False
For i = 1 To UBound(DL)
If DL(i, 3) = Dk And Dk <> Empty Then
k = k + 1
Kq(k, 1) = DL(i, 3)
Kq(k, 2) = DL(i, 4)
Kq(k, 3) = DL(i, 2)
Kq(k, 4) = DL(i, 5)
Kq(k, 5) = DL(i, 21)
End If
Next i
If i Then
Range("B15:F65000").ClearContents
Range("b15").Resize(i, 5) = Kq
Range("b15:F65000").Borders.LineStyle = xlNone
Range("B15", Range("B65000").End(3)).Resize(, 5).Borders.LineStyle = xlContinuous
Else
Range("b15:F65000").ClearContents
Range("b15:F65000").Borders.LineStyle = xlNone
End If
End Sub

 

[BinXi1223]

Đây là file excel của em nhờ các bác giúp giùm ạ

 

[ChanhTQ@]

Option Explicit
'Macro Dùng Để Tra Cứu Theo Thành Viên:'
Sub Theo_Thanh_Vien()
'Khai Báo các Bién Càn Dùng:'
 Dim DL, Kq(1 To 50000, 1 To 5), Dk$, i&, k&
 Dim Sh As Worksheet             'Thêm'
 
1 Dk = [C10].Value              'Láy Tên Thành Viên Gán Vào Bién'
 Set Sh = ThisWorkbook.Worksheets("Bang_Tinh_Luong")    '*'
3 DL = Sh.Range(Sh.[B5], Sh.[B65000].End(3)).Resize(, 21).Value
 Application.ScreenUpdating = False     'Tang Tốc Chuong Trình'
5 For i = 1 To UBound(DL)   'Vòng Lap Duyet Toàn bộ CSDL'
    If DL(i, 3) = Dk And Dk <> Empty Then   'Điều Kiện Tên Trùng Hop'
7        k = k + 1                          'Tăng Biến Đếm'
        Kq(k, 1) = DL(i, 3)                 'Ghi Du Lieu Vào Biến Mảng'
9        Kq(k, 2) = DL(i, 4)                ' NTr'
        Kq(k, 3) = DL(i, 2)
11        Kq(k, 4) = DL(i, 5)
        Kq(k, 5) = DL(i, 21)                'NTr'
13    End If
 Next i
15 If i Then        'Điều Kien: Nếu Có Du Liêu Trong Biến Mảng'
    Range("B15:F65000").ClearContents       'Xóa Du Lieu Cũ'
17    Range("b15").Resize(i, 5) = Kq        'Ghi Nhâp Tù Bién Lên Trang Tính'
    Range("b15:F65000").Borders.LineStyle = xlNone      'Xóa Ke Khung'
        'Ke Khung Mói:'
19    Range("B15", Range("B65000").End(3)).Resize(, 5).Borders.LineStyle = xlContinuous
 Else               'Khi Khong Thoa Dièu Kien Thì:'
21    Range("b15:F65000").ClearContents                 'Gióng D18'
    Range("b15:F65000").Borders.LineStyle = xlNone      'Khong Ke Khung'
23    End If
End Sub

 

[ThanhBinh1223]

Option Explicit
Ta vẫn còn VPE.COM nghĩa là ta vẫn còn tồn tại!

Có thể giúp em truy xuất cái bảng này đc không ạ. Em chỉ biết truy xuất dọc theo như cách trên thôi còn truy xuất theo từng ô thì có vẻ hơi khó hãy cứu rỗi kiến thức cho newbie này đi ạ