Lọc trích dữ liệu trong VBA,và dùng nó để Filter trong VBA

[Tunga2k41]

Có nhiều chủ đề về lọc dữ liệu trong VBA rồi nhưng vì khả năng của em còn hạn hẹp nên không áp dụng được trong trường hợp của mình.Mong anh chị giúp đỡ.

Sự việc là có đoạn em phải dùng AutoFilter tại cột K , với biến có giá trị = giá trị cell K28 ( vì K28 thuộc dòng 29, dòng em đang muốn xét là )
Trước đó em có khai báo 1 biến IJ, bây giờ em muốn tận dụng biến IJ cho việc này có được không?

Sub Add()
    Application.ScreenUpdating = 0:
    'Khai bao bien
    Dim StrV As String: Dim IJ As Integer
    IJ = InputBox("dong` se~ paste") 'đoạn này em cho IJ =30 (sau dòng đang xét 1 dòng) 
   StrV = "C" & CStr(IJ)
'
'

Cho em hỏi thêm về cắt chích dữ liệu trong cell trong VBA như thế nào? Ví dụ Cột A là cột Lớp với: A2=12A2 ; A2=12A5 ; ...
em muốn Filter trong VBA tại cột A với giá trị là ??&right(A1,2) và mid(A1,1,2) như AutoFilter excel bình thường thì như thế nào

 

[Tunga2k41]

Thực ra em đang mắc một vấn đề về Value của Cell trong VBA. Bác nào trả lời giúp em với!
Ví dụ: A1=LỚP ; A2 =12A2 , A3=12A5 , ...

Dim StrC as string: Dim IJ as integer
IJ InputBox("hàng muốn sử lý") 'chỗ này em sẽ khai báo bằng tay ví dụ như IJ = 2 ( hàng 2 trong sheet)
..
..
Selection.AutoFilter Field:=1, Criteria1:=StrC, Operator:=xlAnd

em muốn chỗ trống làm thế nào để lấy giá trị ô A2 = 12A2 = StrC để phục vụ cho Filter như ở dưới.

Nâng cao hơn em muốn lấy giá trị của A2 như sau để Filter thì làm như thế nào: ??A2 hoặc 12?2

 

[cadafi]

Thực ra em đang mắc một vấn đề về Value của Cell trong VBA. Bác nào trả lời giúp em với!
Ví dụ: A1=LỚP ; A2 =12A2 , A3=12A5 , ...

em muốn chỗ trống làm thế nào để lấy giá trị ô A2 = 12A2 = StrC để phục vụ cho Filter như ở dưới.

Nâng cao hơn em muốn lấy giá trị của A2 như sau để Filter thì làm như thế nào: ??A2 hoặc 12?2

Chưa hiểu ý bạn lắm, tuy nhiên thử code củ chuối này xem:

Dim StrC as string: Dim IJ as integer
IJ InputBox("hàng muốn sử lý")      'chỗ này em sẽ khai báo bằng  tay ví dụ như IJ = 2 ( hàng 2 trong sheet)
..
..
StrC = Activesheet.Cells(IJ,"A")            '<== Thử thêm vào chỗ này xem sao!?
Selection.AutoFilter Field:=1, Criteria1:=StrC, Operator:=xlAnd

 

[Tunga2k41]

Hay quá làm ngon rồi bác ạk ! Nhưng em muốn nâng cao vấn đề hơn một chút được ko?
Bây h em ko lấy Value vủa cả ô A2 để Filter nữa, mà lấy kiểu như thế này: nếu cho IJ bằng 2 (hàng 2), thì sẽ Filter với giá trị là ??A2
Nếu như tiếp tục áp dụng cách như của bác thì cũng được nhưng lại tốn tài nguyên vì ta phải tạo thêm 1 cột mới vd: B2="??"&right(A2,2) =??A2 ; B3="??"&right(A3,2) =??A5 ;... Rồi mới áp dụng Filter cột A theo các giá trị trên cột B.

Chỉ em cách hay đi bác