Tổng hợp và bóc tách số liệu (1 người xem)

[txtzeus]

Cảm ơn anh quanghai1969 vì threat http://www.giaiphapexcel.com/forum/...ống-nhau-ở-nhiều-sheet-vào-2-sheet-riêng-biệt đã giúp đỡ mình nhiều, tuy nhiên mình vẫn chưa giải quyết được vấn đề.

Bài toán :
Hàn khung thép.
Với mỗi loại Biển sẽ có cách tính khác nhau.
Mỗi loại sắt sẽ có cách tính khác nhau.
Nhập chiều ngang và chiều dọc , chung loại biển, loại sắt .
Đơn vị tính cm.

Cần tính :
Số lượng, kích thước thép cần cắt.


Mình bị mắc ở sheets(3) và sheets(4) ( 15,20),
Mình muốn biết sắp xếp các dòng theo thứ tự tăng dàn hoặc giảm dần
Và mình muốn tổng hợp số lượng thanh cùng loại ra một sheets(KetQua) ,ví dụ : độ dài 96 = 20 +9 = 29 thanh.
Mình muốn viết bằng macro vì số liệu thay đổi hàng ngày,
Mong anh và ACE diễn đàn giúp đõ.

P/S Mình viết code đoạn nào thô thiển anh em chỉ giáo luôn cho nhé, ^_^

 

[Quang_Hải]

Mình đã làm phần sắp xếp cho bạn theo tăng giảm, phần còn lại không hỉu nên chịu

 

[SA_DQ]

Chắc bạn í cần con này

Option Explicit
Sub KetQua()
 Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
 Dim Rws As Long, jJ As Byte
 
 Rws = Sheets("20").[b2].CurrentRegion.Rows.Count
 Rws = Rws + Sheets("15").[b2].CurrentRegion.Rows.Count
 Sheets("KetQua").Select
 Set Rng = [A1].Resize(Rws)
 Rng(1).Offset(1).Resize(Rws, 9).Clear
 For jJ = 15 To 23 Step 5
    Set Sh = ThisWorkbook.Worksheets(CStr(jJ))
    For Each Cls In Sh.Range(Sh.[a2], Sh.[a2].End(xlDown))
        Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
        If sRng Is Nothing Then
            With Cells(Rws, "A").End(xlUp).Offset(1)
                .Resize(, 2).Value = Cls.Resize(, 2).Value
                .Offset(, 2).Value = jJ
            End With
        Else
            If sRng.Offset(, 2).Value = jJ Then
                sRng.Interior.ColorIndex = 30 + Jj
                sRng.Offset(, 1).Value = sRng.Offset(, 1).Value + Cls.Offset(, 1).Value
            End If
        End If
    Next Cls
 Next jJ
 Randomize:                 [A1].Resize(, 3).Interior.ColorIndex = 34 + 9 * Rnd() / 1
End Sub

 

[txtzeus]

Rất chuẩn, công nhận thành viên của diễn đàn minh rất nhiệt tình.

Mình không rành lắm về Excel nên có một số lệnh mình không hiểu ^_^, mong anh em giúp đỡ nhiều