Code lọc thép dầm

[authority]

em chào các anh à
các anh giúp em với ạ
bảng tính em ban đầu sau khi lấy giá trị từ sheet vi du gia tri
giờ sẽ lọc giá trị bảng đó
giá trị giữ lại là ( đầu dầm- giữa dầm- cuối dầm)
Đầu dầm M3>0, As gối =1.3 (giữ lại max của M3)
Giữa dầm M3<0, As max =30.05 (giữ lại max abs(M3)
Cuối dầm M3>0, As gối =1.3 (giữ lại max M3)
(1 dầm sẽ giữ lại 3 giá trị)
Tiếp cho dầm tiếp theo-ví dụ dầm B2

em có đoạn mã lọc thép
mà mãi cứ sai
giá trị em muốn giữ lại em có bôi đỏ đậm, nhưng mãi chưa được


em có đính kèm bảng tính ạ
em cảm ơn các anh

 

[leonguyenz]

em chào các anh à
các anh giúp em với ạ
em có đoạn mã lọc thép
mà mãi cứ sai
giá trị em muốn giữ lại em có bôi đỏ đậm, nhưng mãi chưa được
View attachment 218430

em có đính kèm bảng tính ạ
em cảm ơn các anh

Tiêu đề bạn ghi chung chung (xem Nội quy diễn đàn, mục III.3, nên sửa lại phù hợp)
Cách diễn giải chưa rõ, có thể ví dụ 1 bảng kết quả sau khi lọc không?

 

[authority]

Tiêu đề bạn ghi chung chung (xem Nội quy diễn đàn, mục III.3, nên sửa lại phù hợp)
Cách diễn giải chưa rõ, có thể ví dụ 1 bảng kết quả sau khi lọc không?

dạ kết quả cuối thế này anh ạ
em cảm ơn

 

[huuthang_bd]

Nếu muốn được hỗ trợ nhanh thì bạn phải mô tả cụ thể yêu cầu của bạn.

 

[authority]

Nếu muốn được hỗ trợ nhanh thì bạn phải mô tả cụ thể yêu cầu của bạn.

dạ vâng anh

 

[leonguyenz]

View attachment 218547
dạ kết quả cuối thế này anh ạ
em cảm ơn

Bạn tham khảo code:

Sub GpeFtClr()
Dim Rng As Range, i As Long
Set Rng = Sheet4.Range("N14:O" & Sheet4.Range("N65535").End(xlUp).Row)
For i = Rng.Rows.Count To 1 Step -1
    If Not (Rng(i, 1).Font.Color <> 0 Or _
        Rng(i, 2).Font.Color <> 0) Then
        Rng(i, 1).EntireRow.Delete
    End If
Next i
End Sub

 

[authority]

Bạn tham khảo code:

Sub GpeFtClr()
Dim Rng As Range, i As Long
Set Rng = Sheet4.Range("N14:O" & Sheet4.Range("N65535").End(xlUp).Row)
For i = Rng.Rows.Count To 1 Step -1
    If Not (Rng(i, 1).Font.Color <> 0 Or _
        Rng(i, 2).Font.Color <> 0) Then
        Rng(i, 1).EntireRow.Delete
    End If
Next i
End Sub

em cảm ơn anh ạ
dòng này đúng nếu giá trị đó đã có bôi đỏ. nhưng ý em thế này anh à
(mình phải tìm ra giá trị bôi đỏ đã anh à)
bảng tính em ban đầu sau khi lấy giá trị từ sheet vi du gia tri (có thể có nhiều dầm, em chỉ đưa vào 1 dầm ạ)
giờ sẽ lọc giá trị bảng đó
giá trị giữ lại là ( đầu dầm- giữa dầm- cuối dầm)
Đầu dầm M3>0, As gối =1.3 (giữ lại max của M3)
Giữa dầm M3<0, As max =30.05 (giữ lại max abs(M3)
Cuối dầm M3>0, As gối =1.3 (giữ lại max M3)
(1 dầm sẽ giữ lại 3 giá trị)
Tiếp cho dầm tiếp theo-ví dụ dầm B2
để em gửi file ví dụ nhiều dầm

 

[huuthang_bd]

Tôi đã khuyên bạn mô tả cụ thể yêu cầu ngay từ đầu nhưng thấy bạn có ngó ngàng gì tới đâu )

 

[authority]

Tôi đã khuyên bạn mô tả cụ thể yêu cầu ngay từ đầu nhưng thấy bạn có ngó ngàng gì tới đâu )

Dạ em đã thêm mô tả anh à
em xin rút kinh nghiệm lần sau
em cảm ơn anh

 

[huuthang_bd]

Hết lửa, tắt bếp rồi bạn