Bài toán tìm số với VBA?

[Thuong01]

Bai toan tim so với VBA(thuong01)

Kinh gui dien dan

Rat mong dien dan giai ho toi bai toan nhu file kem theo

Cam on dien dan


Thành viên Thuong01 chú ý: bài viết phải có dấu!

 

[minhnc]

Bài toán này chính là bài toán của tôi tại địa chỉ http://www.giaiphapexcel.com/forum/showthread.php?t=1669. Ở đâu diẽn giải dễ hiểu hơn mong mọi người help

 

[minhnc]

Cảm ơn SA_DQ. Code của bạn chỉ mới giải quyết được 1 nửa bài toán, yêu cầu bài toán là sau khi duyệt xong JNT-1 tiếp tục duyệt tiếp JNT-2(Cột C) và cho kết quả như trên. Mong được giúp đỡ

Ý mình là:

Sau khi tìm JNT-1 (cột B) tiếp tục duyệt JNT-2(cột C) và vẫn cho kết quả như trên cùng với cột của JNT-1 và cùng 1 sheet KQua. Có lẽ sửa chỗ này lJnt2 = Range("C36525").End(xlUp).Row - 4
Mong được giúp đỡ

 

[SA_DQ]

Xem xong bạn có í kiến nha!

Sau khi tìm JNT-1 (cột B) tiếp tục duyệt JNT-2(cột C) và vẫn cho kết quả như trên cùng với cột của JNT-1 và cùng 1 sheet KQua. Có lẽ sửa chỗ này lJnt2 = Range("C36525").End(xlUp).Row - 4

Bạn hãy xem phần thêm nha:

Option Explicit:  Option Base 1
Dim iJ As Long, iZ As Long
Public lID As Long, lJnt1 As Long [b]

Sub Loc2Cot() [/b]
 Dim iDem As Long
 
 Application.ScreenUpdating = False
 Sheets("Thanh").Select:            lJnt1 = Range("B36525").End(xlUp).Row - 4
 Sheets("nut").Select:              lID = Range("A36522").End(xlUp).Row - 2
 ReDim MDLieu(2 * lJnt1 + 9, 5):     ReDim MangID(lID)
 [color="blue"] 'Khai báo mãng MDLieu đã # trước [/color]
 For iJ = 1 To lID
    MangID(iJ) = Range("A" & CStr(iJ + 2)).Value
 Next iJ
 
 Sheets("Thanh").Select
 For iZ = 1 To lID
    For iJ = 5 To lJnt1
        If Range("B" & CStr(iJ)).Value = MangID(iZ) Then
            iDem = iDem + 1:        MDLieu(iDem, 1) = MangID(iZ) '1
            MDLieu(iDem, 2) = Range("B" & CStr(iJ)).Offset(0, 1).Value '2
            MDLieu(iDem, 3) = Range("B" & CStr(iJ)).Offset(0, -1).Value 'Frame
            MDLieu(iDem, 4) = Range("B" & CStr(iJ)).Offset(0, 2).Value 'Sec
            MDLieu(iDem, 5) = Range("B" & CStr(iJ)).Offset(0, 9).Value 'Leng
        End If
 Next iJ, iZ
[color="blue"] 'Thêm đây: [/color] 
 For iZ = 1 To lID
    For iJ = 5 To lJnt1
        If Range("C" & CStr(iJ)).Value = MangID(iZ) Then
            iDem = iDem + 1:        MDLieu(iDem, 1) = MangID(iZ) [color="blue"] ''1 [/color]
            MDLieu(iDem, 2) = Range("B" & CStr(iJ)).Value [color="blue"] ' '2 [/color]
            MDLieu(iDem, 3) = Range("A" & CStr(iJ)).Value [color="blue"] ''Frame[/color]
            MDLieu(iDem, 4) = Range("D" & CStr(iJ)).Value [color="blue"] ''Sec[/color]
            MDLieu(iDem, 5) = Range("K" & CStr(iJ)).Value [color="blue"] ''Leng[/color]
        End If
 Next iJ, iZ
 
 
 Sheets("KQua").Select
  iJ = 6:           iDem = 0
  Do
    iJ = 1 + iJ:            iDem = 1 + iDem

    If Len(MDLieu(iDem, 1)) < 1 Then Exit Do
    Range("D" & CStr(iJ)).Value = MDLieu(iDem, 1)
    Range("H" & CStr(iJ)).Value = MDLieu(iDem, 2)
    Range("L" & CStr(iJ)).Value = MDLieu(iDem, 3)
    Range("M" & CStr(iJ)).Value = MDLieu(iDem, 4)
    Range("N" & CStr(iJ)).Value = MDLieu(iDem, 5)
    If MDLieu(iDem, 1) <> MDLieu(iDem + 1, 1) Then iJ = iJ + 1 [color="blue"] 'Mới sửa sáng ngày PN! [/color]

  Loop
  
[b]End Sub[/b]

 

[minhnc]

Lâu quá, ko đăng nhập được diễn đàn????? Mỗi lần viết lại bị out? . SA DQ xem lại cho chút. Cơ bản đã đúng nhưng sao vẫn không lọc hết ID???

 

[SA_DQ]

Hãy cụ thể hơn theo file kèm theo!

. . . . . ====>>